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EXECUTE ESPO 
mee 
INP 
TIM 
DAT 


eek MES 


e* 


WHE 
SUG 
kiux BUR 


9 EXEC 
2 


A Dd oD + 


? 
? DATA 


2 END, 


L/DISK 


KET 1510 
UT 314 CARDS FROM ZIP 


E 1314 
E 77138 WEDNESDAY» 05/18/77 


SAGE OF THE DAY *** 


* SYSTEM WAS COLD STARTED 5/4/77 USING 4723/77 BACKUP TAPES 
SOME FILES MAY BE AVAILABLE FROM THE 5/4/77 TAPES MADE PRIOR 


To THE COLD START» BUT SOME FILES WERE LOST 
PLEASE USE USER CARDS IN FRONT OF ALL BATCH JOBS OR PACKETS 


N YOU GET TIRED OF THIS MESSAGE = 

GEST A BETTER ONE. 

ROUGHS RB5700 TSMCP MARK XV10e0469 AND INTRINSICS MARK XVTe0000 wee 
UTE ESPOL/DISK 


STACK= 1024 
FILE TAPES SYMBOL/INTRINS DISK SERIAL 


FILE STUFFS TSSINT/STUFF DISK 


FILE LINEs LINE BACK UP TAPE 

FILE O1Sk= TSS/INT 

CORE= 15000 
CARD 
4SESPOL/DISK/SITE= 3 BOJ 1314 12/31/76 
DKA QUT SER CODE SITE:ESPOL/DISK= 3 
COB IN CARD?ESPOL/DISK= 3 
DKA IN SER SYMBOL INTRINSSESPOL/DISK= 3 
NEW PBT ON MTp 
MTQ OUT 211 LINESESPOL/OISK= 3 
DKA CUT SER TSSINT STUFF SESPOL/OISK= 3 
DKA QUT SER CODISK SITESESPOL/DISK= 3 
3ST 
#OPRTR ST@FED ESPOL/DISK= 3 
30K nest 
DKA LOK TSSINT STUFF IESPOL/DISK= 3 
COB REL CARDtESPOL/DISK= 3 


DRA REL SYMBOL INTRINS?ESPOL/DISK= 3 

MTD LOK LINESESPOL/DISK=> 3 

OKA CUT SER TSS INTtESPOL/DISK= 3 

DKA LOK TSS INT:ESPOL/DISK= 3 

CODISK/SITE/STTE= 1200 SEGS@=CREATED 05/18/77 AT 13%¢15814%23 
DKA REL CODISK SITESESPOL/DISK= 3 

CODE/SITE/SITES 0 SEGS™"CREATED O5/18/77 AT 13816235857 

DKA REL CODE STTE?TESPOL/DISK=s 3 

ESPOL/DISK/SITE= 3ePST= 9:50 EOJ 

FOR FSPOL/DISK= 3:PST= S89s10T= 1462CORE#15360 
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LABEL OOOOODOOOLINE 00177138? EXECUTE ESPOL/OISK ESPOL /DISK 
BURROUGHS 8*5700 ESPOQL COMPILER MARK XVI,0,00 WEDNESDAYs 05/18/77» 1314 PM, 


TSS /INT 

BRete cesses ress 
% TNT RJ. NGS 1 es MARK XVI_0.00 10/01/74 00000000 T O0000%0 
COMMENT? «* TITLE? 85500/B5700 MARK XV] SYSTEM RELEASE * 00000010 T O00080 
* FILE ID% SYMBOL/ZINTRINS TAPE ID? SYMBOLI/FILEQOO * 00000011 T 000040 
* THIS MATERIAL 1S PROPRIETARY TO BURROUGHS CORPORATION * 00000012 T 000080 
» AND IS NOT TO BE REPROQDUCEDs USED» OR DISCLOSED * 00000013 TFT O000%0 
* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON * 00000014 T 9000010 
* WRITTEN AUTHORIZATION OF THE PATENT DIVISION OF * ooo000dts tT 000010 
* BURROUGHS CORPORATIONs DETROIT MICHIGAN 48232 * 00000016 FT Q00010 
* * 00000017 T 000010 
* COPYRIGHT (C) 1971 19725 1974 * oo000d01a Tr CO0NfD 
* BURROUGHS CORPORATION * 00000019 T 00080 
* £A320206 AA393180 AA332366 *3 00000021 T 000010 
BEGIN 00000400 T 0000%0 
DEFINE ETRLNG = 5H» 00000200 T 0000'0 
INTDESCCINTNESC1) = FLAGCINTDESC1 & 8501!41:271) 4» 00000210 T 000040 
INTCALLCINTCALL1eINTCALL2) = PCINTCALL2 & S50184197)>» 00000215 T 900030 
INTCALL1*COC) #,s 00000216 T 00080 
CALLINTCCALLINT1) = PCCALLINT? & BSC124127)5XCHs COC) Fe 00000218 7T 900080 
COBOLDCT= @167 #» 00000219 T O000%0 
FORTERRI= ©1434 &s 00000220 tT c000t0 
EXP] = @20 #» . 00000221 T 000080 
LNI = @17 ks» 00000222 T 900050 
NEXPI = O77 #, 00000223 T Q000t0 
NLOGI = 101 #s 00000224 T O0000%0 
CABSI = @53 #»s 00000225 T 000080 
SINI = @414 ys 00000226 T 000080 
SQRTI = 13 #, - 00000227 7 000010 
ATAN2IT = ®114 #e 00000228 T 900000 
oMOopI = @65 #, 00000229 tT 000080 
OSINTI = @105 #» 00000230 T O000!'0 
NSQRTI = @4123 #s 00000231 T 000080 
XTOII = @6 it» 00000232 T 90000 
CXTOTI = ©56 #» 00000233 tT 000080 
COS] = @15 #, 00000234 7 0000!0 
TANI = ©1141 be ; 00000235 T 000080 
ARCTANT = @16 #, 00000236 rT O000f0 
NATANT = @113 @>» 06000237 T Od00010 
ARSINI = @116 90000238 T 0000%0 
GAMMA] = -@126 #p 00000239 Tr 000070 
ENITITCEDITITI*EDITIT2*EDITIT3*EDITIT4ZEDITITS) = PCMKS» 00000240 T 0000!0 
EDITITLeEDITIT2sEDITITSs»CmL ye CEDITIT4 I» CEDITITS)» oo00d241 yr 000080 
@L53RS8501F Att ]sXCHe COC) #s o0000242 T O0000t0 
% EDITITCBUFFADDRESSsFIELDWIDTHCW)»s TYPE sLOWPARTsHIGHPART ) 00000243 tT 000010 
% WILL EDIT THE VALUE CLOWPART*HIGHPART) INTO A FIELD 00000244 Tr 000010 
% STARTING AT BUFFADDRESS, EDITIT RETURNS THE ENDING 00000245 T 000080 
% ANDRESS.» THE WIDTH OF THE EDITED FIELD IS CONSTRAINED 00000246 fF 000010 
% TO W CHARACTERS CEDITED VALUE IS RIGHT JUSTIFIED WITH 00000247 T 000080 
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¥ LEADING BLANKS IF W IS LARGER THAN NEEDED) =" BUT IF 00000248 FT O0000!0 
% W=Os THEN EDITIT WILL ANJUST THE FIELD WIDTH TO 00000249 Tr 000080 
% ACCOMODATE FULL NUMERICAL SIGNIFICANCE. TYPES2 => EDITIT 00000250 7 0000!0 
% WILL CHOOSE BETWEEN REAL» INTEGERs AND QOUBLEPRECISION 00000251 T 000030 
* EDITING CDOUBLEPRECISION IS USED IF LOWPART<O), 00000252 T O000%0 
% TYPE=4 => USE. ONLY INTEGERe TYPE&3 => USE ONLY REAL» 00000253 T 000080 
% TYPES4 => USE ONLY LOGICAL» TYPES5 => USE ONLY DOUBLE*= 00000254 T O0000!0 
% PRECISION, 00000255 T O000%0 
CTC = 333333154» 06000300 fT Q0000!0 
CTF = 18:33:15#, 00000400 T 0000%0 
FTC = 332482 15#> 00000410 T 000010 
FTF = {B318315%, 00000420 tT 0000!0 
cr = 33°45k-s 00000500 T 000010 
FF = 1891583 00000600 fT O000t0 
REAL JUNK = A 00000700 T 0000%0 
NAME MEM=2» M=2» MEMORY=2 3 00000710 T O000%0 
REAL RBLKCNTRL = 53 00600750 tT 000030 
NEFINE DUMPNOWCDUMPNOW1)=P COUMPNOW42024BsCOMsDEL DEL He 00000775 +t O000%0 
TRACENOWCTRACENOW1Ls TRACENOW2) = 00000780 7r 000080 
PCTRACENOWI sds TRACENOW2 a+ 2 4BeCOMSDELSDEL #3 00000785 T 0000!0 
PROCEDURE OUTPUTINTCTEN® FILX» CHSKPs LNSKPs FIs FRMT» LISX)3% SWE 00000800 fr 000080 
START OF REL SEGMENT# DISK ADDRESS = 90005 
VALUE CHSKPs LNSKPs Fle LISXs% SWF 00000900 T o000%0 
NAME FILKs% : ZWF 00001000 T O000%0 
ARRAY TENC eI * FRMTCHI5% ZWF 00001100 rT O000!0 
REAL LISX3% SWF 00001200 Tt 0000!0 
INTEGER CHSKPs LNSKPs FIR% pegeoeeet SWF 08001300 rT 0000!0 
FORWARDS4 CODE= ey INTRINSIC NUMBERF@ 1} SWF 00001400 r 000080 
PROCEDURE INTRINSICCDUPEs Ds» NUMDIMs SIZE» TYPE)3% ZWF 00001500 T 000080 
START OF REL SEGMENTS DISK ADDRESS = 60005 
VALUE DUPE» Ds NUMDIMs SIZE,» TYpPEs% ZW 00001600 T 000030 : 
NAME N34 aWF 00001700 T dO000%0 
ARRAY DUPEC*I3% ZWF 00001800 T 0000!0 
INTEGER NUMDIMs SIZEs TYPES% peyc eree aWF 00001900 T 000080 
FORWARD? % _ CODES32600000» INTRINSIC NUMBER&@ 2 SWF 00002000 T 000080 
PROCEBURE INPUTINTCTEN? FILXs DKADRs AcTs% aWF 00002100 T 00000 
START OF REL SEGMENTS DISK ADDRESS = 00005 
Fle FRMTs LISXs EQFLs PARL D3 SWF 00002200 T 90000!0 
VALUE ACTs FI3% aWF 00002300 T 0000t0 
NAME FILX» LISXs% awe 08002400 T 0000t0 
ARRAY TENL*]* FRMTC#)3% aWF 08002500 T 000080 
REAL EOFLs PARL3% BWP 00002600 T O0000%0 
INTEGER  MKADRe ACT? FI3% Qo oucowe AWE 00002700 T 00000 
FORWARDS CODESS6686000+ INTRINSIC NUMBERs@ 3 . BWP 00002800 rT 000080 
PROCEDURE DISKSORT(Ti1» T2s RELA» ENDQ@s BINGOs IPFIDXs% SWF 00002900 fT O00080 
4 START OF REL SEGMENTS DISK ADDRESS = 90005 
QOUTPRO» INPROs OUTFs INFe OPTOGs IPTOGs OKO» DKIs% ZWF 00003000 T 000080 
TPis TP22 TP3e TP4s TP52 NT» HIVALUs EQUALS >% AWE 00003100 T d000t0 
R» ALFAs CORESIZEs DISKSIZE)3% SWF 06003200 T 000040 
VALUE OPTOGs IPTOGs NT# HIVALUs EQUALS» Re ALFAs% SWF 00003300 T 000080 
CORESIZE»s DISKSIZE#% AWE 00003400 T 000030 
NAME = -TPLe TP25 TP3s TP4e TPS3% zWF 00003500 7 000080 
REAL Ti» Tée RELA» ENDG@e BINGO, IPFIDXs OQUTPROs INPROs% BWE 06003600 7 000080 
NUTFs INF» OKO» DKIs NTs HIVALUs EQUALS» CORESIZEs2% XW 00003700 T 90000%0 
BOOLEAN QOPTOGs I[PTOGs ALFA3% aw 00003800 rT 0000!0 
INTEGER Rs NISKSIZEs% Bo 70 o6e0) AWF 00003900 rT 0000!0 
FORWARDS % CONDE S39400000% INTRINSIC NUMBERS@ 4 aWF 00004000 T dO000!0 


& 
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R JR MPINTCS! 2B as % 00004100 000010 
PAL PROC EEURE OU CAT R Ne ONE CoeS, TLREee” START OF REL SEGMENTS DISK ADDRESS = 00005 

TENS» ALFA» CHARs FIEL» FORMT)3% Swe 00004200 7 0000!0 

VALUE SNe CVs BVe TIPEs TENS» ALFAs CHAR» FORMT3% “WF 00004300 T 0000%0 

NAME FIELS% ZWF 00004400 T 000080 

REAL SN» CVs BVs TIPE» TENSs ALFAs CHARs FORMT3% WF 00004500 T o0000%0 

FORWARD % CODE=42000000»% INTRINSIC NUMBERS@ 5 “Wr 00004600 T 000030 

PROCEDURE XTOTHELINTCBASE*® EXPONs Ms LOGs EXP)3% %WF 00004700 tT Od000t0 
START OF REL SEGMENT? DISK ADDRESS = 90005 

VALUE BASE» EXPONs Ms LOG» EXP3% SWF 00004800 T 000030 

REAL. BASE» EXPON»s My LOG» EXP3% SWF 00004900 T o000080 

FORWARDS & CODE42254000% [NTRINSIC NUMBER#@ 6 ZWE 00005000 T 0000t0 

REAL PROCEDURE ABSINTCX)3% ‘WF 00005100 T o000t0 
START OF REL SEGMENT? DISK ADDRESS = 00005 

VALUE X3% “WF 00005200 T 0000t0 

REAL ree: 2WF 00005300 T 9000%0 

FORWARDS % CODES INTRINSIC NUMBER=@ 7 ZW 00005400 T 000080 

REAL PROCEDURE SIGNINT(CX)3% “WF 00005500 T 000080 — 

START OF REL SEGMENTS DISK ADDRESS = 90005 

VALUE X5% ZWE 00005600 T 0000t0 

REAL X3% %WE 00605700 T 0000!0 

FORWARDS % CODES INTRINSIC NUMBER#=@10 ZWF 00005800 T 000010 

INTEGER PROGENURE ENTIERINTCX)3% ZWF 00005900 T 900010 
START OF REL SEGMENTS DISK ADDRESS = 90005 

VALUE x 3% SWF 00006000 T 0000%0 

REAL x3% ZWE 00006100 7 000080 

FORWARDS % CONES INTRINSIC NUMBER=@114 %WF 00006200 T 0000!0 

REAL PROCEDURE TIMEINTCX)3% SWF 00006300 T 0000!0 
START OF REL SEGMENT? DISK ADDRESS = 00005 

VALUE M5 SWE 00006400 T a0dntO 

REAL, “ER %WF 00006500 T 0000!0 

FORWARDS % CODES INTRINSIC NUMBERS@12 SWF 00006600 T O0000%0 

PROCEDURE SQRTINT(CX)3% “WE 00006700 T 0000!0 
START OF REL SEGMENT? DISK ADDRESS = 690005 

VALUE X3% SWE 00006800 Tt 0000!0 

REAL x3% ZWE 00006900 T O000t0 

FORWARD} % CODE= INTRINSIC NUMBERS@13 “WE 00007000 T 0000!0 

PROCENYRE SININT(X)3% SWF 00007100 T 000010 
START OF REL SEGMENTS DISK ADDRESS = 90005 

VALUE X3% GWE 00007200 T O0000t0 

REAL . xa% Swe 00007300 T O0000t0 

FORWARDS % CODES INTRINSIC NUMBER#=@14 %WE 00007400 T O000!0 

PROCEDURE COSINT(X)#% ZWF 00007500 T 000030 
START OF REL SEGMENT? DISK ADDRESS = 90005 

VALUE x5% SWF 00007600 T 900010 

REAL X5% | %WE 00007700 T o000a!0 

” FORWARDS CODES INTRINSIC NUMBER#=@15 “WF 00007800 T 000010 

REAL PROCEDURE ARCTANINT(X)3% é %WF 00007900 T 0000!0 
START OF REL SEGMENTS DISK ADDRESS # 00005 

VALUE X3% SWF 00008000 T o0000!t0 

REAL X3% “WE 00008100 T 000010 

FORWARDS% CODES INTRINSIC NUMBERS@16 ZwWF 00608200 T 000080 

PROCEDURE LNINTCX)3% SWF 00008300 T O000!0 
START OF REL SEGMENTS DISK ADDRESS = 00005 

VALUE X3% SWE 00008400 T 000010 

REAL X3% SWE 00008500 7 0000!0 

FORWARD} % CODE= INTRINSIC NUMBERS@47 SWF 00008600 T 0000t0 


i er er 


REAL PROCEDURE EXPINTCX)3% 


VALUE 


NAME 
REAL 


BOOLE 
INTEG 


PROCEDUR 


START 
VALUE X3% 
REAL an . 
FORWARDIS CODE= INTRINSIC NUMBER=@20 
REAL PROCEDURE GOTOSOLVERINT(L» Xs» Fe BI3% 
START 
VALUE te Xs Fe BSS 
ARRAY FL*¥I3% 
REAL Le Xs B3h 
FORWARDS CODE= INTRINSIC NUMBER=@21 
PROCEDURE ALGOLWRITECTENs FILXs» CHSKPs LNSKPs FI» AEXP st 
START 
ARRY» LINESKIPs CHANSKIPs SUPRS» NUMWOSs TANK 132% 
VALUE CHSKP» LNSKP»s FYe AEXPs LINESKIPs&% 
CHANSKIPs SUPRS» NUMWOSs TANKS2 
NAME FILXs TANK3% 
ARRAY TEND ¥] 2 ARRY(C*)3% 
INTEGER CHSKPs LNSKPs FIe AEXPs LINESKIP s3 
CHANSKIPs SUPRS* NUMWDS3% pop ourto 
FORWARD?% CODE=26006000» INTRINSIC NUMBER=@22 
PROCEDURE ALGOLREADCTENs FILXs DKADDs aCTs FIle AEXPs% ; 
STAR 
ARRY»s EQFLs PARL» DKADRse CODE» TANK)3% 
VALUE ACT» FIs AEXPs DKADRs CODE*s TANK3% 
NaMe FILX» TANK3% 
ARRAY TENC#] 2 ARRY(*13% 
REAL NKADDs EQFLs PARL» ODKADR»e CODE#4% 
INTEGER ACT» FIs AEXP3% wesoocco 
FORWARDS % CONEsSueoeeees INTRINSIC NUMBER=@23 
PROCEDURE ALGOLSELECTCACTI» ACT2s TANK» I)3% 
START 
VALUE ACTi» ACT2s TANKs 13% 
NAME TANK3% 
INTEGER ACTis ACT2s [3% 
FORWARDS &: CODE= INTRINSIC NUMBER=@24 
PROCEDURE COBOLFCRs4% 
START 
FORWARD S% CODE=43000000% INTRINSIC NUMBER=@25 
PROCEDURE COBOLIO; % GO TO 02700000 
ae aes Lo a START 
FORWARD? 2S. COPE=43230000+ YNTRINSIC NUMBERS@26 
“PROCEDURE POLYMERGECT1s T2s T3s ENDQs BINGOs TPFIDX+% 
START 


QUTPRO» INPRO» OUTFs INFs OPTOGs IPTOG> DKOs DKIs% 


TPie TP2es 


TP35 TP4e TPS NT» HIVALUs EQUALS »% 


Re ALFAe CORESIZE» DISKSIZE)3% 
OPTOGs IPTOGs NTs HIVALUs EQUALS» Ry» ALFAs% 
CORESIZE» DISKSIZE#% 


TP1s TP2s 


‘TP34 TP4e TPS3% 


Tis T29 T3s ENDQs BINGO» yPFIDXs OQUTPROs INPROSS 
QUTF» INFs DKOs DKI» NT» HIVALUs EQUALS» R» CORESIZE; 
AN OPTOGs IPTOGs ALFA#% 


ER DISKSIZE3% 


FORWARD; % 
E STATUSINT(Ts 


CODE=40140000» INTRINSIC NUMBER=6@27 
C)3% 
START 


SWF 
OF REL 
SWF 
4WF 
SWF 
SWF 
OF REL 
SWF 
“wr 
Swe 
SWF 
WF 
OF REL 
Swe 
SWF 
ZWe 
SWE 
aWF 
2We 
4WF 
*WE 
ZWF 
OF REL 
awe 
%WE 
aWF 
ZWF 
ZW 
Swe 
%wF 
%WE 
OF REL 
ZWF 
SWE 
awe 
ZW 
ZWF 
OF REL 
SWF 


OF REL 
SWF 
SWF 
OF REL 
aWE 
aWF 
ZWF 
*WE 
SWF 
WF 
ZWF 
%WF 
2WF 
SWE 
SWF 
2WF 
OF REL 


00008700 
SEGMENTS DISK 
00008800 
00008900 
00009000 
00009400 
SEGMENT* DISK 
06009200 
00009300 
00009400 
00009500 
00009600 
SEGMENT? DISK 
00009700 


06009800 © 


00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 

SEGMENTS DISK 
00010600 
00010700 
00010800 
00010900 
00011000 
00011100 
00011200 
00011300 

SEGMENTS DISK 
00011400 
06011500 
00011600 


00011700 ° : 
T 000010 


09011800 
SEGMENTS DISK 
00011900 
00012000 
SEGMENT3 DISK 
00012100 
00012200 
SEGMENTS DISK 
00012300 
00012400 
00012500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 
06013300 
00013400 
SEGMENTS DISK 


yr 000030 
ADDRESS = 
T 9000010 
T OOooCoHO 
rT 0000!0 
tr 0000:0 
ADDRESS .s 
rT oOdd0t0 
y o000%0 
T OO00010 
T oo00ddfO 
y 000010 
ADDRESS. = 
tT OO0OdCHO 
T 000010 
T 000010 
T OO00tO 
T 000080 
T 000030 
r ooonto 
T 0000!0 
T (00080 
ADDRESS 5 
T Q000t0 
T 000010 
tT 9000tO 
7 g00010 
rT O000t0 
T O00OtO0 
T 000010 
T O000%0 
ADDRESS = 
y 000010 
ry 0000!0 
T 000010 
Tt 000010 


ADDRESS # 
T 000080 
T G00Q!0 


ADDRESS = 


T OOOdotO 


‘7 «900080 


ADDRESS «& 
T oOOodcotO 
T O00080 
T. OOCoTO 
T 000040 
T 000010 
7 000030 
T Q000t0 
rT 6000!0 
T 000040 
T O000!f0 
T O000190 
T 000080 
ADDRESS = 


00005 


00005 


90005 


90005 


00005 


00005 


g0005.. 


90005 


00005 
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VALUE Te CHR 
REAL T34 
INTEGER C3% 
FORWARDS& CODES INTRINSIC NUMBER=@30 
REAL PROCEDURE MAXINTCX)3% 
VALUE X3% 
REAL Kh 
FORWARD? % CODE= INTRINSIC NUMBERS=@31 
REAL PROCEDURE MININTCX)3% 
VALUE XiR 
REAL X34 
FORWARDS % CODE= INTRINSIC NUMBER#@32 


PROCEQURE DELAYINTCARRYs MASKs TIME )3% 


VALUE ARRY, MASK» TIMES% 


ARRAY ARRYL*I]3% 
REAL MASK3% 
INTEGER TIMES 
FORWARD3&% CODE= INTRINSIC NUMBER#@33 
PROCEDURE SUPERMOVERINTCSORCEs DEST» AEXP)3% 
VALUE AEXP34% 
ARRAY SORCEL*1], DESTC #134 
INTEGER AEXP34 
FORWARD?& CODES INTRINSIC NUMBER#@34 


PROCEDURE SISq3 FORWARD3 ZINT#35»S£EQ#08400000 


INTEGER PROCEDURE DELTACP1sP2)54INT#36,SEQ#00022300 


INTEGER PisP23 
FORWARD; 


FORWARD: 
ZINT#37sSEQ#00022500 


VALUE PisP23 
PROCEDURE [CVp3 


PROCEDURE DYNAMICDIALERCBs As Xs F)3 


VALUE Be As Xe Fa 
INTEGER Bs Ae ¥3 BOOLEAN F3 


FORWARDS &% CODE=00022700»% INTRINSIC NUMBER=@40 
PROCEDURE SCANCUPDPDD »PTR»UPDCOD »sHISCOUNT eCASECODE e CHAR D3 


VALUE PTR» HISCOUNTs CASECQDEs CHAR; 

NAME URDPODs UPDCDDS 

INTEGER PTR» HISCOUNTs CASECODEs CHAR 

FORWARNA; 
PROCEDURE REPL 


FORWARD; ZINT#42. SEQ#08420000 


PROCEDURE COMPARE JF ORWARDS ZINT#43 2 SEQ#08430000 


PROCEDURE BASICPRINTCTYPE)3 


VALUE TYPES 
REAL TYPES 
FORWARD} % CODESO8500000» INTRINSIC NUMBERe@44 


PROCEDURE SWAP: ‘FORWARD; ZINT#H45s SEQ#00023700 


PROCENURE BASICINPUTCTYPES)3 


START 


START 


START 


START 


START 


START 


START 
START 


START 


START 
START 
START 


START 


SW 
WE 
ZW 
SWE 
Swe 
oF 

Swe 
XWF 
SW 
ZWF 
OF 

Zwe 
Swe 
SWF 
awe 
oF 

ZW 
SWF 
Zwe 
SWF 
Zw 
ZWFe 
OF 

SWF 
SWF 
“We 
ZWE 


OF 


OF 


OF 
OF 


OF 


OF 
OF 
OF 


OF 


REL 


REL 


REL 


REL 


REL 
REL 


REL 
REL 


REL 


REL 
REL 
REL 


REL 


00013500 
00013600 


00013700 
00013800 
00013900 
SEGMENTS DISK 
00014000 
00014100 
00014200 
00014300 
SEGMENTS DISK 
00014400 
00014500 
00014600 
00014700 
SEGMENT$ DISK 
00014800 
00014900 
00015000 
00015100 
00015200 
00015300 
SEGMENTS DISK 
00015400 
00015500 
00015600 
00015700 
00015800 
SEGMENT$ DISK 
00015900 
SEGMENTS DISK 
00015950 
00016000 
SEGMENTS DISK 
00016100 
SEGMENT? DISK 
00016110 
00016120 
00616130 
00016200 


SEGMENTS DISK 


00016210 
00016220 
00016230 
00016240 
00016300 


SEGMENTS DISK 


00016400 


SEGMENT? DISK 


00016500 
SEGMENT3 DISK 
00016510 
00046520 
00016530 
00016600 
SEGMENTS DISK 
00016700 


T O000t0 
rT 000030 
tT 000080 
T O0O0t0 
T 000080 
ADDRESS = 
T 0000%0 
T O000%0 
ry 0000:%0 
rT 0000:0 
ADDRESS = 
T OO00O!0 
T OO00%0 
T 0000%0 
yT O000fO 
ADDRESS = 
T 0000%0 
rT O000f0 
YT 000080 
T Q000%0 
rT O0d0TO 
T 0000%0 
ADDRESS = 
T  Q0O00TO 
T oOO00t0 
T O0OOn?0 
T 000030 
7 000010 
ADDRESS = 
T 000070 
ADDRESS = 
7 O000t0 
tT 000010 
ADDRESS = 
T 000010 
ADDRESS = 
T O00080 
T 0000:0 
T oodoto 
T 000080 
ADDRESS. = 
T OO000fO 
T 000080 
Ty OQ000!0 
rT oOOo00!0 
T 0000!0 
ADDRESS = 
T Q000f0 
ADDRESS = 
r 000030 
ADDRESS = 
T QO00080 
7, 000010 
T 000080 
T O000!%0 
ADORESS = 
T O000!0 


00005 


00005 


00005 


00005 


90005 
00005 


00005 
00005 


00005 


00005 
90005 
00005 


60005 


@®eeeeesxeeeeeee#e# ees e | eo ® | e @ @ 8 


Fuk AME 029$2500 


0 RTPA EERIE 
O29 7TECE 


cP 


FOUTKANE 2 90iDo | 
POU TEAME SPRUE ES 


(hor all.o PeRTEMIRLEKAD tin e12c ee PROCEDURE 


» abue ETeuT Fix Dati boo\— PROCEDURE 


CODESO08700000» 


CODE=08600000» INTRINSIC NUMBER=@47 
bite OL80 CFCO 


VALUE TYPES: 
REAL TYPES3 
FORWARDS % 
PROCEDURE READATACTYPE)3 
VALUE TYPES 
REAL TYPES 
FORWARD} % 
FTINT § FORWARDS 
FTOUT 3 FORWARDS. 
PROCEDURE DABS 3 FORWARDS 
PROCEDURE CABS + FORWARDS 
PROCEDURE AINT 3 FORWARDS 
PROCEQURE MATH 3 FORWARD; 
PROCEDURE XTOI ¢ FORWARDS 
PROCEDURE IDINT # FORWARD; 
PROCEDURE FLOAT # FORWARDS 
_ PROCEDURE SNGL $ FORWARDS 
PROCEDURE DBLE 3 FORWARDS 
PROCEDURE AMON + FORWARDS 
PROCEDURE TIME + FORWARD3 
PROCEDURE DMQD + FORWARD} 
PROCEDURE ODMAX1 # FORWARD; 
PROCEDURE OMINY + FORWARDS 
PROCEDURE SIGNy 3 FORWARDS 
PROCEDURE DSIGN 3 FORWARDS 
PROCEDURE DIIM + FORWARD; 
PROCEDURE REALP $ FORWARD} 
PROCEDURE AIMAG + FORWARDS 
PROCEDURE CMPLX } FORWARD} 
PROCEDURE CONJG + FORWARDS 
PROCEDURE DEXP. 3 FORWARD 


% 


% 
% 


050 
O51 


052 


053 


054 
055 
056 


057 


060 
064 
062 
063 
064 
065 
066 
067 
070 
071 
O72 
073 
074 
075 
076 


077 


al Sat na 
Aik ©L4O COCO 


INTRINSIC NUMBERS@46 


START 


START 


START 
START 


START 


START 


START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 


OF 


OF 


OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 


REL 


REL 


REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 


SEGMENTS DISK 
00016710 
00016720 
00016730 
00016800 

SEGMENTS DISK 
00016810 
00016820 
00016830 
00016900 

SEGMENTS DISK 
00017000 

SEGMENT$ DISK 
00017100 

SEGMENT$ DISK 

00017200 

SEGMENT$ DISK 
00017300 

SEGMENT3 DISK 
00047400 

SEGMENTS DISK 
00017500 

SEGMENTS DISK 
00017600 

SEGMENTS DISK 
00017700 

SEGMENT3 DISK 
00017800 

SEGMENTS DISK 
00017900 

SEGMENTS DISK 
00018000 

SEGMENT$ DISK 
00018100 

SEGMENTS DISK 
00018200 

SEGMENTS DISK 
00018300 

SEGMENTS DISK 
00018400 


SEGMENT? DISK 


00018500 
SEGMENT3 DISK 
00018600 
SEGMENTS DISK 
00018700 
SEGMENTS DISK 
00018800 
SEGMENTS DISK 
00018900 
SEGMENTS DISK 
00019000 
SEGMENT} DISK 
00019100 
SEGMENTS DISK 
00019200 
SEGMENT DISK 


ADDRESS = 
T 000080 
T 000010 
T 0000%0 
T 000030 
ADDRESS = 
T 000010 
T 000010 
T 0000t0 
T 000040 
ADDRESS = 
T 000080 
ADDRESS = 


‘T 000070 


ADDRESS = 
T O000t0 
ADDRESS -« 
yr oacedto 
ADDRESS = 
, 00008%0 
ADDRESS = 
T oOooor0 
ADDRESS «= 


‘TT oO000f0 


ADDRESS = 
tT ©0000!0 
ADDRESS = 
T 000010 
ADDRESS # 
T 0000%0 
ADDRESS = 
T oO000%0 
ADDRESS = 
rT O000:0 
ADDRESS = 
7 Q00080 
ADDRESS: = 
T O00Q0t0 
ADDRESS = 
T 0000!0 
ADDRESS = 


TT 000010 


ADDRESS = 
T O000%0 
ADDRESS = 
T 000030 
ADORESS = 
y Q000%0 
ADDRESS # 
tT 000010 
ADDRESS = 
yr 900020 
ADDRESS »s 
T 000030 
ADDRESS = 


‘Ty 000080 


ADDRESS = 


00005 


00005 


60005 
00005 
00005 
00005 
00005 
90005 


00005 


0000s 
00005 
90005 
90005 
00005 


00005 


90005 
00005 


00005— 


00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 


@eeeeee%eeee%eee¢8ee eee e e o ee 


PROCEOURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


PROCENURE 
PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEQURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEQURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


CEXP 3 FORWARD 
DLOG $ FORWARDS 
CLOG $ FORWARDS 
ALOG103 FORWARDS 
DLOG103 FORWARDS 
DSIN $ FORWARDS 
CSIN + FORWARD: 
peoS + FORWARD; 
CCOS $ FORWARDS 
TANF 3 FORWARDS 
COTAN # FURWARD3 
DATAN 3 FURWARDS 
ATAN2 3 FORWARDS 
DATAN23 FORWARDS 
ARSIN 3 FORWARD} 
ARCOS 3 FORWARDS 
SINH 3 FORWARD 
COSH 3 FORWARD; 
TANH 3 FORWARDS 
DSQRT 3 FORWARD: 
CSORT 3 FORWARD; 
ERF 3 FORWARDS 
GAMMA 3 FORWARD} 
ALGAMA3 FORWARDS 
ANDI 3 FORWARD 
ORI 3 FORWARDS 
CMPL 3 FORWARDS 
EQUIVPS FORWARDS 
FORTERR3 FORWARD; 


START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 
START 


START 


OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
OF 
oF 
OF 
OF 
OF 
OF 
OF 
OF 
oF 
OF 
OF 
OF 
OF 
OF 
OF 


OF 


REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL 
REL. 
REL 
REL 
REL 
REL 
REL 
REL 


00019300 
SEGMENTS DISK 
00019400 
SEGMENTS DISK 
00019500 
SEGMENTS DISK 
00019600 
SEGMENT? DISK 
00019700 
SEGMENT? DISK 
00019800 
SEGMENT$ DISK 
00019900 
SEGMENT? DISK 
00020000 
SEGMENTS DISK 
00020100 
SEGMENTS DISK 
00020200 
SEGMENT} DISK 
00020300 
SEGMENTS DISK 
00020400 
SEGMENTS DISK 
00020500 
SEGMENT? DISK 
00020600 
SEGMENTS DISK 
00020700 
SEGMENTS DISK 
00020800 
SEGMENT3 DISK 
00020900 
SEGMENTS DISK 
00021000 
SEGMENTS DISK 
00021100 
SEGMENTS DISK 
00021200 
SEGMENTS DISK 
00021300 
SEGMENT3 DISK 
00021400 
SEGMENTS DISK 
00021500 
SEGMENT3 DISK 
00021600 
SEGMENTS DISK 
00621700 
SEGMENT$ DISK 
00021800 
SEGMENTS DISK 
00021900 
SEGMENT? DISK 
00022000 
SEGMENT3 DISK 
00022010 


T 000010 
ADDRESS = 
T 000010 
ADDRESS = 
T O000t0 
ADDRESS = 
T OOd0at0 
ADDRESS «= 
tT O000%0 
ADDRESS «= 
T oO000%0 
ADDRESS = 
T O0gont0 
ADDRESS -# 
T 00080 
ADDRESS = 
T 000010 
ADDRESS = 
7 OOOotO 
ADDRESS = 
T 060010 
ADDRESS = 
T O00nt0 
ADDRESS = 
T 0000!0 
ADDRESS «= 
T Q000!0 
ADDRESS = 
T 000080 
ADDRESS = 
T oO000f0 
ADDRESS = 
T 0000:0 
ADDRESS = 
rT O000t0 
ADDRESS = 
T OOOgt0 
ADDRESS = 
T o0000%0 
ADDRESS = 
T 000020 
ADDRESS «= 
T O0000t0 
ADDRESS « 
T O000!0 
ADDRESS = 
T aQ000f0 
ADDRESS = 
T O0000!t0 
ADDRESS = 
T Od00t0 
ADDRESS = 
T OOOGtO 
ADDRESS « 
T 000010 
ADDRESS = 
y 000010 


00005 
00005 
g0005 
00005 
00005 
00005 
00005 
00005 


00005 _ 


00005 
00005 
90005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
00005 
90005 
00005 
00005 
00005 
00005 
00005 


; START OF REL SEGMENT? DISK ADDRESS = 00005 
PROCEDURE MAX FORWARDS % 135 00022011 T 0000%0 


START OF REL SEGMENT$ DISK ADDRESS = 90005 

PROCEDURE MIN$ FORWARD$ % 136 00022012 T 000030 
START OF REL SEGMENT3 DISK ADDRESS = 90005 

PROCEDURE IMOD3 FORWARDS % 137 00022013 T 0000%0 
START OF REL SEGMENTS DISK ADDRESS = 00005 

PROCEDURE CONCAT# FORWARDS % 140 00022014 T 0000!0 
START OF REL SEGMENTS DISK ADDRESS = 00005 

PROCEDURE C8NCAT3 00022020 T 0000!0 
| START OF REL SEGMENTS DISK ADDRESS = 00005 

FORWARD? 2 CODE=O08400000» INTRINSIC NUMBER#S@140 00022025 T o000!0 

PROCEBURE MATRIXDIODLERCAs Be Ce TYPE)$ 00022030 T 000030 
START OF REL SEGMENT} DISK ADDRESS = 00005 

VALUE Ae Bs Cy TYPES 00022032 T 0000!0 

ARRAY AC*]» BLele CL*73 00022034 tT 000030 

INTEGER TYPE? 00022036 T 000010 

FORWARDI CODEFOSRO00000s INTRINSIC NUMBERB@c4e 00622038 T O000!0 

PROCEDURE INVERTCAs B)3 ; 00022040 T O000!0 
START OF REL SEGMENTS DISK ADDRESS = 00005 

VALUE As BI 00022050 T 000030 

ARRAY ACe]s Bred; 00022060 T 0000!0 

. FORWARD? % CODES09100000» INTRINSIC NUMBERS@142 00022070 T 00000 

PROCEDURE TRANSPOSECA, B23 . 00622080 T 0000!0 
START OF REL SEGMENT$ DISK ADDRESS = 00005 

VALUE As B3 00622090 T 0000%0 

ARRAY AL*]» Brad; 00022100 T a000t0 

FORWARD? % CODEs08900000» INTRINSIC NUMBERS@4143 00022110 T o0000!0 

PROCEDURE MATRIXMULTIPLYCAs Be C)3 00022120 T O000%0 
: START OF REL SEGMENT$ DISK ADDRESS = 00005 

VALUE A» Be C3 00022130 T 0000!0 

ARRAY AC*]+ Boal» Cl*}3 00022140 T 0000%0 

FORWARD? % CODE=09000000» INTRINSIC NUMBER=@144 00022150 T O0000t0 

PROCEDURE RANDOMCNUMBER»s BASE)3 00022160 T 0000!0 
START OF REL SEGMENT$ DISK ADDRESS = 00005 

VALUE NUMBER3 00022162 T 000010 

REAL NUMBERS 00022164 T O000t0 

INTEGER BASES 00022166 T 0000!0 

FORWARD3 % CODE=00022900» INTRINSIC NUMBERS@145 00622168 T O000!0 

PROCEDURE FORTRANFREEREADS 00022170 T o000!0 
as START OF REL SEGMENT? DISK ADDRESS = 00005 

FORWARD3% CODES09200000» INTRINSIC NUMBER=@146 00622175 T 000080 

PROCEDURE BASICLOSECFILX)3- 00022180 T a000t0 
START OF REL SEGMENT3 DISK ADDRESS = 90005 

VALUE FILX3 NAME FILX3 00022185 T O000t0 

BEGIN REAL SELECT=14» ALGOLWRITE=12; ARRAY AIT#6([*)}3 00022190 T 00080 

REAL Tels. ARRAY FIBC*]3 NAME Maas 00022195 T 000010 

SUBROUTINE MAYBEPRINTS | 00022200 T 00000 

BEGIN FIBS=FILXCNOT 272 00022205 T 000110 

IF FIB£E5],04123)20 THEN %NOT CLOSED*NOT INPUT 00022210 T 000283 

IF FIBC4],0C8%4) NEQ 10 THEN %NOT DATA CoM 00022212 T 0004%1 

IF FI8C203,03:15)]40 THEN % DATA LEFT 00022215 T 000681 

POMKS» 120202 (CFIBL20),018310]41) sFILXsALGOLWRITE)S 00022220 T O008t1 

ENDS 00022225 T 001183 

IF PceFILXsLO0)s0 THEN %EOJ FILE CLOSE 00022230 7 001230 

BEGIN I$=AITCO]4+13 WHILE CTEsaAITLE1221"11).082107 NEQ O 00022235 T 001333 

po IF T,f€424] THEN 00022240 T O018%4 


BEGIN FILX$=MCMCTe#£162159)] INX 413 MAYBEPRINT ENDS 


END ELSE *#FILE RESTORE 
BEGIN MAYBEPRINT3 


END3 


POMKSs2e2O0sCFILXCNOT 231,4sSELECT)3 
FIBCODS=FIBCSIISFIBL 20] s=F1BL 21) 8203 


END BASIC FILE RESTORES 


PROCEDURE FILEATTRIBUTESCTsEsDeVeGele TNs VALUE Tele VeDeG3 REAL DeGelo kf} 
START OF REL SEGMENT3 DISK 


INTEGER V3 ARRAY TNOE*}]3 NAME TS FORWARD3 % CODE @ 0043000» INT # @150 
PROCEDURE COBOLDECIMALTOOCTALCONVERTCA); % INT #5@151* CODE#09300000 


START OF REL 


VALUE A} NAME A$ FORWARD 3 


PROCEQURE COBOLOCTOLTODECIMALCONVERT(C As, Hs RaNoSeoT)3 & INT #20152 


VALUE LeoHseReNeSeT3 REAL LeHesReNoSeT3 NAME A$ FORWARD? &% CODE=09400000 
PROCEDURE FORTRANFREEWRITECF sDeReWolLelsneS)3 VALUE IeDeRewels 


START OF REL 


PROCEQURE FINNAME3 FORWARDS 


INTEGER Re 
‘START OF REL 
W3 REAL ITeDel 3 NAME FS ARRAY SC*JeNE*I$3 FORWARD #2COD @02976019,INT@153 


START OF REL 


PROCEDURE FOUTNAMES FORWARD} 


PROCEDURE FTINTFIXCF1,0loF2eF3eL1,612E2,P1)3 VALUE DisF2eLisE1,b2sP1 3 
j17¢0E RO 
REAL DisF2sLivsEtrE2sP13 


START OF REL 


START OF REL 
ARRAY F30L%*]3 NAME F13 FORWARDS & INTRINSIC @156. 


PROCEDURE FTOUTFIXCFsDeReQoleEsELePL)s VALUE DeReLsEoELePLs REAL De ReLlLek 
START OF REL 


rEL»PL3 NAME F3 

PROCEDURE FBINBACKBLOCKCF1sDoF2sF 3eLeELsE2eP4)3 
GLICT ESP 

REAL DeF2eLsEleE2ePis ARRAY F3C*]3 NAME F13 FORWARDS & INT # @160, 


ARRAY QC*]3 FORWARD 3 % CODE AT SEQ # 02886040, 


PROCEDURE COBOLVARSZs FORWARDs% CODE=09500000 INT #161 


PROCECURE COBOLIONONOSKS FORWARD3% COpE=09600000 INT #=@162 
PROCEDURE COBOLIOOSK# FORWARD#% CODE=09700000 INT #30163 


PROCEDURE COBOLATTS FORWARDS % CODE = 02650000 INT # = @465 


START OF 
PROCEDURE FORTRANMEMMANDLER(CAsH)F VALUE HF REAL HS ARRAY AL*]3 FORWARD 2164 


VALUE DeF2eLeE1sE2eP1 5 
START OF REL, 


START OF 
START OF 


INT@457 


; 


REL 
REL 
REL 


START OF REL 


CJC 1031 


START OF REL 


PROCENURE INTERRUPTERS FORWARD? % CODEs098000005 INT #50166 


START OF REL 


PROCEDURE COBOLDC$S FORWARDS % CODE = 02690000 INT #20167 


START OF REL 


INTEGER PROCEDURE DELTACP1sP2)3 VALUE PisesP2s REAL PieP23 


BEGIN 
NEF INE 


START OF REL 


DOT=(18213)4s AMPER=C18%352131 43 


COMMENT @4000000=2%20% WHICH IS 41 LARGER THAN ANY 6500 COUNT,3 


00022245 
00022250 
00022255 
00022260 
00022265 
08022270 
00022275 


5 


T 002010 
T 002532 
T 002532 
T 0027320 
r 002931 
T 0033%2 
T 0033%2 
IZE= 0034 


00022280 T 000080 


00022281 
00022282 
SEGMENTS DISK 
00022283 
00022284 
SEGMENTS DISK 
00022285 
00022286 
SEGMENT DISK 
00022287 
08022288 
SEGMENT3 DISK 
00022289 
SEGMENTS DISK 
00022292 
SEGMENTS DISK 
00022293 
00022294 
SEGMENT? DISK 
00022295 
00022296 
SEGMENTS DISK 
00022297 
00022298 
SEGMENTS DISK 
00022299 
SEGMENT3 DISK 
- 00022300 
SEGMENTS DISK 
00022304 
SEGMENT? DISK 
00022302 
SEGMENTS DISK 
00022303 
SEGMENTS DISK 
00022304 
SEGMENTS DISK 
00022310 
SEGMENTS DISK 
00022320 
00022330 
00022340 
00022350 


ADDRESS = 
T gOdd0tO 
rT Od0atO 
ADDRESS = 
y O000%0 
tT 000030 
ADDRESS «2 
rT 000040 
tT O000t0 
ADDRESS «= 
7 oOd0d0fO 
T 0000%0 
ADORESS = 
T oOO0d0C!0 
ADORESS = 
yr oOddntO 
ADDRESS = 
tT OO000t0 
r Ooddct0 
ADDRESS «= 
T o0000!0 
rT 0000:0 
ADORESS = 
T 0000:0 
T O000%0 
ADDRESS # 
y 000080 
ADDRESS = 
T oO0d0d0!0 
ADDRESS -= 
T ooddatO 
ADDRESS = 
T OO00QOt0 
ADDRESS = 
T oocato 
ADDRESS. = 
tr ooddto 
ADDRESS = 
y ooacntoO 
ADDRESS = 
T o0O00f0 
YT 000010 
yr 00000 
T 9000!0 


WORDS 


00007 
00007 
nooo? 
00007 


00007 
00007 


00007 
00007 
00007 


090007 


90007 


00007 
00007 
00007 
00007 
00007 


00007 


COMME 
TF ACP 


- ¥ ¥ > 
NT _DELTA=2*20 IF DESC(P1)zDESCCP2) OR CSIZE*S ARE #3 
R=P1),031217140 THEN DELTA©@4000000 ELSE 


DELTA+P2,D0T=P1,.00T3 
END DELTAS 


PROCEDURE ICVD3 %37 


BEGIN 


END Icvps 


DEF IN 
ARRAY 
NAME 
REAL 


€ NOT=Ci8%13)#, AMPERSE 
STRINGL*)3 
M = 23 


PTR==33 INTEGER New4s 


09022360 
00022370 


00022380 
00022390 


00022400 
00022500 


START OF REL SEGMENTS DISK 


18:35%t13) 4s. CSIZE=C 34202] #sS1Xz08; 


IF PTR»CSIZE*SIX THEN POLTSHCMR1£17847201129999sCDOCe DEL )3 
STRING « MEPTRI3 


NN? 


COMMENT MAKE SURE N IS 


INTEGERIZEDS 


IF N>8 THEN POLISH(M&LL 14247304] Ne COCeDEL 3 
POLISHCESTRINGLCPTR«DOTHN@1),035810]]]- DELI: 
STREAMCRESULT#O%S¢LSTRINGLCPTR«CIBt1OT3 1» Ne 


BEGIN 
OI ¢ 
SI ¢ 
DS «¢ 
ENDS 
PTR ¢ 


SKS¢PTR, 628203193. 
LOC RESULT3 

S3 SI * SI+SKS3 

N OCT3 


P3 


PROCEDURE DYNAMICDIALERCAsBsXsF) 3 


VALUE Bs 


As Xe 


F3 


INTEGER Be A» X3 BOOLEAN F3 
% ApBsXeY¥eZ ARE AS IN Y8ZCALEBIXI, 

% FSTRUE => X WAS LITERAL» AND TRB WILL BE-DONE AFTER XITING, 
REAL Yse7s Ze=6s Cstl1 j 
DEFINE Q@= @3403007777777777 4s & 


BEGIN 


Re 
$= 


% 
@®0055005500610065 He. &% 
@0055703404210435 #3 4% 


IF CAeA<1 OR CBEBI<1 OR CKXeXI<1 
THEN P(¢=63)2262COM) 3 
IF F THEN PCQsAND208&(B MOD 6)£42892372A MOD 6sDIB 7eTRB 3s 
P&CB DIV 6)0122452319A DTV 6eDIB 154TRB 3*0R2020eXIT) 3 
GO PCPCRI8¢(B DIV 6)9£1284583)2A DIV 6sDIB 24-TRB 34P&¢B MOD 6) 
Fi52923)2A MOD GeDIB 27rTRB BePRXL36t42I6 lp gArteSe Boer Va Zel[Al)3 
END DYNAMICDIALERS 


00022510 
00022520 
00022530 
00022540 
00022550 
00022560 
00622570 
00022575 
00022580 
00022590 
00022600 
00022610 
00022620 
00022630 
00022640 
00022650 
00022660 
00022670 
00022680 


00022700 


START OF REL SEGMENT DISK 


MASK FOR ZEROING QUT THE GeHe Kays 
REGISTER PARTS OF THE RCW, 
NOPsDTAsDIBsTRBe 

NOPsLITC YeSToOrXIT, 

OR X+A748 OR X+B>48 


00022705 
00022710 
00022715 
00022720 
00022725 
00022730 
00022735 
00022740 


00022745 — 


08022750 
00022755 
00022760 
00022765 
00022770 
00022775 
00022830 


T 
T 
tT 


T 
SI 


T 


T 
A 


T 
T 
T 
T 
T 
T 
T 
ig 
T 
T 
7 
T 
T 
T 
T 
T 
T 
T 
qT 

SI 


T 
A 


—§ 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
SI 


000050 
0000%0 
OO03%1 
O007%1 
ZE= 0008 


00000 
00000 
DDRESS = 
00000 
0000%0 
000030 
000010 
000030 
000010 
000410 
000532 
000684 
000932 
OO12%4 
0014? 4 


OO1Si1 


0015%1 
0015%2 
001634 
001633 
001780 
001782 
ZE= 0019 


0000%0 
DORESS = 
000080 
0000!0 
000080 
Od00t0 
0000%0 
000010 
oo00?0 
000080 
000020 
o0d0d0t0 
0006 !e 
000833 
004330 
001633 
0020%4 
002582 
ZE= 0029 


WORDS 


00008. 


wORDS 


00009 


WORDS 


00022840 

00022850 

PROCEDURE RANDOMCNUMBER? BASED} 00022900 
START OF REL SEGMENT DISK 

VALUE NUMBER? 00022925 
REAL. NUMBERS 00022950 
INTEGER RASE3 00022975 
BEGIN INTEGER N3 00023000 
REAL Ta 00023025 

IF (T ¢:= NUMBER MOD 1.0220 THEN 00023100 

BEGIN BASE $= T.£9238]73 PCRTN)3 ENDS 00023150 

IF NUMBERZO THEN 00023200 

BEGIN T = POLISHC 1» 4» COM)3 00023250 

N $= 0 & 701023686) & Tl1624226) & TLhe2%3026) 00623300 

& (CT,£30%18))xP¢ DUP) C288 2282073 00023350. 

END ELSE IF ¢€N %= BASE)=O THEN N 28 ®26343530200003 00023400 
T 22 9 8 €N4L102 2649x6137 + 2197513)0£10212236)3 00623450 — 
POLISHCCCCBASE = T) OR 045) = 0,5) + PCDUP)» RTNDG 00023500 

ENO RANDOM$ 00023550 
00023600 

PROCENURE SWAP3 % 045 00023700 
START OF REL SEGMENTS DISK 

BEGIN 00023710 
ARRAY A = "2 [L¥ee], BF 71 Creel] 3 00023720 
STREAMCAs Ge CACOs CBeOs FACA,(1B8815]+ FReB,C18515))3 00623730 

BEGIN 00023740 

St ¢ As €A © ST; 00023750 

SI -¢ 83 CB « SI3 06023760 

DI « 4oc Bs DOI © NI+53 SKIP 3 DBs 00023770 

SI « LOC CAs ST « SIT+53 SKIP 3 SB} 00023780 

3CIF SB THEN DS ¢« SET ELSE DS ¢ RESET? SKIP SB)3 DOS « 2 CHR 00023790 

Dl « FB3 SI «+ LOC BF DS « WDS} 00023800 

DI « Loc As’ DI © DI+53 SKIP 3 OB 00023810 

SI ¢« Lac CBs SI + SI14#53 SKIP 3 SB3 00023820 

3CIF SB THEN 0S ¢« SET ELSE DS ¢« RESETS SKIP $B)3 DS ¢« 2 CHR; 00023830 

DI ¢ FAs ST -« LOC As DS © WOS3 00023640 

END} 00023850 

END SWAP3 00023860 
00023900 

00024000 

00024100 

00024200 

COMMENT ALGOL WRITE INTRINSIC3% 00100000 
PROCEDURE ALGOLWRITECTENs FILX» CHSKPs» LNSKPs FIs AEXPs AWE 00100100 
: START OF REL SEGMENTS DISK 
ARRY»s LINESKIP» CHANSKIPs SUPRSs NUMWDS» TANK)3 %WE 00100200 

VALUE LINESKIP» CHANSKIPs SUPRS» NUMWDSs» TANK» SWF 00100300 


T 


T 
T 


000080 
0000%0 
000050 


ADDRESS = 


— 


T 
T 
a 
T 
T 
T 
T 
T 
t 
T 
T 
bf 
T 
7 
ST 


T 
T 


000020 
0000!0 
000030 
0000%0 
00000 
000050 
0002!4 
0004%2 
000534 
000710 


O009%a 


0012%3 
0014742 
00203 
0023%2 


ZEs 0028 


000080 
000010 


ADDRESS = 


T 


T 
t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
7 
T 

$I 


4qA4H44-4-4 


0000%0 
Oogd00%O 
0000!0 
000440 
0004%0 
o004t2 
000580 


0005%3. 


000682 
000833 
O009!%a 
Oo1dt4 
001130 
OOL3t4 
OO01ato 
OOLlat4 


ZEs 0015 


000080 
00000 
000030 
Q000!0 
000070 
0000 '0 


ADDRESS = 


T 
T 


0000%0 
0000%0 


00010 


wORDS 


90011 


wORDS 


00012 


owe eeesre#ee#e#2e#eee080 8080804808606 8@ ®@ 


CHSKPs LNSKPs FIs ARRY3 AWE 

INTEGER CHSKP. LNSKPs FIs AEXP» AWE 
LINESKIP» CHANSKIFs NUMWOS*s SUPRS3 SWF 

NAME FILXs» TANK3 aWP 
ARRAY ARRYC*¥], TENE *]3 BWF 


BEGIN REAL SELECT=14sREEDF132ADDRESSS% 
NAME MEM&23% 
LABEL ABs, ACTIONS 
LABEL DS»WINDUPY3 
ARRAY FPR=3(*]sFIBC*],HEADER[E *13% 
INTEGER JTeRSIZES% 
INTEGER SPOUTS 


ARRAY TINK=TANKC#]3 “WE 
REAL CHNSKP=CHANSKIPS 
REAL ALGOLWRITE=123 SWF 


DEFINE FNUM = FIBC4].Ci3%11) #3 
DEFINE IQD=C*TANK)#3% 
8 SET OMIT = NOTCTIME SHARING) 
fi SUBROUTINE WAITS POLISHCTANKs @2000000000» 36% COMs DEL» DEL); 
$ POP OMIT 
$ SET OMIT = TIMESHARING 
LABEL ERR*LPLsNTLsCLOSEDsOK1sSPiscP is DCL» PP13% 
LABEL DCNI,DCN2>SPIN3 
$ SET OMIT = NOT SHAREDISK 
SWITCH SWie ERReL Pte MT1sCLOSED»s DK1sSPL>oCPlsLPiePPLsERR*OCL» 
ERRe LPL DON13 
LABEL LP2eMT2*DK29SP2sCP2sDC22PP23% 
SWITCH SW2¢ ERRsLP2sMT2eERR»eDK2sSP2,CP2eLP2ePP2sERReNCerERRe 
LP2seDCN23 
LABEL DS1,0R1.0U13% 
SWITCH OSW1<DS1TsDR1eDULs CLOSED 
LABEL UTsPBITsOWTsD19sRELEASE sSTASEXITeLisWINDUPSDBITS% 
LABEL TYPEUsTYPEAsTYPEC;% 
SWITCH TYPE ©TYPEUsTYPEAsERR»s TYPEC3% 
LABEL OS2e0R22DU23% 
SWITCH DSW2eDS2-NR2eDU 23% 
- SUBROUTINE BLOCK3% 
-BEGIN GO TO TYPECI©FIB[51.04632)13% 
STREAMCD1¢10D»S¢(NUMWDS+NUMWDS4+1)xBs% 
D2eCTANKCOJeNUMWDS INX TOD)93% 
(oe ST¢LOc $3 D1leD1 983 DSe4 DEC} DleD13% 


Sl*N23 STleSI=83 DleDIn4; DSe4 CHRS% 
END3% 
IF CFIBCI7]¢F IBLI7J=NUMWDS)>RSIZE +4 THEN BEGINS 
FIBL7JeFIBE7I]413 PCXITIFZ 
IF CFIBCI7IJ©FIBCA7ZI*RSIZEIZRSIZE THENY 
BEGIN TANKLOJ*RSIZE INX I0D3 GO OWT END ENDS 2 
NUMWDS*FIBCIO)]«C1Bt15 “FIBLivI+CIsa0ee 
ND BLOCKS 
REAL SUBROUTINE DISKADDRESS$% 
BEGINY 


_ TYPEAL 


ADDRESS*CCHANSKIP DIV HEADER[0}.£303121)xXHEADERLO],(42:613% 
IF CSUPRS©ADDRESS DIV HEADERE114#10)230 THEN 
BEGIN Pc(Q)3 GO TO EXIT ENDS 
IF HEADERESUPRSJ=0 THEN 
IF HEADERL9J>(SUPRS#10) THENS% 
PCFPBCFNUM+3]FPBCLFNUM] sFPBLFNUM+4 J »SUPRS*HEADERs 


00100400 
00100500 


00100600 
00100700 
00100800 
00100900 
00101000 
00101100 
00401200 
00101300 
00101400 
00101450 
00101500 
00101550 
00101600 
00101650 
00101700 
06101750 
00101752 
00101753 
00101799 
90101900 
00101910 
00101919 
00102000 
00102010 
00102100 
00102200 
00102210 
00102300 
00102400 
00102500 
00102600 
00102700 
00102800 
00102900 
00103000 
00103100 
00103200 
00103300 
00103400 
00103500 
00103600 
00103700 
00103800 
00103900 
00104000 
00104100 
00104200 
00104300 
00104400 
00104500 
00104600 
00104700 
00104800 
00104900 
00105000 


ta a ta ts ta 


000080 
00000 


o000!td 
000040 
000080 
0000!%0 
0000t0 
ood0r0 
Q0000:0 
‘elelelen ze) 
000010 
0000%0 
0000!0 
0000%0 
0000%0 
elel erent ze) 
000040 
Qo0dta 
OCdoto 
000410 
0c04!0 
0004:0 
00040 
0004!0 
000420 
0004tO 
0004!0 
000420 
0004%0 
000420 
000480 
O004t0 
eleler aaa) 
000410 
O004ato 
000410 
000410 
00040 
0008%4 
001023 
0012%2 
O013%2 
OO01T4at2 
oog14:3 
001841 


002082 


00230 
0025 %2 
002910 
002934 
003010 
003070 
0033%14 
003533 
003780 
003830 
004030 


@®eecevsv5usevee4veeeeeeeeeeeee ee @ 


SeileCOMeDEL»DFELeDELs,DEL»DELsDEL) ELSE 
BEGIN PCO)3 GO TO EXIT ENDSS 
ANDRESS*HE ANDERE SUPRSI+SUPRS¢ADDRESS MOD HEADER(L1I3% 
STREAMCD©LADDRESSI)3 BEGIN SIleps DS+8 DEC ENDS PC1)3% 
EXIT? DISKADDRESS«P3% 
END DISKADDRESS3% 
IF TINK=0 THEN aWr 
BEGIN FIB ¢« FILXENOT 2]3 ZWF 
IF FIBL5].0118217<2 THEN PCMKSs"WRITNG"9FILXs7eSELECT) 3 
IF FIBCS7.043%13 THEN 
PCMKS» CHSKP» O» FILXs 1s SELECT )3 
IF LNSKP>1 AND ARRYSO AND CI©FIBC4).(824])41 
$ SET OMIT = NOTCTIMESHARING) 
AND I77 AND I#12 AND JI410 THEN 
$ SET OMIT = TIMESHARING 
PEXITISECARRIAGE CONTROL ON NON@PRINTER FILE 


RSIZE © POMKS* LNSKP, CHSKP» SUPRSs ‘WE 
C=1)5 FILXs ALGOLWRITE)3 %WF 
IF ARRYSO THEN SUPRS « 1 ELSE “WF 


BEGIN % 11/24/72 = CORRECTED 10/3/73 
IF ARRY.C8310)=PCDUP20) THEN % INDEXED WRITE 
PCDEL»AEXP) ® WRITE MINCAEXPsRSIZE) WORDS 
ELSE % WRITE MINCARRY SIZEsAEXP*RSIZE) WORDS 
IF P GTR PCDUPsSAEXP) &% 


THEN PCDEL*AEXP)3 SWF 

IF PCDUPIZRSIZE THEN PCDEL) ELSE RSIZE © P3 &wWF 
STREAMCP4 © CARRYCOJ]J)+ FP3 « RSIZE, ZWr 

P2 © PCDUP),£3626]» P1 © *FILX)3 SWF 

BEGIN SI « P43 DS « P3 WOS3 SWF 
p2cDS « 32 WDS3 DS « 32 WOoS)3 %WF 

END; ZWF 

ENDS SWF 
IF RSIZE>O THEN PCMKS» LNSKP» ZWFE 
CHSKPs SUPRSs RSIZE» FILX» ALGOLWRITE)3 Zwe 
FILXCNOT 43 © FILXENOT 3] © O3 xwr 
PCXIT)3 WF 
END3 ZWe 


FIBeTANKENOT 233% 
UT! TeFIBC41, C824) RSIZECFIBCIB1.033815 19% 
SPOUT#sCT=<5)3 
$ SET QMIT = TIMESHARING 
If CHNSKP,(421] THEN 
BEGIN CHNSKP,C4:1] «03 
$ SET OMIT = NOT SHAREDISK 
ENDS 
IF NUMWOS<O THEN GO TO SWiCT]3 GO TO SWerTd3% 
LPis MTi: SPis: CP1s PPL? 
% 


019: IF JOo0-019%1] THENS 
PBIT: Ip IGDefC281] THEN PCRSIZEsRTN) ELSER 
IF I10D.C25:1] THENS 
CLOSED! BEGIN 
FIBL13),£27%113¢0;3 
IF (T*#CFPBCFNUM#3] AND 31))410 AND [2412 
AND 1413 AND I#26 THEN FIBC5),(045%1]«0 ELSE 


00105050 
00105100 
00105200 
00105300 
00105400 
00105500 
00105600 
00105700 
00105703 
0@105710 
00105720 
00105750 
00105752 
00105753 
00105754 
00105760 


00105800 


00105900 
00106000 
00106100 
00106200 
00106300 
00106320 
00106340 
00106360 
00106380 
00106400 
00106500 
00106600 
00106700 
00106800 
00106900 
00107000 
00107100 
00107200 
00107300 
00107400 
00107500 
00107600 
00107700 
00107800 
00107820 
00107840 
00107860 
00107870 
00107879 
00107890 
00107900 
00108000 
00108100 
00108200 
00108300 
00108400 
00108410 
00108420 
00108430 
00108440 


AH HAA AMHR A A AA IO OO A A a a st tt 


004630 
Q04B%4 
004042 
005234 
0054t0 
0054%1 
0054%2 
0057%2 
0059%3 
006320 
00640 
006630 
0069i2 
0069%2 
OO73%4 
OO73%4 
O07 40 
007420 
007420 
007510 
007649 
007883 
008130 


0082°3 


0083%3 
008323 
008483 
0086:0 
0088!2 
O089%e 
009440 
0094%3 
0093%0 
009334 
OO93t4 
0095810 
009684 
009g%2 
0099%3 
009933 
QO104!2 
O104%2 
010533 
0105383 
O1046%2 
010833 
0108%3 
010893 
012610 
012610 
012630 
012740 
012982 
013430 
0134%2 
013430 
0137%2 


FIBCS2 CAST LIeEPCTANKOINGT 3] 2DUP)#0 AND PCXCH) 4153 
PETANKG Get ts COM*DELS»DEL) 3 
IF NOT FlB(53.045!1] THEN GO UT $3 
PCTANKENOT 332% TANKENOT 33TANKCNOT 4)6¢0 3 
PCMKSs9*BLKCNTRL DEL) 3% TAKE PARITY ACTION LBL BRNCH, 
PC1)3 GO TO 0S3 
END ELSE 
If TOOef2721] AND CI=2 OR T=#7 OR 188) THEN 
BEGIN IF NOT FIBEL4],.02!1] THEN 
BEGIN HEADEReTANKENOT LIS HEADER(L 4] C4226] ¢1 END; 
IF I=7 THEN FIBC9],Cisijle13 * MULTI@REEL PBT FILE 
IeFIBLi3)],C28t1Ol 413% 
PCMKSs620e(NOT 2? INX TANKs 4eSELECT 3% 
FIBC13],€28210J¢13 GO TO CLOSED3% 


END ELSE% 
BEGIN 

OO BRRG -PC3)3 

OS PCTANKsXCHs ti2COM)3 
END3 


WAIT? GO TO PBIT3% 
DKit HEADER**CFIBL14133 GO To DSW1EFIB864),027:3113% 
DK2? HEADER**fFIB(1417% GO To DSW2CFIBL41.C27°3333% 
CP2: BLOCKS TANKCOJ*FLAGCFIBL16] )8CHANSKIPC3274721)33 GO TO RELEASEs2 
LP2: JF SUPRS THEN STREAMCRSIZE*D¢100)3 BEGIN RSIZECOSe8 LIT ™ ") ENDS 
CHANSKIP¢CHANSKIP*LINESKIPeC452173 
IF CHANSKIPZ0O THEN% 
BEGIN IF CI*FIBLI7J"*RSIZE)>0 THENZ 
STREAMC(IsDeRSIZE INX I10D)% BEGIN I¢DSe8 LIT " ") ENDS% 
END ELSE BLOCKs% 
TANKEOT¢FLAGCFIBE16] SL INESKIPL27 14741] €LINESKIPL26¢ 4641) 
RCHANSKIPL29#4424]8NUMWDS(8838210)3% 
GQ TO RELEASES 
SP2: PPot% 
MT2@: BLOCK3% 
PCTANKCOJ¢FLAGCFIBL16] QBNUMWDSL 8238310] *NUMWOS*XCHs INXs% 
B37 000Q00000000000 rXCHee) 3% 
SPOUT THEN % SPO OUTPUT 
PRC FNUM+317.042:6)=43 THEN PCXIT) ELSE %DUMMY 
———3F)P (Os O0eNOT» LOD» INXs15sCOMsXIT) 
ELSE 


LF 


RELEASE? PCFLAGCFIBL19 18 IODL38 325) + TANKePRL DEL 4% 


WINDUPS ler IBli9], C3315 IF IBC16),03381513% 
FIBL16],C33815)¢SUPRSeMEMCP COUP) INX NOT 17, 0£1821513% 
FIRCI9] -C338152¢SUPRS+I1 3% 
WINDUPLE 
FIBLOI+FIB(OJ+13 FIBL7JeFIBE7J415 FIBCI7I*FIBC181,01881513% 
POXITJ34& 
DULER o.. 
OSi: IF LINESKIP40 THEN2 
BEGIN IF 10062781] AND TO0.f19:1) THEN GO AB} 
IF FIBCI7]=F1B0183.01815) THEN 
BEGIN CHANSKIP+FIBC7]3% 


‘Lat IF DISKADORESS THENY 


IF [0De(19%1] THEN DBIT? IF 100.€2%1] THEN® 
BEGIN 
$ SET OMIT = NOT SHAREDISK 
MEMEFIBCI6]]*ADDRESS3 


00108450 
00108510 
00108515 
001086520 
001086525 
00108530 
00108535 
00108600 
00108700 
00108800 


00108850 


00108900 
06109000 
00109100 
00109200 
00109300 
00109310 
00109320 


00109330 — 


00109400 
00109500 
00109600 
00109700 
00109800 
00109850 
00109900 
00110000 
00110100 


00110200 - 


00110300 
00110400 
00110500 
00110600 
00110700 
00110800 
00110900 
00110910 
00110920 
00110940 
00410990 
00111000 
00111100 
00111200 
00111300 
00111400 
00111500 


00111600 


00111700 
00111800 
00111900 
0014111950 
00112000 
00112100 
00112200 
00112300 
00112309 
00112340 


a a a ass a st 


0143984 
0149130 
015049 
015210 
0156%2 
0157382 
015634 
O15e8%4 
0162%3 
016432 
016934 
017380 
O175%0 
O17 744 
0180%14 
O18OF 4 
018083 
0187180 
0182%0 
0182%0 
0183:%2 
0188%2 
0193%0 
019633 
0201410 
020233 
020332 
020620 
O210%2 
021210 
021450 
O217%14 
021733 
021733 
021910 
022220 
022213 
022340 
022710 
023424 
023424 
023443 


023782 


024234 
O2e44ty 
024433 
025140 
02514%4 
O25 1% 4 
025230 
0255%2 
025732 
0259%0 
026030 
026320 
026332 
026382 


$ SET OMIT 


$ SET OMIT 


$ SET OMIT 


S23 


DRIis 


PERSIZE» RINDI 
END ELSE 
IF 100.025:1] THEN GO To CLOSED ELSE 
NOT SHAREDISK 
BEGIN 
NOT SHAREDISK 
GO TO AB3 
END ELSE 
BEGIN WATT$ GO TO OBITS END ELSE 
BEGIN 
NOT SHAREDISK 
GO TO AB 


di 


”# 


it 


END5 

END$ PCRSIZEsRTN)3% 
END3% 
POMKSsCHANSKIPsdsTANKelsSELECTIS GO TO L413 
TF FIBE7}>HEADEREC 7] THEN READER(7I¢FIBC7I3% 
BLOCKS TANKCOJ*FLAGCFIBL16])% GO RELEASEs% 
IF LINESKIPZ0 THEN CHANSKIPeFIBEC7] ELSE FIBL7]*©CHANSKIP3% 
IF HEADERE7I]<CHANSKIP THEN HEADERE7I¢CHANSKIP3% 


$ SET OMIT = NNT SHAREDISK 


Ip FIBC51.046%2)]20 THEN GO TO Lisy 
IF DISKANDRESS THENS 
BEGIN FIBC16) ¢CO4tLle1 3% 


$ SET OMIT = SHAREDISK 


POMKSsCHANSKIP+154eTANKsREEDs RIN) 3% 


$ POP OMIT 


$ SET OMIT 


NOT SHAREDISK 


n 


ENDS% 


$ SET OMIT = NOT SHAREDISK 


DR2: 


GO TQ AB 


$ SET OMIT = NOT SHAREDISK 


TANKCOJ©FLAGCFIBL16}) 80242248113 
PCFLAGCFIBCI9DIIATIOOL 3: 385 1a la7sazs Poe TONGe RG pOr Lak 


$ SET OMIT = NOT SHAREDISK 


Du2t: 


GO TO WINDUPS& 

FIBCS17.fCa3xt2le23% 

IF FIBC7P>HEADERC 7] THEN HEADER(T7]¢FIBL7132 

BLOCK s% 

CHANSKIPeFIBEC7 IFFT BL132,CIGS9] xXHEADER(O],(30212174% 

If. DISKANDRESS THENS 

BEGIN PCTANKCOJEPLAGCFIBELO] ROL2GF 24813 % (NOT O+XCHs INK 2% 

ADDRESS» XCHse)3% 

PEFLAGCFIBE19) AL L24S 4781] + TANKsPRL es DEL 2% 

END ELSE 

BEGIN TANKLOI¢FLAGCFIBL16])ROL24%243413% 
PCFLAGCFIBLI9IISIC 242 44s AT, TANKs PRL» DEL 4% 

ENDS& 

GO TO WINDUP#s4 


$ SET OMIT = NOTCTIMESHARING) 


Ociz: 


PCRSIZEs RTN)3 


$ SET OMIT = TIMESHARING 


ABS2 


BEGIN JF CADDRESS¢TANKCNOT 43220 THEN GO ERRS 


ACTION? 8 TANKENOT 37¢TANKENOT 4) ©3 


TANKCO] $= TOD OR MEM; 
PCADDRESS»MKSe9eJUNK)$ GO TO ERR} 


00112350 
00112360 


00112400 
006112409 
00112420 
00112429 
00112440 
00112450 
00112460 
00112470 
00112479 
00112490 
00112500 
00112600 
00112700 
00112800 
00112900 
00113000 
00113100 
00113200 
00113249 
00113300 
00113400 
00113500 
00113599 
00113600 
00113601 
00113649 
00113700 
00113749 
00113800 
00113900 
00113909 
00113980 
00114000 
00114049 
00114100 
00114300 
00114400 
00114500 
00114600 


00114700 © 


00114800 
00114900 
00115000 
00115100 
00115200 


00115300 © 


00115400 
00115500 
00115501 


00115510 


00115590 
00115800 
00115900 
00116000 
00116100 


A AHA AH a Ht A A Ht tt i tt tt Ht tt Ht tH tH 


026524 

026823 
026513 
O2672%14 
0267%1 
026840 
026810 
0268t2 
026832 
027082 
0271430 
027120 
027432 
027142 
027240 
027240 
027410 
O277 84 
027923 
028323 
028622 
O286%2 
O28Bte 
Q290%0 
029340 
029340 
029540 
029510 
029510 
029510 
029540 
029580 
O295!2 
0295!%2 
029733 
0304:%3 
030133 
O302%14 
Q0305%t9 
030833 
031050 
031332 
031540 
0318%3 


0319%2 


O322%4 
032224 
032510 
032773 
032733 
032821 
QO328%4 
032932 
0329%2 
033233 
0336%4 
033733 


END} 
IF TANKENOT 41750 THEN BEGIN WAITS GO TO DC1 END3 
IF PCCHANSKIP, CCF IX602CHANSKIP,TANKs 1691412COM*DELsDELS DEL) 
THEN PCRSIZE»RTND3 
GQ TO ABs 
$ SET OMIT = NOTCTIMESHARING) 
De2: IF CHANSKIPsfCF) NEQ 0 THEN CHANSKIP?sABS(CHANSKIPRQICCTFI) 
ELSE CHANSKIP ¢ (8xC(LINESKIPs4)+LINESKIP.(45:3)) 
RLINESKIPC3224381]73 
NUMWDS « IF SUPRS THEN O ELSE 8xNUMWDS3 
POLISHCIOD»s NUMWDS» CHANSKIPs O» ¢(*11)» COMs DELD3 
L?=POLISH+12 
ADDRESS? sTANKCNOTC4"(122)))3 
TANKENOT 4J*=TANKENOT 3138203 
IF I THEN PCXIT)3 
IF ADMRESS NEQ 0 THEN 
PCADDRESS s+ MKS 9s BLKCNTRL D3 

ADDRESS#214+(¢1=0)x2)3 
PCTANKS ADDRESS e112COM)3 

DEONLIDCN2ISPIN: PCXIT)3 

$ SET OMIT = TIMESHARING 
END ALGOLWRITES 


PROCEDURE OUTPUTINTCTEN*FIL Xs CHSKPsLNSKPsF Ila PRMT el ISX 28% 


00116200 
00116300 
00116400 
00116500 
00116600 
00116601 
00116610 
00116620 
00116630 
00116635 
00116640 
00116644 
00116646 
00116648 
00116650 
06116652 
00116654 
00116656 
00116658 
00116660 
00116690 
00118800 


00200000 


START OF REL SEGMENTS OISK 


COMMENT ESPOL VERSION OF ALGOL WRITE INTRINSIC2 
BY LR, GUCK 12/1/7643% 


VALUE CHSKPeLNSKP oF Ie LISXs% 
NAME FILX3S 
ARRAY TENC# I] 2% 

FRMTC*I3% 


REAL LISXs% 
INTEGER CHSKP*LNSKPsFI3% 


BEGINS 
REAL ALGOLWRITE=123% 
ARRAY REALROW=TENW1C #132 
REAL SELECT#143% 
REAL JUNK 293% 


INTEGER V2st 3 0: 
INTEGER  TEMPD=7 $ 
INTEGER  JUNK12173% 
INTEGER LSTRN=193% 
INTEGER  AEXP =FRMTS2 


ARRAY ARRY BLISX( #132 
INTEGER TLOTRNSE41 3% 
REAL UTYP = TLSTRN#43 


DEFINE UTIP SUTYP.C47311] #s %22%% USED FOR NON"BOOLEAN USE OF UTYP 
FETYP#UTYP,C46241 #» &8%% FLAG TO SHOW USING FREE FIELD, 
STORWSUTYP C4026) #.. 223%% USED TO STORE ORIG VALUE OF W, 
UES SUTYP,.£3981] Bs 422% FLAG TO INCLUDE EXPONENT SIGN, 
ubC BUTYP.£36!1] #, 422% FLAG TO INCLUDE DECIMAL POINT, 
UED BUTYP,C3622] #» %2%%% NUMBER OF EXPONENT DIGITS, 

UMD FUTYP.C35%4] #, 422% FLAG TO INCLUDE MANTISSA, 


0¢200100 
00200200 
00200300 
00200400 
00200500 
00200600 
00200700 
00200800 
00200900 
09201000 
00201100 
00201200 
00201300 
00201310 
00201320 
00201400 
00201500 
00201600 
00201700 
00201800 
00201900 
00201905 
008201906 
00201907 
00201908 
00801909 


00201910 > 


O0201911 


T 
T 
T 
T 
T 
T 
T 
T 
- 
T 
T 
Cc 
C 
Cc 
P 
C 
C 
C 
Cc 
84 
T 
T 

SIZ 


T 


O339%4 
033984 
0343:9 
034643 
034733 
034834 
O34K8%4 
O350te 
0353314 
0355%3 
O35ate2 
036083 
036133 
0364%2 
0367%3 
036843 
0369%2 
037180 
O373%4 
O374%4 
O375%4 
0375!1 
E= 0376 


0000fO 


ADDRESS = 


Se ee ee ee ee ee ee ee ee ee ee | 


00000 
O000FO 
000080 
00000 
0000t0 
000080 
0000?0 
000040 
000080 
0000%0 
0000to 
000080 
000080 


00000 


0000!%0 
000080 
00000 
O000to 
0000!0 
000030 
00000 
000080 
0000 'O 
000030 
000080 
000040 
0000%0 
000080 


wORDS 


00025 


@®9eee»eeete8ee0e0880826€80806C«CMMmUC<C SUC HU OUmUCUCOUCUCUCOMCUCUODUCUCUCMUCUCOUmUCUCOMCUD 


INTEGER 
REAL 
INTEGER 
ARRAY 
REAL 
REAL 
REAL 
INTEGER 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
INTEGER 
REAL 
REAL 
REAL 
REAL 
INTEGER 


STORDEUTYP,£2926] #» 
URUFFEUTYP. C1621 3) 4s 
UTOP =UTYP.C15%4] #» 
USKIPSUTYP.[09%6] #s 
FFCHRSEUTYP.£L03:26] #3 
SUPRS = UTYP413 
BUFFESUPRS413% 
RBSIZE=BUFF+13% 
FIBSBSIZE+1f*I3% 
WH2aFIB4+43% 
WHLSWHE+13% 

DHLSWHL +432 
NH2s0H1+15% 
weOHetls% 

WL SWHl% 

W2EWL+19% 

WTEWerd sd 

DSwT+13% 

D1sD+19% 

N2=O1+13% 

NA=D2+13% 
SKIPFDA+14% 
CHRESKIP+13% 
FRCHR+13% 

ZEROSSE 413% 
CODESZEROS+13% 
FAWSCQODE+13% 
SGNSFAW+135% 
SCFTRESGN+13% 


REAL TPHRASESSCFIR+13 
INTEGER LZ = TPHRASE + 13 
RTNPRNTSEFAsEFCsEERTN»sRNA,RNB 2S 
STARTs# ISFRMsAEXL se ISAs ISBe ASLST»BSeBRe BBs ERROR % 
FMOQUT»S4»SsLFPARsRTPARs SLASH» SCALE» STRNG#% 

PHRAS»s INLOOP,ASTBsASTASASTsFLOWs IMP 2% 
LOGI*ALFASDOTYPEsXTYPEsITYPE 2% 
FTYPEsRE INF AsF Re FF CoP DeSUTYPEsUILSUF sESUBTYPE SE TYPE L»COMMMs 
FORMATERRs TTYPEsBACKs 
ETYPEZREINSEASERTN#REOCTeE Be MAXNe TENS % 
RTYPE»Ros TRYE*RRTNe MAXMs COMMS % 

COMMENT LABELS ARE LISTED IN SAME ORDER THEY APPEARIS 
DEFINE LAGR = @LIS71630 34761 O74H ok 
SQOOOTTTTT777 7777 7H ah | 


LABEL 


MAXCHR 


= POLISH#3% 


SUBROUTINE CKPBs4 
BEGINS 
IF FILX,£18815] S$ 1 THENS 
BEGIN IF NOT FILXeC18#15) THEN2 
REGINSSTREAMCAGCREALROWLO]12B¢0) 3% 


%%%% USED TO STORE ORIG VALUE OF OD, 
4%%% ADJUSTED BUFFER SIZE, 

%%%% FLAG TO INCLUDE TRAILING BLANK, 
&%%% # XTRA LEADING BLANKS FOR I OR F 
%%%% FREE FIELD DELIMITER ¢(» OR BLNK) 


SAVEBUFFETPHRASE,£30218]#» 
STPHRASE,C18t12)¢» 


BEGIN SIeA$ DI©As SleSi=163 
SKIP 2 SBs% 
IF SB THEN TALLY © 13% 
A © TALLYS% 
ENDES 
IF NOT P THENS 


00201912 
00201913 
00201914 
00201915 
00201917 
00201920 
00202000 
00202100 
00202200 
00202300 
00202400 
00202500 
00202600 
06202700 
00202800 
00202900 
00203000 
00203100 
00203200 
00203300 
00203400 
00203500 
09203600 


00203700 


00203800 
00203900 
00204000 
00204100 
00204200 
00204210 
00204220 
00204300 
00204400 
00204500 
00204600 
00204700 
00204800 
00204810 
00204900 
00205000 
00205100 
00205200 
00205300 
00205305 
08205310 
00205400 
00205500 
00205600 
00205700 
00205800 
00205900 
00206000 
00206100 
00206200 
00206300 
00206400 
00206500 


AHA AA HHH a A tt 4 9 4 Ht Ht tt HH tt 


0000t0 
0000t0 
000010 
0000!0 
00000 
000010 
000010 
000010 
000010 
o000td 
000010 
00000 
000010 
000010 
000010 
000080 
000080 
000010 
000010 
000010 
000010 
0000!0 
000080 
000080 
000010 
0000%0 
000080 
0000%0 
000010 
000010 
0000%0 
000010 
00000 
0000%0 
000030 
0000!0 
00000 
000010 
000010 
000080 
000030 
000080 
o000to 
0000tO 
000080 
00000 


000080 


000410 
000410 
Oo0at1 
0003%3 
000533 
0006%2 
000633 
0007%2 
000733 
000810 


ee ee ee ee er | 


BEGIN PCFILXs14*COMsUEL)F& 
FILXefiB8215] « 13% 
ENDS% 
END#% 
BSIZE © REALROW.(821013% 


END ELSES . 
BSIZE*POLISHCMKSsLNSKPsCHSKPsSUPRSs ("1 sFILXsALGOLWRITE)3 
BUFFeC*FILX&BSIZELB8238210) F 

END3% 
SUBROUTINE PRNTs% 
BEGIN COMMENT RELEASE BUFFER3% 
COMMENT S= RETURN LITERAL .% 
S"1 = IF TRUE THEN RETURN AFTER RELEASE,% 
IF FALSE THEN EXIT3# 
POXCHIIY 
IF FILX,£18215)] > 1 THEN 

IF. BSIZE>0 THEN 

POLISHCMKSsLNSKPsCHSKPs SUPRSsBSIZEsFILX*ALGOLWRITE D3 

COMMENT WRITE RELEASES% 

IF P THEN CKFB% 

ELSE BEGIN LSTRN ¢ TLSTRN32% 

IF FILX.018#15)>1 THEN 
FILXCNOT AJeFILXENOT 3)¢0 ELSE 
IF FILXelC1e8815] = 1 THEN 
PCFILy2149COM)3% 
POXITIZ% 
ENDs% 
RTNPRNTSEND3 % 
SUBROUTINE: DEBLANK?. IF. CHR<132 THEN 
: STREAMCP3¢PC(BSIZE@CHReDUP)sP2¢p DIV 64sP1L6eBUFF) 3 
BEGIN P2C2CDSe32L IT" 93 P3COSeL IT" ") END & 
SUBROUTINE PRNTA3% 
BEGIN COMMENT BLANK TO END OF BUFFER OR TO 132 TH CHARACTERs% 
WHICH EVER IS LeSsS3% 
POXCH)3 COMMENT S= XIT KEY IF TRUE THEN RETURN,% 
IF FALSE THEN EXIT 3% 
IF .TPHRASE>O THEN DEBLANK ELSE CHReMAXCHR 3; 
*VOICD 
*VOID 
*VQID 
AVOID 
4VOI0 
“VOID 
ZVOID 
BSIZE«CIF CHR=O0 THEN BSIZE ELSE CHR+7) DIv 83 
PRNTS COMMENT RELEASE BUFFERS % 
CHR © OF% 
BSIZE « BSIZE x 834 
TPHRASE*BUFF CPC ,BUFF se LODe 0 INX) 3 
ENDS% 
SUBROUTINE FINDEs% 
BEGIN COMMENT DETERMINE THE EXPONENT OF A REAL NUMBER3S2 
IF WHHL = (LZeZEROS¢O) THEN GO TO EFC; 
Fo© C€C O8WHIL42:336)8WHi Cys 2243 + 12) «x LOGB) + ,5 3% 
EFAS TF ABSCWH1) 2 €- IF £2 0 THEN TENLEI% 
ELSE 1I/TENC"EI)% 
THEN GO TO EERTN3% 


00206600 
00206700 
00206800 
06206900 
00207000 
00207100 
00207200 
00207300 
060207400 
00207500 
00207600 
00207700 
00207800 
00207900 
00208000 
00208100 
00208200 


00208300. 


00208400 
00208500 
00208600 
00208700 
00208800 
00208900 
00209000 
00209100 
00209200 
00209300 
00209310 


00209320 © 


00209330 
00209400 
00209500 
00209600 
06209700 
00209800 
00209900 
00210000 
00210100 
08210200 
00210300 
00210400 
00210500 
00210600 
00210700 
00210800 
00210900 
00211000 
00211100 
00211200 
00211300 
00211400 
00211500 
00211600 
00211700 
00211800 
00211900 


a a a a st a es st a st a HH + 


0008t4 
000933 
001140 


001140. 


001190 
O012%2 
O012%2 
001582 
00172 
0017%3 
00180 
OO0LBto 
0014840 
Od1at0 
001840 
0018%14 
0019%2 
002033 
002330 
002380 
002424 
0026t4 
002732 
003134 
00331%0 
OO34%4 
0034%2 


0034t 


003423 
003583 
0038%2 
0045383 
004680 
004680 
004610 
0046%1 
004644 
005043 
0035083 
005083 


005033. 


0050%3 
005023 
0050!3 
005033 
0054%e 
005630 
005623 
005810 
006010 
006084 
006110 
006440 
O063%4 
006742 
0046942 
00771%2 


e 


ee eae Ce! 

GO TO EFAsS 
EFCS bE + 08% 
EERTNIEND3Y 


SUBROUTINE RNDOFF 3% 
COMMENT ADJUST NUMBER TO 12 SIGNIFICAT DIGITS PLUS% 
TRAILING ZEROS. NOTE OA # ADJUSTED <DECIMAL PLACES>3% 
RNA’ BEGIN IF ABSCPCCUJUNK2 © TENEDA}) «x WHLeDUP)) S$ MAX% 
THEN GO TO RNB COMMENT DA = ADJUSTED DECIMAL PLACES; 
PCDELJE% | we 
ZEROS © ZEROS +13 COMMENT TRAILING ZEROS +132 
pA © DA#s43 COMMENT SUBTRACT 1 FROM DECIMAL PLACES3% 
GO TO RNASS 
RNB: DH2 ¢ P3 
ENDS% 
REAL SUBROUTINE LISTELEMENT; 
BEGIN IF LSTRN<O THEN GO TO ERROR; 
PCWH1s eWHieISN)$ WHL*]LISX? 
LISTELEMENTeP3 
END LISTELEMENTS 
SUBROUTINE SETMAXCKRs IF MAXCHR<CHR THEN MAXCHReCHR 3 
LABEL LeXeAsZeoleGeReCeoOeZweeZDeSwt3 
COMMENT START. OF cODEs% 
START #3 PCLSTRN»s O2000)3.% 
PCODs 
IF FILX.£18215) > 1 THEN? 
BEGIN PCFILXENOT 237)3% 
IF FIBE5].011!21<2 THEN PEMKSe"WRITNG*OFILXe7*SELECT) 3 
IF FIBC5],04321) THEN POLISHCMKS»sCHSKPsOeFILXe1sSELECT 3% 
COMMENT CALL SELECT IF FILE NOT IN WRITE STATUSS% 
END ELSE PCO)s% 
CKPRS COMMENT CHECK FOR PRESENCE BIT3% 
COMMENT CHECK FOR TYPE OF WRITES 
IF FRMT # 0 THEN GO TO ISFRM32 
TF ARRY #4°0 THENS 
IF ARRY < 0 THEN GO TO ASLSTZ 
ELSE GO TO AEXL3% 
COMMENT CASE = FORMAT = LIST = EMPTY32% 
SUPRS¢43% 
GO TO BAs4% 
ISFRM: IF NOT PCFRMTsTOPsXCHsDEL) THEN GO TO FMOUTS2 
IF FI4Q THEN @2% FREE FIELD? CRIUCCTEMPDSAEXPH1), 
BEGIN TEMPD*AEXPeis FRMT¢O3. GO TO FMOUT END 3 
COMMENT CASE = AEXPsARRAY ROWS 


COMMENT ROUND OFF NUMBER3% 


AEXL? IF PCARRY.»LAt10]*»D0UP) < AEXP THEN GO TO ISA32% 
IF AEXP<0 THEN PCARRYCAEXP]) 3 
PCDEL»sAEXP)3% 
COMMENT STACK «© SMALLER OF ARRAY SIZE OR AEXP3% 
ISA: IF PCDUP) S$ BSIZE THEN GO TO ISB#% . 
PCDELsBSIZE)3% 
COMMENT STACK © SMALLEST OF BUFFER SIZE» ARRAY SIZE% 
“OR AEXP?% 
ISB: BSIZE « P3% 


COMMENT BSIZE*# OF WORDS TO TRANSFERS 
COMMENT TRANSFER ARRAY TQ BUFFERS 
STREAMCP4 © CARRYCOJ]]» P3 © BSIZEs% 
P2 « BSIZE DIV 64+ Py * * FILX)3% 


00212000 
00212100 
00212200 
00212300 
00212400 
00212500 
00212600 
00212700 
00212800 
002142900 
00213000 
00213100 
00213200 
00213300 
00213400 
00213500 


00213600 © 


00243700 
00213800 
00213900 
00213910 
00214000 
00214100 


00214200 © 


00214210 
00214300 
00214400 
00214420 
00214500 
00214600 
00214700 
00214800 
00214900 
00215000 


00215100 


00215200 
00215300 
00215400 
00215500 
00215600 
00215700 
00215710 
00215720 
00215800 
00215900 
00216000 
00216100 
00216200 
00216300 
00216400 
00216500 
00216600 
00216700 
00216800 
00216900 
00217000 
00217100 


as ss se st A ha a st st st at at ts ot ss tt st st 


OO7oO%4 
007332 
00760 
007633 
007750 
007780 
007730 
OO77!0 
OO7OR4 
008o!0 
0080? 4 
O08 ¢t2 
Q008243 
008810 
O08sSt2 
008533 
0086t0 
008724 
O08at3 
008910 
008984 
0093!%3 
0093%3 
009383 
0095370 
Q095%4 
009689 
Oo9Rt, 
0101%2 
0104%2 
0104i%2 
0106%14 
01070 
01071%0 
0108%2 
01d9%e 
O111.io 
OL112%0 
0112:0 
011233 
Oli 3% 
O115%0 
0115%3 
011883 
O0118%3 
0121440 
0122:3 
O0123t4 
O123%t 
0124%2 
012530 
012510 
012510 
O125%2 
042572 
012512 
0126%2 


BEGINS 


SI « P434 
P2 (DS « 32 woS3% 
DS © 32 wOS)3% 
nS « P3.WOS3% 
END}4 


GQ TO BBs 
COMMENT CASE =) *eLIST3&% 


ASLSTS 
BS! 


BRi 


BR: 


ERRORS 


PCOseLOTRN»SND)3 COMMENT SR1#03% 
PCOUPsL ISX)3 COMMENT SSVALUEsS=12]2Se25 13% 
TF LSTRN 2 O THEN GO TO BRS 
BSIZE © PCDEL»DEL)4 COMMENT BSIZE ¢« I =% 
# OF WORDS IN BUFFERs% 

gO TO BRIS 
PCXCH)3 COMMENT Sal, SeL=vaALUEsS=2=13% 
PCCBUFF ISTO); COMMENT VALUE TO BUFFERCII3% 
IF PClateDUP) < BSIZES 

THEN GO TO BS*% 
BSIZE « P5% 
PCO)? COMMENT FLAG TO EXIT ON CALLING PRNT#% 
PRNT34 
PCO)3% 
PRNTAs COMMENT CALL PRNTA. AND EXIT3% 


COMMENT CASE OF FORMAT#LIST OR FORMAT EMPTY32 


FMOUTS 


St? 


LSTRN ¢ ¢ ARRY = 0)3% 
COMMENT LSTRN « e4 If NO LISTS 
PCOrOr Op 0a Oe Oe Oe Oe Oe Oe Oe Op Oo Oe Or Oe0e0e09000 ih 
PCO) 3 
OHL © TEMPD 3 
WH1 ¢ LISX3 COMMENT GET FIRST LIST ITEM3% 


— TPHRASR*BUFF EPC Os,CBUFFI),£33815] § 


COMMENT BUFF © ABSOLUTE CORE ADDRESS;2% 

BSIZE * BSIZE x 83% 

COMMENT BSIZE NOW #@ OF CHARACTERS IN BUFFER3% 

IF FRMT&O THEN %%% FREE FIELO WRITEs WHICH IS EQUIVALENT 
BEGIN %%2% TO <INFINITY>U OR <INFINITY>UX Xe 
CONMRe113 JUNKLe¢BSIZE3 IFCTEMPD*DH1)>63 THEN TEMPD+*633 
FFCHReEIF FI<O THEN * “ ELSE te § 

IF CFI©ABSCFII"1)40 THEN %%% WE HAVE AT LEAST CFII]/, 
BEGIN IF TEMPDSO THEN %%% We HAVE CFIJ/(C0). 
BEGIN IF CTEMPD¢BSIZE/FI*2,4999999999)50 
THEN TEMPNe1 ELSE IF TEMPOD>21 THEN 
JUNKLe COTEMPD]21942)x*FT END 
ELSE IF (V2eFIx¢TEMPD+2))<BSIZFE THEN JUNKIeV2 § 
V26TEMPD END #%% ABOVE ELSE WAS CFIJ/C TEMPO). 
ELSE IF (V2*TEMPD)s0 THEN TEMPDS633222%HAVE £03/00) OR 
UTYPeCUTYPRJUNK1(16$33%813})) OR 2 3 &%2C0)/C TEMPO), 
FAWGL&TEMPOLE 4286) 8&yver3se2t42i6) 3 
GO TO PHRAS 3 
END ELSE 
gO TO S32 
FI «© FI + 13% . 
COMMENT SET INDEX TON NEXT EDITING PHRASEsS% 

CODE © CFAW © FRMTCF II) Cotaise% 

UTYP © O&8BSIZECL16$35213) 3 

1F FAW > O THEN GO TO PHRAS3% 

COMMENT JF S*0 THEN GO TO PHRASE#% 


00217200 
00217300 
00217400 
00217500 
00217600 
00217700 
00217800 
00217900 
00218000 
00218100 
00218200 
00218300 
00218400 
00218500 
00218600 
00218700 
00218800 


00218900 | 


00219000 
00219100 


00219200 © 


00219300 
00219400 
00219500 
00219600 
00219700 
00219800 
00219810 
00219900 
00220000 
00220100 
00220200 
00220300 
00220400 
00220405 
00220410 
00220415 
00220416 
00220418 
00220420 
00220422 
00220424 
00220426 
00220428 
00220430 
00220432 
00220455 
00220460 
00220465 
00220470 
00220500 
00220600 
00220700 
00220800 
00220810 
00220900 
00221000 
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012880 
0128%0 
0128%4 
0129:0 
0129t2 
013080 
013031 
013033 
013033 
0131%2 
013210 
0133%4 
0134914 
O134t4 
013483 
013580 
O1395%2 
O136%4 
013774 
013783 
0138%0 
013980 
0139314 
014080 
014020 
014133 
014153 
014740 
O14744 
014880 
0148%3 
015083 
015023 
015290 
015240 
0153720 
0153%2 
015720 
016094 
O163%4 
016432 
0166!3 


017013 


O173%2 
017732 
Ol7aty 
0184 %4 
0183%2 
018634 
018633 
018633 
018633 
0188%0 
018810 
019080 
019443 
019330 


eocececevoveeeereeoeoereeeeeee es 


aQ TO PCCODE)$ COMMENT SWITCH ON CODE3% 
gO TO RTPAR3% 
G0 TO STRNG3% 
GO TQ LFPARs% 
GO TO SLASHs% 
GO TO SCALE3% 
COMMENT LEFT. PARENTHESIS3% 
LFPAR? IF FAWs01231] THEN 
BEGIN IF PCLISTELEMENT»DUP)<0O THEN 
BEGIN PCDEL)A FleFAwelL28t1O]+FI3 END} 
END ELSE PCFAW,[38210])3 
COMMENT MASK QUT REPEAT AND LEAVE IN STACK3% 
60-70 513% 
COMMENT RIGHT PARENTHESIS3% 
RTPAR? P(1»SUB)3 COMMENT SUBTRACT ONE FROM LFPAR REPEAT 
IF PCDUP) = 0 THEN BEGIN 
PCDEL)# COMMENT DELETE © REPEAT;% 
GO TO Si# COMMENT PICK UP NEXT PHRASE} 
END3% 
FI « FI «(FAW AND 102323 COMMENT SET FI BACK TO LFPAR3 
GO TO S434 
COMMENT SLASH3% 
SLASH? POLISHCCLSTRN2ZO) OR NOT FAW)3% 
PRNTASCOMMENT RELEASE BUFFERS 
COMMENT EXIT IF FORMAT & LIST EXAUSTED3% 
60 TO S43 COMMENT Si IF LIST OR FORMAT NOT EXAUSTED?2 
COMMENT SCALE FACTOR3% 
SCALES SCFTReIF FAW,C12¢1] THEN LISTELEMENT 
ELSE O&FAWL3B82 38:10} &FAWLL3415113 
GO TO $13% , 
COMMENT STRINGSS% 
STRNG? IF PCCHR + CWEFAW,. (661) »pUP) > BSIZE% 
THEN GO TO ERROR$ COMMENT BUFFER OVERFLOWS% 
CHR « P 3 COMMENT CHR © W+CHRE® 
SETMAXCHR: 3 
STREAM(PG © Of P3 « FAWsP2 © WePl ¢« BUFF )3% 
BEGINS 
SI ¢ LOC P2s% 
SI « SI™P23% 
DS ¢ P2 CHR} 
PH « DIs% 
END3% 
BUFF «© PF% 
GO TO S13% 
COMMENT BREAK APART FORMAT WORD}% 
PHRAS? IF FAWef 121) THEN PCLISTELEMENT) ELSE PCF AWe6388101)3 
IF CODE=13 THEN CODE*IF CCODESLISTELEMENT)="D" THEN O ELSE 
’ IF CODE="T" THEN 1 ELSE 
IF CODES"X" THEN 2 ELSE 
IF CODES"A" THEN 4 ELSE 
IF CODE="I" THEN 6 ELSE 
IF CQODEs"F" THEN 8 ELSE 
IF CODES"E” THEN 10 ELSE 
IF CoDEs"U" THEN 11 ELSE 
IF CODES"B" THEN 110 ELSE 
IF CODEs"O" THEN 12 ELSE 
IF CODES"L" THEN 14 ELSE 


00221100 
00221200 
00221300 
00221400 
00221500 
00221600 
00221700 
00221800 
00221900 
00222000 
00222100 
00222200 
00222300 
00222400 
00222500 
00222600 
00222700 
00222800 
00222900 
00223000 
00223100 
00223200 
00223300 
00223400 
00223500 
00223600 
00223700 
00223800 


00223900 - 


00224000 
00224100 
00224200 
00224300 
00224400 
00224410 
00224500 
00224600 


00224700 


00224800 
00224900 
00225000 
002254100 
00225200 
00225300 
00225400 
00225500 
00225600 
00225650 
00225700 
00225800 
00225900 
08226000 
00226100 
00226110 
00226120 
00226200 
00226300 
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019330 
0193%2 
019450 
0194t2 
019580 
0195%2 
019610 
019610 
019623 
019883 
020484 
020282 
020212 
0203!0 
020320 
0203%2 
02043 
020520 
0205%2 
020512 
020734 
020743 
020733 
O209t4 
021030 
021040 
021032 
0210%2 
O212%2 
O216%4 
021633 
021633 
021833 
021933 
O220'4 
022170 
022233 
022233 
022310 
0223%2 
022440 
O2241 
022412 
0225!0 
0225!2 
022512 
022941 
0233:3 
O236%4 
023834 
O240%, 
024244 


O244t4- 


O246?4 
O24R3 4 
C25081 
O25a%4 


IF CODE="R" THEN i ELSE 163 00226400 T O254ty 

IF CODEs110 THEN BEGIN cObEE Its FAWe.C31%ij}e1 END 3 00226410 T 025780 
WelF FAW.C1381] THEN LISTEFLEMENT*#C(CODE=1) ELSE FAW, £626] 3 00226500 T 026033 
OeIF FAWe014:1) THEN LISTELEMENT 00226600 T 026422 
ELSE IF CODE#1i1 THEN FAW.(£3236] 00226610 T 026783 

ELSE (DieFAW, £2084) 94 (D2°FAWe (1634193 00226700 T 026913 

IF PCDUP)SO THEN GQ BACK$ 00226800 tT O274at}h 
IF W<O THEN 00226810 T O275%o 
IF COOE=14 AND Ws("1) THEN GO BACK 00226815 T O276%1 

ELSE IF NOTCCODE=0 OR CODE#12) THEN GO FORMATERR; 00226620 T 027833 

IF O0<O THEN IF NOTCCODE#15 AND CODE#8 AND CODE¥10) 00226830 T 028433 
THEN GO TO. FORMATERR 3 00226840 T 028524 
IF ws0 THEN IF cCODEZ2 AND CODE#1 THEN 00226850 T O286!1 
BACK? BEGIN PCpEL)# GO Sit END 3 00226852 T O289%4 
IF CODEs11 THEN BEGIN UTOP*DHIeFAW,C3L%1]60 § 00226860 7 029082 
IF CWH2¢UBUFF*DRIMFFTYPI<W THEN WewH2 # IF D>WH2 THEN 00226865 7 029530 

GO To ERRORS. UTYPeUTYPaWL40842t6se0l2984226) AR 1 3 (00226870 T O300%; 

GO To INLOOP END 3: 00226875 T 0304:0 

IF FAW.L13%2)40 OR FAW. C2:4)7513 THEN 00226900 T 030432 
BEGIN 00227000 T 030731 
GO PCIF CODE#15 THEN & ELSE IF CODE=1 THEN 2 ELSE 00227060 T 030783 

CNDE) 3 . 00227065 tr 031443 

GO Cs GO xX} GO As’ GO 13 GO R23 GO Gs GO OF GO Ls 00227100 T O312%4 

GO TQ FORMATERR 3 00227200 T 0316%1 

it WLelF WS5 THEN W ELSE 53 GO-TO Z3 00227300 yr 031633 
x4 WLeW DIV 643 WeSKIPeW, £4226) 00227400 FT 032020 
Go TO ZWa; 00227500 + 032380 

Ai WieIF WS6 THEN W ELSE 63 00227600 T 032382 
Zt SKIPeW"W13 GO TO ZWa; 00227700 T 0326%14 
3 WieIF Ws8 THEN wW ELSE 83 00227800 T Q328%0 
SKIP¢IF W<i6 THEN O ELSE W163 CODE«6 3 00227900 T 033033 
W2eW=SKIPeW1I GO TO ZD3 00228000 fT 033433 

Gi DeD+CUTIP OR FAW,f2:4]=213 OR FAW. (1491103 00228100 rT 033780 
D2«D"D1LelF OS8 THEN D ELSE 83 00228200 7, Q344%4 
SKIPeIF CWeD)S5 THEN 0 ELSE Wep#53 00228300 T 034540 
WieW2e03  CODE«103; GO TO SwWT 3 00228400 T O0349!4 

Rt D2¢D=O01¢1F O88 THEN D ELSE 83 00228500 T 035433 
SKIP©IF (W"OIS17 THEN O ELSE WeDw173 00228600 T 0355%2 

WielF CWepds& THEN weDw=1 ELSE 83 00228700 T 035933 

WOelF CW@D*SKIPIS9 THEN O ELSE w=D"SKIP #93 00228800 T 036450 

~~ CODE«8s G60 TO SWT 3 00228900 T 036984 

Cr Of Wess Wie SKTE SO? 00229000 T O0370!2 
ZW2t W2603 00229300 T O37at2 
ZQO8 NeD1eN2«03 00229200 T 0373%4 
SWTs WTheW14W23 00229300 T 0375%0 
IF UTYP THEN BEGIN IF NOTCCDHI¢©TEMPD*W)S0 OR CODE*10) THEN 00229310 T 037631 
WeTEMPD ELSE DH1e0O3 IF CWH2eW+UTOPSFFTYP+ 00229320 T 037933 
USKIPJ+CHR>UBUFF THEN BEGIN P(1)3 PRNTA ENDS 00229330 7, 038483 

CHRECHR+WH23 SETMAXCHRS IF CQDES10 THEN BEGIN 00229340 T 039030 

; SKIP¢SGN+DH13 GO ETYPE1 END ELSE GO JMP END 3 00229350 T 039283 

END ELSE 00229400 T 0395:!0 
BEGIN Whe CW1leF AW, C2884] + (W2eFAW, C2434) 93 00229500 T 0398:0 
: SKIP¢F AW. (321613 00229600 T 039883 
END; 00229700 T QO400t0 
~ -INLOOP? TF CODE < 2 THEN GO TO FLOW32 00229800 T 040010 
UTYP.C35:5)6¢27 3 44% SETS UMNFUDCFUFSSTRUEs SETS UED#2, 00229810 T O404%4 
USKIP¢0 3 00229820 7 040380 


eoeeeee%seseeetketeeeeees ® @ @¢ @ . ee @ @ © 


IF LSTRN2O THEN IF UTYP THEN GO TO UTYPE 
FLSE GO To FLDW 3 
PCO) COMMENT SET KEY = EXITS 
PRNTAS COMMENT LIST EXAUSTED, RELEASE BUFFER AND EXITS 
COMMENT FILL FIELD WITH #3% 
ASTBt PCDEL)3 ASTA? PCDEL)3% 
AST: STREAMCP3€0% P2¢WsPUCUTIPsPULCUTOPsPS*USKIPs 
PRFeFFETYPs 
PCHeFFCHR» 
P4*BUFFQ 3 
BEGIN 
PSCDSeL IT" %) 3 
P2CDSeLITMa"3 PUCDIeDI"13 OSeLIT*x")) 3 
PFFCSIe#Loc P13 SI*SIe13 DS*CHR) 3$ 
PUUCDSeLIT™ ") 3 
P3 ¢ DI3% 
ENDs% 


GQ TO COMMM 3 
FORMATERRS IF FILXel18815]>1 THEN 
BEGIN ¥%% NOT ARRAYROWBUFFs SO TRY PAR LBL BRANCH, 
PEFILXENOT 3]) 3 
FILXENOT 3) « FILXENOT 4) « 0 3 
POMKSe9e JUNK) 3 


END 3 
TENCO$ TEN@PCETENCIIJeCFXeSFB) & 1008#38310) § 
STREAMCTEN)? DSi 7LIT**FMT ERR NO LBLIe” 3 
PCCTENCOJ].,C33%15]434*COM) 3 


FLOWS IF CODE=1 THEN GO TTYPES IF PCW+CHR*sDUP)>BSIZE 
THEN GO TO ERROR; COMMENT BUFFER OVERFLOWS % 
CHR © Ps COMMENT CHR «©. CHR + W3% 


SETMAXCHR 3 
COMMENT SELECT EDITING PHRASEs3% 
JMP 3 IF CODE = 15 THEN GO TO RTYPE#% 
IF CODE THEN GO ERROR 
aO TO PccODE 3% 
GO TO DOTYPE: COMMENT CODE = Q3% 


GQ TO XTYPES COMMENT CODE = 24% 
GO TO ALFA 3 COMMENT CODE = 4a% 
GO TO ITYPES COMMENT CODE = 63% 
GO TO FTYPES COMMENT CODE = 83% 
GO TO ETYPES COMMENT CODE = 103% 
GO TO DOTYPES COMMENT CONE = 123% 
GQ TO LoGI 3 COMMENT CODE = 143% 


COMMENT L PHRASE3% 
LOGI? STREAMCPS © OfP4 « IF WH1 THEN "TRUE “2% 
: ELSE “*raALSE a% 
P3 © Wis P2 ¢ SKIPsPi «© BUFF DSS 
BEGINZ 
P2CDS « LIT ™ "23% 
ST ¢ LOC Pase% 


SI © ST+#33% 
0S ¢ P3 CHRIS 
P5.¢ DIF4 
END3% 
gO TO COMMM ; 
, » = a& 


00229900 
00229910 
00230000 
00230100 
00230200 
00230300 
00230400 
00230410 
00230415 
00230420 
00230500 
00230510 
00230600 
00230605 
00230610 
00230700 
00230800 
00230900 
00231000 
00231020 
00231025 
00231027 
00231030 
00231040 


00231045 


00231050 
00231060 
00231070 
00231100 
00231200 
00231300 
00231350 


00231400 - 


00231500 
00231510 
00231600 
00231700 
00231800 
00231900 
00232000 
00232100 
00232200 
00232300 
00232400 
00232500 
00232600 
00232700 
00232800 
00232900 
00233000 
00233100 
00233200 
00233300 
00233400 
00233500 
00233600 
00233700 


ae te a a a a tt tt st tt A Ht 4 


040483 
O406F4 
O4O7tyE 
040732 
040910 
040910 
O0409!2 
041343 
0443!%0 
O41aty 
O414%3 
O414t3 
041620 
0418:3 
042034 
042182 
042423 
042280 
042210 
O0420%2 
042333 
O42ul4 
042532 
042833 
O429%0 
O42gt2 
0430%3 
0436!2 
O438%0 
0440314 
O44 
044423 
044330 
044340 
O44aty 
0445314 
044513 
O446%4 
044623 
O447ty{ 
O447t3 
044834 
044873 
OM44Ok 4 
044933 
044933 
045412 
045201 
045324 
0453%4 
O454t0 
045483 
045520 
0455%2 
045533 
045630 
045630 


Pape mue rams tut Ay ca BBE OS Fes ae = = Sree a ee cer = ee Baath os BA Sate ah Tae ote ala E eE E pee rs geae ah t A Res utes Se nis alte ce ta ch Shy eas hh roar Bates SEE ed Sa 


UTYPE & 


COMMENT THE U <EDITING PHRASE TYPE> (Us UW OR UW,M) SELECTS THE 
<ENITING PHRASE TYPE> tt= I / F / €SPECIAL) Es 
AND FOR THE CHOSEN PHRASE TYPE IT SELECTS A SUITABLE 
<FIELD PART> tt FP» 
AND A SUITABLE 
<DECIMAL PLACES> t= De, 
SUCH THAT THE FOLLOWING CONDITIONS ARE SATISFIED 
le FP MUST SATISFY THE INEQUALITIES» M S$ FP S We 
IF M > W THEN INITIALLY FP < W AND LATER FP IS 
ADJUSTED SUCH THAT M*#W LEADING BLANKS ARE SUPPLIED 
2« SUBJECT TO CONDITION #4 THE SELECTED PHRASE 
SHALL OUTPUT» IN A HIGHLY READABLE FORMATs THE 
MAXIMUM AMOUNT OF MEANINGFUL NUMERIC SIGNIFICANCE 
IN THE LEAST POSSIBLE FIELD WIDTH. A BLANK SPACE 
IS POSTFIXED TO THE EDITED LIST ELEMENT, 
NOTE: WHY = VALVE OF LIST ELEMENT TO BE EDITEDs AND 
IN THE FOLLOWING COMMENTS» "FULL WORD” IS USED IN THE 
CONTEXT OF CONDITION #2 UNRESTRICTED BY CONDITION #1, 

END OF COMMENT 3 

WHL*TENLOJXARSCWH2eWH1L) 24% RETAIN ORIG WHLeNORM WH1 FOR FINDE 

IF (WeSTORW)s41 THEN GO UIs %%% RESTORE We UL IS SENT TO I"TYPE, 

FINDE 3 %%% FINDE SETS E = ENTIERCLOGIOCABSCWH1)) J »@ESWHI<S@E+1, 

TEMPDeSTORD § &%% DECREASES USr OF PARTIAL WORDS, 

IF COWHL©ABSCWH2))80 42% ZERO 3S INTEGRAL» REGARDLESS OF EXPONT 
OR CWHL.0C326)50 AND E<10)) Z%% WH1 1S INTEGRAL AND NOT BIG 
AND (V2¢(SGNeWH2<0)4146)SW %%% V2 = MINIMUM WIDTH REQUIRED 
THEN %%% FOR FULL WORD I*TYPE, 

BEGIN Wev2 3 %%% WE NOW USE FULL WORD I*TYPE. 

Ul: IF W<TEMPD THEN USKIP*TEMPD*W 3. %%% PHRASE GETS BLNKS 
WHieWH2; GO TO I # 44% RESTORE WHL AND EXIT TO I*TYPEs 
FND 3 

SKIPeCWLEIF DHZ*E<O THEN WHIXTENC@E) ELSE WHI/TENTE] 225 3 

JUNKIeIF DH1le (Det 1eCW125,.49755813885))<E THEN WHI/TENLE@D) 

ELSE WHIXTENCOTE] 3 

%x% JUNK1 = MANTISSA OF WH1 AS AN 14 GR 12 DIGIT INTEGER, 
%¥%% 0D = # DIGITS™1 IN JUNK4e 

¥%% WL = MANTISSA OF WH1 AS NeNNageNe 

%%% DH1 = TRUE IF WHL > MaX INTEGER» ELSE pH1 = FALSE. 
%%% DH2 = TRUE IF WHI < 1, ELSE DH2 = FALSE. 

¥%% SKIP = TRUE IF Whi WOULD ROUND UPs ELSE SKIP = FALSE, 

IF DHL OR DH2 THEN IF COLeWUNKy MOD 10)<3%%% HERE WE HANDLE ANY 
THEN JUNKYeJUNK1@O1 ELSE IF D1>7 THEN %%% CONVERSION TRUNCA® 
JUNKY eJUNK1"04410 3 %%% TION PROBLEMS, 

IF JUNK1STENLL1) THEN IF D411 THEN 

REGIN WHIe©CIF F2>€#1) THEN TENLE*1] ELSE 1/TENC#CE+19)) 
RBSGNE1#47%8133 GO TO UTYPE 3 
END 3 

Diet 3 

WHILE JUNK1 MOD TENCOLJ=0 00 NLeDL+1sXEAOLSL+ETRAILN O IN JUNK1 

UESeDH23 IF NOT JUNKI©ABS(CE)>9 THEN UEDe|1s UNCeDAeDieDsi 3 

WT¢CW2624SGN+DH2DF14DA+JUNKL § %%% WT IS MAIN FIELD WIDTH FOR E 

IF DHi Z%% WHI BEYOND MAXIMUM FeTYPE RANGE 
OR CC2+DA<C™E) ~%%% OR WH1 HAS LESS WIOTH IN THE 
OR (NeD+teDL)+DAa<£) %4% Ew TYPE THAN IN THE FeTYPEs 
AND CABSCE 24 OR WK24SGN 42% AND ITT WOULDNT LOOK BETTER IN F 
+(O1¢IF DH2 THEN O ELSE E)+n2eIF DSE THEN 1 ELSE O"E)) THEN 

BEGIN 4%% THEN WE SHALL TRY E™TYPE, 


00233703 
00233706 
00233709 
00233712 
00233715 
00233718 
00233721 
00233727 
00233730 
00233733 
00233739 
00233742 
00233745 
00233746 
00233747 
00233748 
00233751 
00233754 
00233757 
00233760 
00233765 
00233775 
00233778 
00233781 
00233784 
00233787 
00233788 
00233790 
00233791 
00233793 
00233796 
00233800 
00233802 
00233804 
00233806 
00233809 
00233812 
00233813 
00233815 
00233816 
00233818 
00233821 
00233824 
00233825 
00233826 
00233827 
00233828 
00233829 
00233830 
00233831 
00233832 
00233833 
00233836 
00233839 
00233840 
00233841 
00233842 
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045920 
045910 
045930 
045920 
0459.40 
045930 
045920 
045910 
045920 
045910 
045920 
04591t0 
045910 
045910 
045910 
045920 
0459120 
O459%0 
045920 
045930 
046484 
046322 
0465380 
O46674 
O467%2 
047024 
047320 
0473483 
047510 
047812 


O47983 


C47983 
048523 
049030 
O493t0 
049340 
049370 
049340 
049340 
049340 
0493120 
049523 
050033 
050340 
050534 
05100 
O512%2 
05122 
O51384 
051730 
0526380 
052923 
052913 
O534%4 
053442 
053630 
0543%a 


 ALPAt 


¥%% IN THE ABUVEs D = # DECIMAL PLACES FOR FULL WORD ETYPE 
IF D+WwTSW THEN %%% D+wT = MINIMUM FIELD WIDTH REGUIRED 
BEGIN WeN+WT3%%% FOR FULL WORD E~TYPE, 
GO TO G $} &%¥% EXIT To FIRST PHASE OF E#TYPE PHRASE, 
END 3 
IF NOT (DH1 OR &%% EeTYPE WIDTH WAS TOO SMALL TO KANOLE 
v2e4W) THEN GO UL 3 42% NNeeeNQ0 eee QeO? $0 DROP 20 GO I 
ESUBTYPE: 
IF (DeWeWT)2>0 THEN GO TO G & %% WHL FITS ROUNDED ERTYPE, 
UpCeO § %%¥% NO ROOM FOR DECIMAL POINTs SO WE RESET FLAG, 
IF D#tDA=D*0 THEN GO G 3 %%% FORM IS <SIGN>N@<EXP>sGO TO E, 
UMDeO § $%% NO ROOM FOR MANTISSAs SQ WE RESET FLAG. 
WLeNOTCW2+JUNKIZW OR CUUNKieWL 41) 3 
IF DH2 THEN BEGIN IF COH2eC*E>10)4+W2)<5W AND SKIP THEN 
BEGIN %%% WH1<1» ROUND UP TO <SIGN>@<EXP4#1>9G0 TO ETYPE 
WEW"CDH2<W)s IF CEeE+1)#0"9) THEN YED*13 GO TO G END 
ELSE IF Wi THEN GO TO G ¥%% DEL 1 IN <SIGNPLO<EXP>*+G0 E 
ENO ELSE IF (&>8)+W2sW AND SKIP THEN BEGIN EtE+1% GO TO G 
FND %%% WH1>1» ROUND UP To <SIGN>@<EXP+1>s GO TO E*TYPE, 
FLSE IF wi THEN GO G 3 &¥%¥ DEL 1 IN <SIGN>1@<EXP>, GO TOE 
NewWwmiTCWHEF+SKIPSLIXSGN} GO TO UF 3 %%% GO TO FeTYPE FOR 
END REE egg  */007 2000040 
ELSE IF W2D1eCD*©D2)+p2"24SGN4D4 THEN %%% HANDLE VARIOUS F*TYPES 
Z%% D = # DECIMAL PLACES FOR FULL WORD FeTYPE. 
%%% 01 = MINIMUM WIDTH REQUIRED FOR FULL WORD F*TYPE, 
&%% OD = 1 + €DIGITS TO THE LEFT OF THE DECIMAL PLACE. 
BEGIN W © D1 3 %#% FULL WORD F*TYPE, 
UF: IF W<TEMPD THEN USKIP*TEMPDRW $ 22% PHRASE GETS BLNKS 
WH1eWH23 GO TO. R # %¥% RESTORE WHL AND EXIT TO FeTYPE. 
ENDS 


IF DH2 THEN IF SGN THEN 42% DH2 SAYS WHISO.NNeoeN* SQ SINCE WE 


D2eN2"CWH1<.5 OR WH2)2%% CANNOT FIT FULL WORD IN FTYPEs WE 
™CW+E < A"SKIP) 2% THEN DELETE LEADING ZERO CIF 00 NOT 
ELSE D2eeD2-1 3 %¥%% HAVE TO ROUND INTO IT)*sAND IF SHALL 
%%% HAVE TO ROUND TO O-DELETE *SIGN TOO 
IF (Dew=D2)20 THEN GO TO UF 3¢ #%% AFTER ABOVE SURGERY» IF CAN 
%%% ROUND THEN SEND WHt TO F#TYPE 
IF N2=1=W THEN GO TO UI 3 #%% TRY WHL ROUNDED TO AN INTEGER,» 
GO TO ESUBTYPE # %%% AS A LAST DITCH EFFORT» TRY ROUNDED E*TYPE 
COMMENT A PHRASE 3 
STREAMCPS © 03 PG ¢ WHis P3 © Wis P2 ¢ SKIP: 
P1 © BUFF)3% 
BEGINS 
P2(0S « LIT ™ "33% 
SI © LOC P3s% 
SI ¢ SJ] = p33% 
pS ¢ P3 CHR 
P5 ¢ DIs% 
ENDS% 


GO TO COMMM 3 
COMMENT 0D & QO PHRASES#% 


NOTYPE? STREAMCP4 «© Of P3 « IF CODE = O THEN 0% 


ELSE WHisdé 
“P2 ¢ SKIPs PL « BUFF 3% 
BEGINS 
P2(DS « LIT " "33% 


00233845 
00233848 
00233651 
00233854 
00233857 
00233860 
00233863 
00233864 
06233865 
00233866 
00233867 
00233868 


00233869 © 


00233870 
00233871 
00233872 
00233873 
00233874 
00233875 
00233876 
00233877 
00233878 
00233879 
00233883 
00233886 
00233889 
00233892 
00233893 
00233895 
00233896 
00233899 
00233900 
00233903 
00233906 
00233909 
00233912 
00233915 
00233918 
00233921 
00233994 
00233997 
00234000 
00234100 
00234200 
00234300 
00234400 
00234500 
00234600 
00234700 
00234800 
00234900 
00235000 
00235100 
00235200 
00235300 
00235400 
00235500 


aa at a tt tt 


O544:0 
054430 
0545 %4 
054750 
OS47t2 
05472 
054783 
0549314 
O549%4 
0554%2 
O553!%¢ 
05552 
O557%4 
056083 
0564%2 
0565!0 
0574192 
OS72a%4 
O577%2 
057810 
O579%2 
0583133 
058323 
0588!0 
058at0 
058820 
0588 °0 
058921 
05993 
059440 
059410 
059570 
0597%2 
0599302 
0603%4 
060381 
0605%2 
060532 
O60714 
060733 
0607%3 
O0609%¢ 


060983 


0609%4 
061410 
O61ist 
061133 
O612°4 
0642982 
061273 
06412%3 
061394 
064321 
061542 
0616314 
061710 
061740 


SI * LOC P3s% 00235600 7 O61a%! 

pS © 8 CHR3% 00235700 T 0618%2 

- Pa & DTS% 00235800 7 0648!3 

END3% 00235900 T 0619%0 

00236000 T 0619%4 

a0 TO COMMM & 00236100 TT Q619%14 
COMMENT X PHRASE3% 00236200 T 0619%3 
XTYPES TF PCCHR+CW1x64)eDUP) > BSIZE% 00236300 T 061983 
THEN GO TO ERROR; COMMENT BUFFER OVERFLOWS 4% 00236400 T 062471 

CHRP SETMAXCHR # 00236500 T 062221 
STREAMCP4 © Of P3 «© Wie P2 © SKIPs Pi © BUFF ISS 00236600 T 062450 

BEGINS 00236700 7 062533 

P2«0S *« LIt * ")A% 00236800 T 062533 

P3¢32(00S ¢ 2 LIT * ")28% 00236900 T 0627580 

PG ¢ DI3% 00237000 Tt 062833 

ENQDs4% 00237100 T 0629%0 

00237200 T 062911 

g0 TQ COMMM 3; . 00237300 T 062984 
COMMENT T FPRRASE 3 00237305 + 062983 
TTYPE!: TF TPHRASE>O THEN BEGIN DEBLANKS TPHRASE**TPHRASE END # 00237308 T 062933 
IF CCHReWHW1x64)2BSIZE THEN GO ERROR 3 00237310 7 063330 
STREAMCP3¢SAVEBUFFiP2eWsPyewd 3 00237315 T 063533 
BEGIN SleP33 STeSI+Po2s PLCA2CST©S14+32)93 P3eST END 3 00237320 T 063733 

GO COMMM #.: 00237325 T O640t2 
COMMENT J] PHRASES% 00237400 T O64;,!0 
ITYPES IF ABSCPCWH1sDUP)) > POCMAXN)2 00237500 T 064140 
, THEN GO TO ASTAJ COMMENT FILL FIELD WITH «3% 00237600 T 064230 
PC WHIisTSN*DUP D3 COMMENT ROUND NUMBER#2 00237700 T 064283 

SGN ¢ P< OF% 00237800 T 0643%2 

WHE ©CWH1 © ABS¢P)) DIV PCTENB)34% 00237900 T O644%2 

TF WHL 2 TENCWT"SGNI% 00238000 T 0646%4 

THEN GO TO AST} COMMENT NUMBER > FIELD WIOTHS% 00238100 T O647%4 
STREAMCPB © Of P7 © WTI™de P6 © EWH212P5 © SGN2% 00238200 T 0648%14 

Ph ¢ W2eP3 © WLeP2 © SKIP+USKIP*PUCUTOP? 00238300 T 0650%4 

PFFCFFTYP»s 00238305 Tt 065233 

PCH¢FFCHR» 00238307 T 0653%2 

Pil ¢ BUFF) 3 00238310 T O65ar4 

BEGIN 00238400 T 065433 

p2cps * LIT ™ 3% 00238500 7 065433 

P 4 DI13 COMMENT SAVE STARTING ADDRESS#2 00238600 T 065610 

Sl «© P64 00238700 T . 0656?4 

DS « P4 DEC3 COMMENT CONVERT HIGH HALPER 00238800 FT 0656%2 

ST « P6s% 00238900 T 065750 

SI] ¢ SI+83% 00239000 tT 0657%1 

DS « P3 DEC$ COMMENT CONVERT LOW HALF32 00239100 T 06573%2 

PFFCSI*#LOC Pls SleSIw1ls DS*CHR) 3 00239105 7 0658!0 

PucoS « LIT" ") 3 00239110 T O659%2 

PB © DI3%. 00239200 7 066033 

DI « P4{s% 00239300 T 0661!0 

DS « P7 FILL3 COMMENT LEADING ZEROS¢BLANKS3% 00239400 T 0664%14 

P5(CDI ¢« DIewis OS © LIT") § 00239500 T 066133 

00239600 Y 066344 

00239700 T 0663314 

00239800 T 066334 

00239900 T O663%4 

00240000 T 066334 

002401400 T 0663%4 
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ENDS4 


gQ TO COMMM ; 
COMMENT F PHRASE#% 


FTYPES IF ABSCWHIL © WHEL * 1.0) > POCMAXN)% 
THEN GO.TO AST3 COMMENT INSURE NUMBER IS REAL AND NOT 
TO BIG#Z 
IF NOT UTYP THEN FINDE S$%F INDE SETS FRCLOGIOCABSCWH1))1, 
REINS IF CE + (DA © 09) > 10 THEN GO TO FOD32% 


COMMENT DA © DECIMAL PLACES. IF OD+E>10» MORE THENS 
14 DECIMAL PLACES SO MUST DO SPECIAL ROUNDS% 
DH2 « WHY x CJUNK2 ¢ TENE DI23% 
COMMENT SHIFT NUMBER LEFT D PLACES THEN ROUND IT2 
OFF BY DOING INTEGER STORE IN DH23% 
FAt SGN. ¢ DH2 < 03% 
DHL. «© COH2 © ABS(COH2)) DIv. PCTENB 3% 
TF DHe > JUNKe THEN GO TO FB3% 
COMMENT NUMBER IS LESS THEN ONE» WILL SIGN FIT 3% 
IF PCWT*SGNe DUP) < O THEN GO TO ASTA#4 
COMMENT ASTA IF SIGN DONT FITs&% 
LZ «© P # CJUNKY«60O)3 
COMMENT JUNK} = # OF INTEGER DIGITS TO PRINT,% 
IF WTeSIGN = 0 THEN JUNK1s0= DONT PRINT LEADING 
ZERO e% 
IF WT*SIGN > O THEN JUNKist= DO PRINT LEADING? 
ZEROSS 
60 FC 3 
MAXNS 22 @OQOO7777777777777 3 
COMMENT NUMBER 2 1, CHECK IF ON ROUND WE OVERFLOWEDS 
INTO NEXT POWER OF TEN3% 
FBS IF CCJUNK1 ¢ E + CIF DH2 > TENCE+14+0A] THEN 22% 
ELSE 129% 
+ SGN ) > WT THEN GO TO AST3% 
COMMENT FOR NUMBERS 2 1 E = ONE LESS THAN THES 
NUMBER OF pIGITS LEFT OF THE DECIMAL% 
POINT. IN JUNK1 WE SAVE EITHER E+*1 OR% 
E+2*DEPENDING ON IF ROUND OVERFLOWZ 
OCCURED. ALSO WE COMPARE JUNK1 + SIGN% 
WITH WT, THIS TELLS US IF THE NUMBER 
WILL FIT THE FIELD, WT = TOTAL NUMBER2 
OF POSITIONS AVAILABLE FOR INTEGER DIGITS 
+ SIGN}% 
FCs COMMENT NOW WE CONVERTs NOTE THAT NUMBER 
1S NOW AN INTEGER IN THE FORM N®eN*N@ ONS 
* PENQTES TRUE DECIMAL POINTS 
» DENOTES MACHINE POINTS 
ZEROS CONTAINS # OF TRAILING ZEROS% 
JUNK1 CONTAINS # OF OTGITS LEFT OF *% 
DA CONTAINS # OF DIGITS BETWEEN * &e% 
NOTE THAT wHe + ZEROS ALWAYS = 0,2 
THE STREAM PROCEDURE WILL CONVERT THE% 
NUMBER IN TWO PARTS CALREAODY SET UP IN% 
DH1 AND DH2),. IT WILL THEN MOVE JUNKY &% 
OF DIGITS LEFT AND INSERT THE DECIMAL2% 
POINT, ALSO THE SIGN AND TRAILING ZEROS 
ARE INSERTEDS% 


00240200 
00240300 
00240400 
00240500 
00240600 
00240700 
00240800 
00240900 
00241000 
00241100 
00241200 
00241300 
00241400 
00241500 
00241600 
00241700 
00241800 
00241900 
00242000 
00242100 


00242200 - 


00242300 
00242400 
00242500 
00242600 
00242700 
00242800 
00242895 
00242900 
00243000 
00243100 
00243200 
00243300 
00243400 
00243500 
00243600 
00243700 
00243800 
00243900 
00244000 
00244700 
00244200 
00244300 
00244400 
00244500 
00244600 
00244700 
00244800 
00244900 
00245000 
00245100 
00245200 
00245300 
00245400 
00245500 
00245600 


00245700 


AAA Aa HA st ta a a st Ht st st is tt tt st st st a a a A 


066384 
066344 
0663%2 
0663329 
066410 
066470 
066523 
066632 


- 0666%2 


066940 
O67 44 
067131 
0674%4 
0673314 
067384 
O0673%4 
0467432 
0676%2 
067733 
067733 
067983 
067983 
O68 491 
068454 
0684914 
O68, 84 
068134 
068424 
068540 
068610 
068650 
0686:0 
068940 
04690%2 
069210 
0699%0 
069820 


069230 


069210 
069220 
0699140 
069220 
069230 
069280 
069210 
069220 
069810 
0692170 
069280 
069910 
069210 
069210 
069210 
069210 
069240 
0692140 
069280 


DLeDAF+JUNKL@CD2eIF PC JUNK, +#DAeOUP) > 8 THEN P(8sSUB)% 
ELSE PCDEL20))3% 
STREAMCP9COPPBEJUNKI+L ZeP7¢ZEROSsPGEelCOH1 J] »PSeSGNe 
P4eDl»P3eD2eP2eSKIPtWT=JUNKI PL ZtUSKIPePUSCUTOPs 
PFFEFFE TYP s : 
PCM¢FFCHR» 
LZa 
P1 ¢ BUFF) # 
BEGIN# 
P2cDSeLIT " %)3 COMMENT INSERT LEADING BLANKS3% 
P1LeDIs; COMMENT SAVE ADDRESS OF MSD3% 
NLl“Ol4¢13 COMMENT LEAVE. ROOM FOR INTEGERY 
PART3% 
LZCDSeLIT"O")3 
SI ¢P63% 
DSeP3 DEC} COMMENT CONVERT HIGH PART 
STeP63% 
SyeSy+83% 
NSeP4 DEC; COMMENT CONVERT LOW HALF3% 


 P7CDSeLIT"O")% COMMENT INSERT TRAILING ZEROSS% 
PFFCSTeLOC P13 SleSIe13 DSeCHR) 3 
PucpS « LIT” ") 3 
P9eDI3 COMMENT. ADDRESS OF. NEXT FIELDS 
SleP 43% 
SleSt+1s4 
DIeP{3 COMMENT MOVE INTEGER PART LEFT?2% 
DS¢P8 CHRIS 
OSeLIT*A"F% 
P5(DI-e PL DE ©: DIe41s DS -¢ LITM"") § 


ENDS & 


GQ TO COMMM 3 
COMMENT MORE THEN 11 SIGNIFICANT DIGITS SO WE HAVE 
TO DO SPECIAL ROUND3S 
pA ¢ 0 =(ZEROS ¢ E+Oe"11)3% 
COMMENT FIRST GUESS aT TRAILING ZEROS32 
RNOOFF 4% 
GO TO FA3% 


COMMENT E PHRASES3% 


ETYPEt IF D # 6 > W THEN GO To AST3 


SGN. «©. (WHI «© WHY x 4,02 -¢.03 
FINDE? COMMENT E. © EXPONENT?% 


ETYPEL$ PC1) #.3%% RETURN LITERAL USED AT REDT.s 


REIN? 


EAS 


IF (DA*D#1) > 10 THEN GO 1O EBS COMMENT SPECIAL ROUND OFF 
IF MORE THEN 11 SIGNIFICANT DIGITS#2% 

P(O}3 COMMENT SET LITERAL TO NOT ADJUST D2 AT ERTNES 
DH2 « CIF CE"D) 2 0% 
THEN WHL / TENCE "D4112— 

ELSE WH1 x TENE pet" EI 5% 
COMMENT NUMBER NOW IN FORM OF N¥Nweewnn,% 
WHERE * = TRUE DECIMAL POINTS 


00245800 
00245900 
00246000 
00246100 
00246105 
00246107 
00246108 
00246110 
00246200 
00246300 
00246400 
00246500 
00246600 
00246650 
00246700 
00246800 
00246900 
00247000 
00247100 
00247200 
00247205 
00247210 
00247300 
00247400 
00247500 
00247600 
00247700 
00247800 
00247900 
00248000 
00248100 
00248200 
00248300 
00248400 
00248500 
00248600 
00248700 
00248800 
00248900 
00249000 
00249100 
00249200 
00249300 
00249400 
00249500 
00249600 
00249650 


00249700 © 


00249800 
00249900 
00250000 
00250100 
00250200 
00250300 


00250400 © 


00250500 
00250600 
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069330 
069534 
O0697%2 
069933 
0703383 
O704%2 
070524 
0705%2 
070620 
070680 
O70784 
070742 
0707323 
070733 
070930 
O709%4 
070933 
074040 
O710%4 
071083 
O07 12:0 
O713%2 
071423 
071540 
071524 
O715!2 
071583 
O7163%4 
071633 
O7tat2 
O718%2 
071832 
0718%2 
O718%2 
O71at2 
071842 
071833 
071823 
0721420 
072480 
072140 
072333 
072383 
072510 
0725%2 
O725%2 
072733 
0730120 
073480 
O7343%14 
0733%2 
0733190 
073383 
073483 
073730 
074022 
074012 


eoecececeveevnereeewneweee ee ee 


E EXPONENTS 
: MACHINE POINTS 
DA = # OF DIGITS BETWEEN * S ,2% 
DA + ZEROS & <DECIMAL PLACES>% 
STORING IN DH2 ROUNDS NUMBER3% 
IF ¢€ DH2 «© ABSCOK2Z)) 2 TENE DA+11% 
THEN BEGING 
DH2 « TENE HAI34% 
—E © £— + i3¢ 
ENDs% 
COMMENT IF ROUND OQVERFLOWFO THE LEADING DIGIT FROM 9 TO% 
10 WE SET OUR NUMBER TO 1.0 AND INCREASES 
EXPONENT BY ONE3% 
OH1 ¢ DH2 DIV PCTENSIS COMMENT SINCE HARDWARE CAN CONVERTS 
ONLY 8 DIGITS WE SPLIT NUMBER IN TWO% 
PARTS AT 8 TH DIGIT3% 


aia 


IF FALSE THEN 
TENS?32 @1045753604000000 ; 
STREAMCPLOCOIP9 © ABSCE)+PB « ¢ E<O0)2P?7 «© SGNs¥ 
P6 « ZEROSsP5 © CDHL}sP4 + DAeP3 © Dis% 
P2 ¢ SKIPs PU « UTOP sPES «© UES» 
PFF «© FFTYPs 
PCHeFFCHR, 
PED «© UEDsPDC « UDC» PMD © UMDe P1 ¢ BUFF) 3 
BEGINS 
PacoSeLIT" ")3 COMMENT INSERT LEADING BLANKS;2% 
PiepI3 COMMENT SAVE ADORESS OF INTEGERS 
DIGITs% 
P7CDI © DI"413 pSeL ITs"); 


PDC(DIeDIl+1 3 COMMENT SAVE ROOM FOR INTEGER 


DIGIT#S 
SlePS3% 
DS«P4 DEC) 3 COMMENT CONVERT HIGH HALF 3 
PMOCSzreP5 3 
SI«ST+8i% 
NSe¢P3 DEC COMMENT CONVERT LOW HALF?% 


P6CDSeLIT"O")) ZSCOMMENT INSERT TRAILING ZEROS 3 
DSeLIT Wats y 
PES(NSeLIT+#*; PACOTeDIe1s BSelLTTt")) 3 


SleLac P93 COMMENT CONVERT EXPONENT?% 
DS « PED DEC3 

PFFCST*LOC PEDS SI+SI"13 NS*CHR) 3 

PucpS « LIT™ ™) 3 


Pq1O*«nr3 COMMENT ADDRESS OF NEXT FIELDs2 

PDCCSTe#P1 3 

Sr¢Sye#134 

NIe/P 13 COMMENT MOVE INTEGER DIGIT LEFTS 
rs t “ “ 


00250700 
00250800 


00250900 
00251000 


00251100. 


00251200 
06251300 
00251400 
00251500 
00251600 
00251700 
00251800 
00251900 
00252000 
00252100 
00252200 
00252210 
00252220 
00252300 
00252400 
00252500 
00252505 
00252507 
00252510 
00252600 
00252700 
00252800 
00252900 
00253000 
00253100 
00253200 
00253300 
00253400 
00253500 
00253600 
00253700 
00253800 
08253900 
00254000 
00254100 
00254200 
00254300 
00254400 
00254500 
00254600 


00254700 


00254800 
00254900 
00255000 
00255100 
00255200 
00255205 
00255210 
00255300 
00255400 
00255500 
00255600 
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O740%2 
O7AQO8SD 
O740%2 
QO74DID 
O740%2 
074012 
O7 42914 
O74384 
O74434 
O745%9 
O745to 
O7 4522 
O745%9 
074832 
074623 
074633 
074623 
074730 
074930 
O751%4 
O752%4 
075410 
O754%3 
O755%t2 
O75a%1 
O758%4 
0759%2 
0759%3 
075933 
O76tt1 
076444 
O7614%4 
O764%4 
O7644%14 
O764%1 
O761214 
076210 
076240 
O7b62t4 
0763%0 
076323 
076430 
O764%2 
076610 
076612 
O769TL 
0769%4 
O769%4 
O769%14 
076984 
0769132 
077010 
077132 
077983 
0773380 
077323 
O?74t0 


Lf i ce aise i We eases 


ERTN? 
REQT! 


EBs 


RTYPE! 


RCt 


TRYF? 


RRTNE 


DNS*+CHRIS 
OS¢L IT.) 3 
ENDs% 
BUFF © Psa 
IF P THEN D2 « N*BF% 
IF NOT P THEN GO TO RRTNS COMMENT OUT IF FROM RTYPES% 
GO TO COMM3% 
COMMENT MORE THEN 114 SIGNIFICANT DIGITSS 
REQUESTED SG pO SPECIAL ROUND;2 
NA ¢« OT1"CZEROSe O712)3% 
WH1 ¢ CIF E>0 THEN WH1 / TENTED 
ELSE WH1L x TENCE] 24% 
COMMENT NUMBER NOW IN FORM N.NNN WITH EXPONENT IN E3 


RNOOFF4 COMMENT ROUND OFF NUMBER? % 
D2 ¢ DA = 73% 

P(1)3 COMMENT SET KEY TO ADJUST D2 AT ERTNE% 

GO TO EA34 


COMMENT R PHRASE3% 
Wat ¢ IF SCFTR > 0 THEN WH1 x TENELSCFTRIX 
ELSE wH1 / TENC#SCFTRI3% 
FINDEs% 
SGN ¢ WHI < 03% 
IF ABSCWH1) > P(MAXM) THEN GO TO TRYEs% 
IF — 2 0 THENS 
BEGIN COMMENT CHECK IF IT WILL GO AS F FIELDS 
IF CE#2404+SGN) < W THENS 
BEGIN COMMENT YeS= IT WILL3% 
SKIP © W" (D+ q4WT 3% 
60 TO RFIN% : 
ENO ELSE GO TO 7RYEs COMMENT TO BIG FOR FSR 
END% 
ELSES 
BEGIN COMMENT NUMBER IS LSS THEN 141, SEE IF IT WILL 
Go AS F FIELD WITHOUT LOSS IN REQUESTED 
ACCURACY3% 
IF ABSCE) < © THEN GO TO RC3% 
COMMENT TO RCO IF IT WILL GO AS F FIELDS 
ENDS% 
COMMENT SEE IF NUMBER WILL FIT IN E FIELDS 
IF W < (€D+64SGN) THENS 
BEGIN COMMENT FIELD TO SMALL FOR Es IF% 
NUMBER < 1 PRINT AS F FIELD EVEN THOUGH? 
ACCURACY IS LOST. FILL FIELD WITH «* IF% 
NUMBER 2 13% 
IF — < 0 THEN GO To RC% 
ELSE gO TO AST3% 


ENDS 
COMMENT NUMBER WILL FIT AS E FIELDsADJUST PARAMETERS SO% 


ETYPE CAN HANDLES% 
SKIP © We(D+6)3% 
IF (0 © D+1) > 8 THEN BEGIN D1¢8s D2 * 0-8 ENDS 
ELSE BEGIN Die*Ds D2 « O END3% 
PCO)s COMMENT FLAG USED AT REQT TO RETURN CONTROL TO% 
RRINS& 
gO TO REINS” 
IF (D ¢ Drl) > 8 THEN BEGIN O01¢83 D2 + DB ENDS 
ELSE BEGIN Di«Ds D2 «© O ENDAZ 


00255700 
00255800 
00255900 
00256000 
00256100 
00256200 
00256300 
00256600 
00256700 
00256800 


00256900 - 


00257000 
00257100 
00257200 
00257300 
00257400 
00257500 
00257600 
00257700 
00257800 
00257900 
00258000 
00258100 
00258200 
00258300 
00258400 
00258500 
00258600 
00258700 
00258800 
00258900 
00259000 
00259100 
00259200 
00259300 
00259400 
00259500 
00259600 
00259700 
00259800 
00259900 
00260000 
00260100 
00260200 
00260300 
00260400 
00260500 
00260600 
00260700 
00260800 
00260900 
00261000 
00261100 
00261200 


00261300 © 


00261400 
00261500 


a ase ss st a as ss 


O77 4th 
O774at2 
O77584 
O?775!80 
077620 
077733 
O77aAtt 
078110 
0781430 
078430 
078323 
078532 
O78 at, 
O78at{ 
0789!:0 
0790214 


079042 | 


079420 
07914%0 
079223 
0798802 
079720 
079824 
0799%3 
o800t2 
080440 
0803%1 
080383 


080610 


080632 
O806%e 
0806%2 
0806'2 
080710 
080780 
080710 
O808t2 
O80Rt2 
o080at2 
0808ta 
081034 


081083 


081033 
081083 
081083 
O811%2 
OBLata2 
0812%2 
O812%2 
O812%2 
O81a4t, 
0818%2 
O821t2 
082113 
082443 
O822%4 
0826!2 


@®eees#eesegeeee8 @®e6.8hUhHhCcOOhCrOhhCrOhUC<C MhC—<C MUC OC MC! Cl 


GQ TO COMM3% 
MAXMESS @OOOTTI7T77T777777738 
COMMENT AFTER FORMATING A PHRASE WE COME HERE3?% 


COMMME BUFF EP 3 

COMM$ IF CODE > 2 THEN WHA © LISX3% 
IF PCCFFTYP=0)sSUB*DUP) > O THEN GO TO INLOQOP 3 
PCDEL)3% 
GO TO Si3% 


COMMENT THE <REPEAT PART> OF PHRASE IS IN TOP OF STACK,% 
IF REPEAT™1 > 0 THEN GO TO INLOOP TO USE SAME PHRASE 
AGAIN ELSE DELETE THE “Oo” REPEAT AND GO TO Si TOS 
PICK UP NEXT PHRASE3% 
END OUTPUTINTS& 


COMMENT ALGOL SELECT INTRINSIC3% 


PROCEDURE ALGOLSELECTCACTLsACT2sTANKs1)3 VALUE ACTLsACT2sTANKs I3% 


INTEGER ACTIsACT2s73 NAME TANK#% 
BEGIN ARRAY FIBC*1]3 NAME MEM=a2s ARRAY FPBe3C*]3¢ 
ARRAY HEADER(L * 13% 
LABEL REWsL6sMYUSERR 3 
REAL RITER12°REEDR1L3-SELECTR143% 
INTEGER STATUS*NBUFFSsBSIZEsTis INQOUTs»DIRECaAUTYPES% 
LABEL OWTSEASY*EXITFILLG&S 
DEFINE IOD=C*TANKI#3% 
LaBEL WReERR»RF,RRIYX 
LABEL DC193 
SWITCH CURRENT*WReERRS RES RRS 
LABEL CReLPseMTsDKeSPsCPsePPePReDC3 YZ 
SWITCH USWe CReLPeMTeEASYsDKe SPo CPyLPsPPrPReDCeCRelL PsDC193 
REAL SUBROUTINE COUNT3% 
BEGIN FOR TeO STEP 1 UNTIL NBUFFS=1 pO% 
BEGIN IF NOT TANKE1]-01921] THEN# 
PCETANKLI112@2000000000s2eCOMsNDELs DEL 3% 
IF TANKCI],£27%1] THEN 
BEGIN. | 
Ie TetecerIBe4).C2e1) AND FIB(5],(£44%41)3 
PC1)% GO OWT; 
END3 
ENDS PCO)3% 
OwTs COUNTePSS 
END COUNT34 
SUBROUTINE SPACES PCXCHsTANKs9e 11 ¢COMsDELsDEL » DELI 34% 
SUBROUTINE MOVEUP22% 
IF CI*MEMCFIBL16) INX 1])4BSIZE THEN 
BEGIN TANKLOJ¢ 1ODSCPCOUP) £E33815I]"BSIZE+1 033333815 13% 
TIFF IBC16),033%1515% 
STREAMCNG Let el *OeSeTlelsDeTIMBSIZE) 3% 
BEGIN SIleLac NF SleSi463 Ole*LOC Ls DIeDI+73 NSeCHRSS 
ST¢S3 DI"Ds DSen WOS) LCOS+32 WOS3 DSe¢32 wOS)3% 
END END3% 
SUBROUTINE REFILLS 
BEGIN FOR J¢O STEP 1 UNTIL NBUFFS#1 00% 


00261600 
00261700 
00261800 
00261810 
00261900 
00262000 
00262100 
00262200 
00262300 
00262400 
00262500 
00262600 
00262700 


00300000 
00300100 


START OF REL SEGMENTS DISK 


00300200 
00300300 
00300400 
00300500 
603006090 
00300700 
00300890 
00300900 
00301000 
00301010 
00301100 
06301200 
00301300 
06301400 
00301500 
00301600 


00301700 


00301800 
00301805 
00301810 
00301820 
00301830 
06301900 
00302000 
00302190 
00302200 
00302300 


00302400 - 


00302500 
00302600 
00302700 
00302800 
00302900 
00303000 
00303100 
00303200 


T 082832 
T 082950 
T 083010 
T 08300 
T 083032 
T 0832032 
T 063544 
T Q835!0 
T 083710 
T 0837%0 
T 0837!0 
T 083710 
T 083710 
IZE= 0838 


rT O000f0 
T O000!0 
ADDRESS = 
000010 
o000tO 
0000!:0 
000040 
o000%0 
0000t0 
000080 
0000%0 
oocato 
000020 
O000%0 
000030 
O000!%0 
000070 
0001440 
O005!4 
000730 
000982 
0011410 
001432 
0015%4 
001720 
001780 
001723 
0018:0 
001884 
002484 
002210 
002433 
002884 
002933 
003233 
0034%0 
0036%4 
00363 
003780 


ts a 9 ts a A A 


wORDS 


00053 


Easy! 


MTs 


TANKETISTANKET IQEC SAT EL IROIRECE 2254711) OR MEM; 

IF NBUFFS >1 THEN 

EA u Gee Uti caue ee Soe MRO 
BEGIN SIe*p3 SI*SI+83 DS*N WDS3 SIeLOC Ts OS*WOS ENDS 
PC2&CNOT DIRECICLEA7EL To TANKs 1011 %COM*DELsDELsDEL) 3% 

END END REFILL3% 

SUBROUTINE EMPTY34% 

BEGIN FIBLCI7I©BSIZE"CIOD»C338151=CSTATUSS3)MACT2¢FIB£16).0338159)3 
FIRBCIGI©FIBL16} ROL 222 2221 )8Ol248249145% 
FIRCIDI*FIBCI9DIROL22%° 2221 IROL 2422428 215% 
FIABCL3ZI¢FIBCAZIROLS9F A252:1I&OC278 27814134 
FIBC5S).C43821¢03% 

TANKENOT L7¢PCOUPSLODROC22:2281180L 24 2dt1 413% 

BSYZEe¢IF STATUS=O THEN MEMEACT2"1) ELSE 100,C8210)]3% 

FOR IeO STEP 1 UNTIL NBUFFS#1 00% 

BEGIN TANKEITJ©TANKOCTT@1019%4781)80f2282231180L Ads 2451 1% 

RF IBL18)£8%238310) OR MEMS 
IF 1>0 THEN% 
TANKETIGETANKC IVa CCSTATYS=3)+ACT2)(33°33415I15% 

ACT2eMEMLACT2"2)4£1924513% 

END END EMPTY3% 

If I = 6 THEN GQ TO Lés 

Ip 187 THEN GO TO MYUSERR 3 

TANK©CCI#1) INX *PC, TANK) )&0083682515% 

FIBeTANKCNOT 213 STATUSeFIB(5]3 UTYPESFIBLA],(884I5% 

Ip Is4 THEN IF STATUS,£4221)20 THENS 

BEGINSSTREAMCS*(FPBCFIBL4] oe fi3si1 +27] »DeCNBUFFSI 25% 

BEGIN Sl#S3 O5¢3 OCT ENDS% 
IF FIBC1]=0 THEN FIBCL]3=NBuFFS3 
BSTZE+FIBL13],C28:10)3% 
IF CACT1 OR 4)26 THEN T1*@12 ELSE% 
IF AGTI=4 THEN T1«@22 ELSE% 
IF ACTi#8 THEN T18=2@52 ELSE 
IF ACT1I=0 THEN 
IF FIGC19).024%6) LSS 16 AND NBUFFS GTR FIBC1) 
THEN Tlt=@412 ELSE TitsIF NBUFFS EQL BSIZE 
THEN 6 ELSE @12 ELSE 
IF ACT1 = 4 THEN 
BEGIN NBUFFSs2#R8SIZE3 T1i:273 IF UTYPE = 4 THEN 
BEGIN HFADERts*CFIBC1L4) 413 
IFCDIREC?=F1B07]"1) GTR CINQUTSSHEADERC7]) THEN | 
DIRECSSINOUTSINOUT#a (DIREC DIV HEADER(CO3+030812))+13 
END END ELSE T4s203 — 
PCTANK&TI£18333215126e11+COMsDEL DEL) 3% 
FIBC13].€C28:107%=1F FIBL15],£24#6) LSS 16 AND NOT AcTt 
THEN FIRC1] ELSE NBUFFS$ IF ACT1 AND UTYPE #4 THEN 
BEGIN FIBL61]1:sINOUTS FIBL717:sDIREC3 END} GO TO EXIT; 

END ELSE GO TO EXIT ELSES 

IF STATUS. £41!2]40 THEN 

BEGIN FIBLIZI©FIBLAZIACACTAS3 CA52A781 IRC ACT2A240 C278 a7ty1i3% 
GO TO EXIT3% 

ENDS 

GQ TO USWLUTYPE]3% 

NBUFFS¢FIRE13)7.C1089]3 BSIZEeFIBL18],Ci8ti513% 
INDUT©ACT2403 DIRECeACT2533 STATUSESTATUS C46t2]5% 
GO TO CURRENTCFIBCS]6£43%2113% 


CR: Lp! CP? PPt PR? GO TO ERR3 


00303300 
00303400 
00303500 
00303600 
00303700 
00303800 
00303900 
00304000 
00304100 
00304200 
00304300 
00304400 
00304500 
00304600 
00304700 
00304800 
00304900 
00305000 
00305100 
00305200 
00305300 
00305400 
00305410 
00305500 
00305600 
00305700 
00305800 
00305900 
00305950 
00306000 
00306100 
00306200 
00306250 
00306300 
00306350 
00306400 
00306500 
00306600 
00306610 
00306620 
00306630 
00306640 
00306650 
00306700 
00306800 
00306805 
00306810 
00306900 
00307000 
00307100 
00307200 
00307300 
00307400 
00307500 
00307600 
00307700 
00307800 


be ns st a a st A tA A ttt tt Ht Ht 


0044! 

004682 
004784 
004983 
0054%2 
005433 
00550 
005530 
005982 
006333 
0067%4 
007033 
OO73%4 
OO77S4 
008280 
OOB8btY 
O090T4 
OO9RE 


009430 


OO9RtY 
010480 
010143 
0105%2 
010643 
010933 
011410 
0116%2 
O119%2 
O12084 
012380 
O124t2 
012730 
0129!%2 
013270 
O133%4 
013523 
O13g%2 
014120 
0142214 
014520 
014633 
0149%2 
O153%4 
O15ate2 
0156%2 
015910 
016480 
0167%2 
0167!2 
0169%4 
Ol74ar4 
0174%3 
0174%3 
018233 
048670 
018923 
0193%2 
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$ SET OMIT = NOTCTIMESHARING) 
Oc: 
$ POP OMIT 
NC193 POLISHCIODs CTANKE1])}5 *PCDUP)» TANKs ¢s ©€)3 
FIBELS] «© C#¥PCDUP)I&PCOUPs LNG)C4324321)3 GO TO Easy; 
$ SET OMIT = TIMESHARING 
WRE If NOT DIREC THEN 
ERR: PCTANKs 82119COM) 3% 
SP 3 POMKSeieOe (NOT 2) INX TANK*4*SELECT)# GO TO EASY34% 
RFs IF INQUT THENS 
BEGIN T1eCOUNT? PCC#ID93 SPACERS 
IF CI©MEMEFIBCI6) INX NOT 07) 4RSIZE THEN? 
BEGINS STREAM(Ne THis NOTV64eCT+1) DIV 645% 
S¢FIB£L16) JINX CNOT 0) INX 15% 
DeFIBL1i6)] INX «NOT 0) INX BSIZE)3% 


BEGIN SleSj NCDSeWDSs SteSIm163 OLeDI"16 73% 
NDIV64C2C32CDSewOS SleSIe16s OleDI-16))25% 


END3% 
TANKCO]¢CBSIZE"I) INX 1O03% 
ENDS4 
FIBCI7IJ«I@CIF FIBCI7I=20 THEN IT ELSE FIBLA71)% 
+CSTATUSZOIXIOD C8310] +CSTATUS= 33% 
FIBCIS6IJ*CBSIZE*1) INX FIBLC16]81 02224731 75% 
FIRLIGJe©FIBCISIT&CFIBC16) INx CSTATUS#Z3)4 


=CSTATUS=14)xFIBL18)],.0332151)£33%333153% 
&CIF STATUS#O THEN FIBL19].0£3:5]+2 ELSES 
IF STATUS#=14 THEN 5 ELSE 790324385 781C22:4731135% 


FIBCS)].C43:2]¢33 FIBL1I3].CA5% LI 613% 
TANKENOT 12©PcpUuPsLODI8LE22:473413% 
MEMCFIBCI6] INX L)elss%. 
MEMCFIBCI6] INX NOTCI = Lt) Jerse 
FILL: REFILL#& 
PCMKSs Oe ds TANK sREEDsMKSs 020, TANKs REED 15% 
END ELSES 
BEGIN IF COUNT THEN IF. Tei THENZ 
BEGIN PCMKSs1sO0*e(NOT 2) INX TANKS GeSELECT IAS 
FIBLAL3IT C2581] ¢17% 
PCTANKsOsiteCOMseDELs DEL) 3% 
PCMKSsACTLs Os TANKe loSPLECT 32 
G0 TO EXIT3% 
END32 
PC(¢*1)23 SPACES EMPTY3% 
END 3% 
Go TO EXIT#% 
RR! If INQUT THEN4 
BEGIN T1leCOUNTS PCI)$ SPACES MOVEUP3S® 


FIBCiI7J¢I°CIF FIBC17I740 THEN I ELSE FIBL171)+CSTATUS#39% 


C(STATUSFOIXION, £841013% 


FIBCLOI©FIBCIGOIRPCOUPs Ls INXsBSIZE, MIC S38 33815 18OL22:22817 3% 
FIBCISJ*FIBCL9IRCFIBC163 INX CSTATUS=3))C33233%15]8OC22%2294 1% 
RCP COUP. C3SSI"STATUSRCNOT STATUS 64624624) )C384325)5% 


TANKENOT LJ©PCOUPsLODI8OL22:2221)3% 
FIBCS].CA3*2]¢23 FIBL131.025t1]¢03 GO FILL32 
END3% 

IF COUNT THEN IF T=4 THEN’ 


BEGIN PCMKSs020sCNOT 2) INX TANKe4eSELECT)s GO TO EASY ENDS 


PcIw1)s SPACES MOVEUP32 


00307801 
00307805 
00307808 
00307810 
00307820 
00307825 
00307900 
00308000 
00308100 
00308200 
00308300 


00308400 


00308500 
00308600 
00308700 
00308800 
00308900 
00309000 
00309100 
00309200 
00309300 
00309400 
00309500 
00309600 
00309700 
00309800 
90309900 
00310000 
00310100 
00310200 
00310300 
00319400 
00310500 
00310600 
00310700 
00310800 
00310900 
00311000 
00311100 
00311200 
00311300 
00311400 
00311500 


00311600 © 


00311700 
00311800 
00311900 
00312000 
00312100 
00312200 
00332300 
00312400 
00312500 
00312600 
00312700 
00312800 
00312900 


ea st st tt a st st a tt 


019410 
01940 
019480 
0194:0 
0196%2 
019983 
019933 
o200%4 
020280 
020433 


020530. 


02091%0 
O21210 
0214%3 
O02146%2 
O2iate2 
0220%4 
022233 
022330 
N22510 
022510 
022842 
O23a%t2 
023630 
O23at, 
024033 
O244h4 
024H%3 
025333 
025633 
0259:0 
026240 
0263!0 
0265%2 
0265t2 
O26at4 
027410 
0273%2 
027530 
027632 
027750 
027740 
028010 
0280!0 
Q280t2 
0280:3 
028530 
028942 
029292 
0296492 
0299!%2 
030410 
0307140 
O312%2 
031222 
O315%4 
0318%2 


DKi: 


REWS% 


62 


FIBLIOI]©FIBL4 


618P COUP, 12 IN NXsBSIZEs"ICSIt33815 13% 
FIBLiGI*#CSTATUS=3) INX FIBCI6J&FIBL18) [(823821033% 
EMPTY3% 


POMKSsO20eQe C71) eTANKs RITE*MKS20202Q0eBSIZEeTANK* RITED3% 
GQ TO EXIT#s% 


Ip FIBC4),€C 2723321 THEN 
REGIN FIBLS]elA3t2ZI+ACT23% 
FIBCLG] eC 24ELIGACT2A¢ACT240F4% 
FIRCISIJOFIBLIDIBACT2L2424724380f2524781)3 
END ELSE@ 
Ip FIBC4}.C27%3}2=0 THEN 


BEGIN IF ACT2=1 THEN ACT2¢FIB(5] C4322 ELSES 
IF ACT234 THEN ACT2¢0 ELSE 
IF ACT233 THEN ACTieFIBEC7J]*4 ELSES 
IF FIBC5),0C43:2)23 THEN ACTI*FIBC7)+1 ELSES 
ACTLeFIBEL7 33% 
PCMKSsO020s (NOT 2)INX TANKe4sSELECT)&& 
FIRCLIZIT€FIBLCLZIRCACTA2RS C252 47511&CACT240 C27 8478115% 
FIRBC7ICACTIS& 
PCTANKs02112COM»DEL*DEL)3% 
END ELSE% 
BEGIN IF ACT2=3 THEN GO TO ERR#X 
Te acT2si OR AcTes4 THEN GO TO REWS% 
IF ACT2=0 THEN BEGIN HEADERe *CFIBL14)13% 
IF FIBC7I>HEADERE 7] THENS 
HEADERE 7) «FIBL7)3% 
POMKSs Oa te TANKs REED eMKSe Oe 0a TANKS REED DS 
END ELSES 
PCMKSa 490209 C*1 2 TANK@ RITE & 
MKSeteOsOsrIBliBlelL33t1 5] 2 TANKeRITED3% 
QO TO EXIT; 
ENDS GO EXITS 
FIB © *TANK? TANK *CTANKC3]73 % SORT REEL SWITCHING 
If ACTLo= 1. THEN 
BEGIN % I40. COMPLETE BUT NOT PRESENT 
IF NOT C*TANK),£2731] THEN % PARITY 
PC La f TANKOINOT eS OLT ELE RECN? % TERMNATE ON PARITY 
ELSE 
BEGIN % EQF OR EGR. coe 
PCTANKs119412COM»DELsDEL)3 & READ ENDING LABEL 
IF MEMCTANKENOT 413° INX 41,042%6) #0 THEN PCieRTN)DS %EOF 
Tie FI8f131],£28310] + 13 xy REEL # + 1 
PC(MKSs4eO0eCTANKENOT 2]124,SELECTIS % CLOSE PURGE 
FIBCO13].028810) « T413 
PCLTANK] 90%112COM)4 PCOsRTNDE 
END3 
END? 
IF ACT1 = O THEN % REEL SWITCH ON OUTPUT 
BEGIN ; 
HEADER ¢ TANKENGT 13% HEADERE4).€4236)] © 13 & EQR FLAG 
T1. ¢ FIBC133.£289101 + 13 
POMKS»7eOsCTANKENGT 21194,SELECT)3 
FIBC131,£28310) « Tis 
PC TANKsOQs1142COM)3 PCXIT)$3 
END3 


00313000 
00313100 
00313200 
00313300 
00313400 
00313500 
00313600 
00313700 
00313800 
00313900 
00314000 
00314100 
00314200 
00314300 
00314400 
00344500 
00314600 
00314700 
00314800 
00314900 
00315000 
00315100 
00315200 
00315300 
003745400 
00315500 
00315600 
00315700 
00315600 
00315900 
00316000 
00316100 
00316200 
00316300 
00316400 
00316500 
00316600 
00316700 
00316800 
00316900 
00317000 
00317100 
00317200 
00317300 
00317400 
00317500 
00317600 
00317700 
00317800 
00317900 
00318000 
00318100 
00318200 
00318300 
00318400 
00318500 
00318600 


ts a tt st tt tt Ht HHA tt 


032140 
032410 
032733 
032940 
033233 
O333%1 
O333t4 
0335%2 
0338%2 
034210 
034512 
034522 
034722 
034810 
035033 
O353%4 
035632 
0360!9 
036230 
O364?4 
036833 
037080 


037182 


0371%2 
O373%4 
037583 
0378%4 
0379%2 
0384%2 
038430 
038410 
0386%2 
0389320 
038922 
039010 
0390%4 
039320 
0393%2 
039483 
039734 
O39781 
0397323 
03990324 
040383 
040583 
040880 
0410%2 
041280 
041280 
041230 
041233 
O414334 
0414732 
0419%2 
042133 
O42Kt 
O425%2 
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If ACT1 = 2 THEN % REWIND OUTPUT 
BEGIN 
Ti «© IF FIBEC13),028210] = 1 THEN O ELSE 73 
PCMKSeTLe Qs CTANKENOT 2) Je4eSELECT)3 PCXIT)3 
ENDs PCXIT2.2 
MYUSERR:$ %%% BRANCH TO HERE IF 1373 
PCTANKCNOT 3323 TANKENOT 312" TANKEINOT 43¢03 PEMKSs9e JUNK» DEL) 3 
FIBeTANKENOT 2]% HEADER PCCHEADEREC1)]°CFXsSFB) & 1008238210] 3 
STREAMCPL©ACT2sP2eCFPBCFIBC4] LAS) eP3eF IBS] eCIL:2]»HEADER) 3 
BEGIN DS+S5LIT""FAEC™S SyeP23 STeSl+43 OS*7CHR$ STeSI413 
DSeLIT"/"F TALLY¢O3 7CIF SC=" " THEN JUMP OUTS STeSI+13 
TALLY*¢ TALLY +193  SleP23 Sl#S1493 P2eTALLY? OSeP2 CHR ; 
DSe7LIT" MYUSE="3 SyeLOc P33 DSeDEC3 OS+*8LIT") TRIED ™ 3 
SteLOc P13 ST#SI+23 DSeS6CHR$ OSe*2LITGe § 
ENO OF STREAM # 
PCEHEADER(C0O}].033215]534,C0OmM) 3 
EXTTs:% 
END SELECT?% 


PROCEDURE INTRINSICCDUPEsD»eNUMNIMs SIZE, TYPED 3% 


VALUE DUPE sDsNUMDIMsSIZE* TYPES % 
ARRAY DUPEL*]# NAME 03% 
| INTEGER NUMDIM*SIZEsTYPES% 
BEGINS 
NAME. DUM=TYPE 2 A3% 
ARRAY DOPEs*8(*]4% 
ARRAY PRTPOINTER=10[C *I3% 
REAL NUMBUFF="7sI0T#"2.+MODE="6eFILENO="9eBUF FSI ZE="*53% 
REAL DISPROSITION==10>ROWSIZES"112NUMROWS=@12,RECSIZE=DS% 
NAME E3% 
INTEGER Is J9K3% 
REAL C3% 
BOOLEAN B3% 
ARRAY AIT=6L¥I3% 
REAL REGURSES53 INTEGER BLOCKCTR=16;3% 
NAME Me23 
ARRAY FIBE+#]3 
ARRAY FPBa3[*)sSEGDICT=40 413 
INTEGER TIPEs*2sCYCLEB"3sDATES*4sREELE"S oF LDS"6eMFIDE=73 
NAME FLE=383 
LABEL EXITsAOKsUPDATEFPB3 
REAL PTR=*41APTR="10sLBO0s"*72DIMO="6eL BNSE"5 sDIMNSE"4 sMAXLBsMINUBe 
UBO»sUBNeNa TPs He 
ARRAY ARRY = MINUBL#73 
INTEGER DIM1 = UBO»s, ODIM2 = UBN3 
ARRAY GATSL1 Ce] -NEWE" BL eT ,0LDE"9[%1; 
NAME MAT="2sNAT3 
BOOLEAN OWNTOGs REDECLTNG»s TASKARRAYTOGs AUXTOG? 
LABEL FOUNDsARROUNDFOUNDs TY123 
NAME PHILE=*103 
LABEL TYOsTY1+TY2eTY 3s TY Ge TYSe TY Ose TY7e# TY Sa TY9STY1O3% 
LABEL TYL19TY132TY14eTYISeTY16eTY{7oTY 189 TY193 


00318700 
00318800 
00318900 
00319000 
00319100 
00319110 
00319120 
00319130 
00319140 
00319150 
00319152 
00319154 
00319160 
00319170 
00319180 
00319190 
00319200 
00319300 


00400000 


START OF REL SEGMENTS DISK 


00400100 
00400200 
00400300 
00400400 
00400500 
00400600 
00400700 
00400800 
00400900 
00401000 
00401100 
00401200 
00401300 
00401400 
00401500 
00401600 
00401700 
00401800 
00401900 
00402000 
00402100 
00402200 
00402300 
00402310 
00402320 
00402400 
00402500 
00402600 
00402700 
00402800 
00402900 
00403000 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 

Ss] 


T 


042582 
042684 
042633 
043084 
0432%3 
043320 
0433%0 
O43R%2 
044283 
044624 
O44art 
O450t2 
Od45at4 
O455%4 
0456%9 
045633 
OaSarty 
045920 
ZE* 0460 


00000 


ADDRESS = 
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000040 
00000 
000080 
000010 
0000%0 
0000%0 
O000FO 
00000 
00000 
000080 
000080 
000080 
000080 
000030 
0000 '0 
0000!0 
000010 
000030 
000010 
000010 
0000%0 
00000 
000080 
0000'0 
0000%0 
00000 
00000 
000080 
0000!0 
0000!0 
0000!0 
000010 


wORDS 


00069 
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SWITCH SWeTVOrTY I eTYQeTY 3eTYMeTVSsTYGsTYTsTYOsTYOsTY 10s TYL 1» 
TYL 2a TTYL 39 TYL4e TYL Se TY 162 TYL7e TY LBs TVI93 
TASKARRAYTOGE TYPE CISL IF AUXTOGETYPE, C4181 JS TYPEe TYPE AND @773 
GO TO SWETYPE]3% 
TYOSETYLETY2SSTY 32% 
OWNTOGeTYPE,C46tii3 
L©AITOCUCOVSTYPECTYPE 443% 
EePCNUMDIM#=1+OWNTOGXCNUMDIM#1) sNOT*CNUMDIMJ] es INX)3 
AGCPCSIZE"1+QWNTOGONOTSCE TS INXIZIF PCCELOJ] sOUPsL OD» XCHeISNISO OR 
£f0)]>1023 THEN 
; PCELO] s+ TRUE*1229»COM)5 
IF OWNTOG THEN BEGIN . 
HEGATCOJINATOPCO*NOTS CE J2INX)3 
FOR Ket STEP 1 UNTIL H OO 
IF ACJI,CCFISOATOCKI.£1%215] THEN GO TO FOUND; 
FOR Cet STEP 1 UNTIL SIZE DQ 
OATCHeH+1]¢O8ALCr1) C1t33ti5)3 
FOR Ce, STEP 141 UNTIL 2xNUMDIM. DO 
PCNATEC™1LI] es LOATLHSH+1])418093 
QATLCOJ*H3GO AQK3 
FOUNDSREDECLTOG+TRUES3 
STREAMCREOSNUMDIMSACCOATCTPeK+SIZE J] eBeCNATI 3 
BEGIN ST©AS TALLY #43 
NUMDIMCIF 16 SC#DC THEN TALLY©0)s ReTALLY 3 
END3 
IF PCNOP) THEN GO TO EXIT 
ARROUNOFOUND!? ALJI©CPRTPOINTER(L17)33 
ENDS 


AOKIDNC 


BEGIN? 


BeNUMDIMZ13Ce (CIF AUXTOG THEN 3 ELSE (TYPE.C47#1) OR B82) 


BACJICCTF] & ECOIL88388101)5% 
IF NOT OWNTOG THEN | 
AITLIel#13eC & TYPEL2$4621I8BLOCKCTRI8t 3841032 


&NUMDIML 3243451; PCFLAGCC) sACJ125TD)5% 
IF TASKARRAYTOG THEN AITECIJ,C1I2) ¢« 33 
IF 8 THEN% 


PCMKS»FLAGCC),CELLFONNTOGI J »sNUMDIM@1eE CO], 
TYPERAUXTOGL412 4731] *RECURSE) 4% 
ENDZ 
UNTIL CCJeJ+1)SSIZE) GR REDECLTOGs 
IF REDECLTOG THEN 
BEGIN #REMAP 
POMKSsTP+2e2eM([0ATCKI, £1? boa, Patna teReivas Loe: 
OATLTPISOATLTP +1} eNATLOTANATLAJsNUMDIMsENATI 912 
» RECURSE*EMCOATOCKI].c1815) 1] ] »LOD»>NUMDIMs25eCOMsDEL» 
DELIIKeK +13 
IF J<SIZE THEN GO ARROUNDFOUNDS 
STREAMCNUMDIM*A*(NATCO])eBelLOATLCTPI1)3 
BEGIN SIeAsNUMDIMEDSe2 WDS) END 
ENDS AITCOJ+I3G0 TO EXITS 


ait GO TO EXIT#4% 


TYATETYSETYOLTY7 2% 
OWNTOG*TYPE, [468133 


IF PCOsDUPsLODsXCHs ISN*DUP 2S$0 OR PCXCH)?>1023 THEN PCDCOle1*19292COM 


3 «00 
BEGIN’ 


00403100 
00403200 


00403250 
00403300 
00403400 
00403500 
00403600 
00403700 
00403800 
00403900 
00404000 
00404100 
00404200 
00404300 
00404400 
00404500 
00404600 
00404700 
00404800 
00404900 
00405000 
00405100 
00405200 
00405300 
00405400 
00405500 
00405600 
00405700 
00405800 
00405900 
00406000 
00406100 
00406200 
00406300 
00406400 
00406450 


00406500 


00406600 
00406700 
00406800 
00406900 


00407000 — 


00407100 
00407200 
00407300 
00407400 
00407500 
00407600 
00407700 
00407800 
00407900 
00408000 
00408100 
00408200 
00408300 
00408400 
00408500 
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0d00%0 
0000720 
900030 
0008:%3 
001933 
002010 
002 4%1 
002420 
002732 
003433 
003233 
0034!2 
0035%4 
003733 
0039:0 
00442 
0046!0 
005233 
005770 
0060%3 
0062%2 
006334 
006634 
0066723 
O068ia 
0068%3 
006933 
007442 
0071%2 
0071442 
007482 
007542 
OO7AYs 
007833 
008224 
00846! 1 
0089%2 
008923 
009354 
009423 


009413. 


0097192 
009723 
O09at4 
010280 
O105%4 
0108%2 
OlLloto 
Oliit4 
0112%3 
Oitaty 
011610 
0116%2 
O117%0 
O11e%t 
0122:3 
012370 


ton 


TY12% 


BeNUMDIMA 43 
DUPELKI*FLAG(CeC(CIF AUXTOG THEN 3 ELSE 
CTYPE.C47#1) OR B))% 
&LDUPELKIJLCTFISOLOIL82 388103) I3% 
IF B THENS | 
P(MKS»FLAG(C) »£DLL+OWNTOG}J»NUMDIM@1sDL01> 
TYPERAUXTOGL4LI4781]*RECURSE) & 
— END® 
UNTIL CKeK4] )2SIZER 
GO TO EXIT#3 | 


IF LAO<LBN THEN MAXLBeLBN 
ELSE MAXLBeLBo3 

UBO+LBO+DIMO@13 

UBN©LBN+DIMN| 13 

IF UBO<UBN THEN MINUB*UBO 
ELSE MINUB*UBN} 

NeMINUB@MAXLB4+13 

IF NUMDIM®4 THEN BEGIN 

IF NSO THEN GO TO EXITS 


STREAMCNeMEN, £38 24] sAeCOLDEIMAXLB@LBO]] Be CNEWELMAXLB*LBNII)3 


BEGIN ST*AJMC(DS¢32 WOS3D0Se32 WDOSISDSeN WOSS ENDS 
END 
ELSE 
FOR TeQ STEP 4 UNTIL Ni OO 
P(MKSePTRe2sAPTRees LOLOCMAXLB*LBO+l I] sLODs 
CNEWECMAXLB@"LBN+ LJ Je>LODs,OaATEPTRIsOATEPTR+1 Ie 
MATCAPTRIsMATCAPTR+1J]sNUMDIM™1sCMATIJ¢12*RECURSE D3 
gO TO &xITs 
TYB232Z . 
PCIF NUMBUFF <1 THEN 4 ELSE NUMBUFFse ,»NUMBUFFs ISD)3 
PCNUMOIMs .NUMDIMs ISD )3 
PCRECSIZEs eRECSIZEsIS0)3 
PCBUFFSIZE* BUFFSIZEsISD)}3 
PCROWSIZEs eROWSIZE*180)3 
IF PCNUMROWSs NUMROWSsISN)>20 TREN 
PCNUMROWSs TRUE 2 29299COM)3 
PCMKS**P(, DOPE)» C(NUMBUFFELI+NUMBUFF +27» 
letaetsRECURSE)3 
AITCAITCOJTe*AITCAIT(OII 4% 
DOPE*«*{DOPEI3% 


DOPEL2]«CNOPEC CNUMBUFFS1 )+NUMBUFF 45) ]@ 220883891013 


DOPEC4IJ¢(DOPE(5I13% 
NOPEL3I«O&1008'3821013% 


T¢O03C# @20002020000000 BC TOTZ10)C 2484721 1aMODES 


r27t47 ty JACCDOPELSIIICCTCISS 
WHILE CTel+19SNUMBUFF DO 
DOPELT+4] eFL AGC CIE 
DOPEe*«(DOPEL2II13% 
STREAMCTe©£NUMDIM])4 BEGIN SIe«Ts OS ¢ 8 DEC ENDS 
FILENOQ*CFILENQ#1)xETRLNG3 ¢¥ 


MOPEC4SI*®NUMDIMGFILENOLAZ8 3731181012947 81 1a 3C8tags4 1% 


RCIOTHLLICONA7TELIRDISPOSITION(L 25% 46:2)3% 
IF RECStZE=0 THENZ 
BEGIN RECSIZE*«RUFFSIZEs TeO END ELSES 
IF BUFFSIZESRECSIZE THENS 


BEGIN ITeBUFFSIZES BUFFSIZFeRECSIZEs RECSIZE*Is Tel ENDS 


00408510 
00408600 
00408700 


00408800 


00408900 
00409000 
00409100 
00409200 
00409300 
00409400 
00409500 


00409600 - 


00409700 
00409800 
00409900 
00410000 
00410100 


00410200 © 


00410300 
00410400 
00410500 
00410600 
00410700 
00410800 
00410900 
00411000 
00411100 
00411200 
00411300 
00411400 
00411500 
00411600 
00411700 
00411800 
00411900 
00412000 
00412100 
00412200 
00412210 
00412300 
00412400 
00412500 
00412600 
00412700 
00412800 
00442900 
00413000 
00413100 


00413200 


00413300 
00413400 


00443500 


00413600 
00413700 
004138600 
00413900 
00414000 


a ss a ts st tA a tg A A HAA A a tt 


012330 
O124%4 
012654 


0127°2 


013082 
013033 
O134%4 
0135%3 
043533 
043780 
O13ate 
O138%2 
013933 
014423 
014332 
OL45%4 
O144i2 
0148%2 
0150%4 
0151%2 
015243 
0156214 
0158%t2 
015a8%2 
O15ete2 
O16331 
016633 
017030 
O174%2 
017550 
017570 
017733 
0178%2 
Q179%4 
0180?0 
018023 
048210 
018323 
018624 
018734 
018912 
019083 
019433 
019684 
0198t2 
02010 
O203!4 
0205!2 
020930 
021034 
021123 
0213!2 
021632 
022031 
022110 
022330 
022484 


TYPE*FPBCFILENO+33.043:5))s1 OR TYPES4 OR TYPE=6 
OR ¢(TYPE>14 AND TYPE<19) THEN 2 ELSE 39(11!4622] 
& CIF TYPE THEN O ELSE 396924682) & CIF TYPE THEN 
4 ELSE 03£13845:3) 3 
STREAMCFBeLFPBCFILENO] J eRe lI} 23% 
BEGIN SIeFBs SJe#S1+163 0943 OCT ENDsS 
DOPEC1L3)*©O&NUMBUFFI123939}8MODEL2Z4247511% 
RIL28:382LOJRNUMBUFF [1083939]% 
RCIOTALOVL2A784754 95% 
NOPELISI*RECSIZERBUFFSIZE 3133215 I8BUFFSIZELIBI33315 15% 
DOPECABI*+ROWSTZERNUMROWS(15123831033% 


$ SET OMIT = NOT SHAREDISK 


GO TO EXIT#% 
TYOT LY 
BEGIN IF NUMDIM # 0 THEN 
IF NUMDIM # 15 THEN BEGIN 
IF ¢Y «© (CC © NUMDIM),£8:10]) # BLOCKCTR THEN 
BEGIN BLOCKCTR « J413% 
PC10sCOM)32% 
END3% 
PCSIZEs~NUMDIMs©)3% 
IF (4 © Cef18!15)) = O THENS 
J ¢ PRTPOINTER,C18%151]+25% 
DO UNTIL C*CPRTIPOINTER&CJeHUNTC J) INX 02£3399332153224% 
£123254 AND MCJ1,f6212] #403 
PCCHCPRTPOINTER( Cel332157 2 RIE18F33815]-BRT 3% 
END END3% 
NUMDIM¢O$ : 
GO TO EXIT34 
TY1021% 
AITLAITCOI©CAITLCO]41)] em 2a, (8i 38210 RCSIZEIL1823321513% 
GO TO EXIT#4 


TY4133 FIBeFLECNOT 234 : 
IF FIBC53.04122] = QO THEN GO To EXIT’ &% FILE OPENED 
IF FIBCS)-042:1) THEN GO To UPDATEFPB; % CLOSED,+RELEASED 
IF FIBC4].C24:2] #4 1 THEN GO To EXITS % REWOUND 
IF FIBL4)¢0884)] #¢ 2 THEN GO TO EXITS % MUST BE TAPE 
MFI6 « TIPE «© "O$3 % PREVENT CHANGE IN MFID OR TYPE 
UPDATEFPB! 


BEGIN 
STREAMCACOIMPIDsF IDs REEL©REEL©REEL sDATECDATE*DATEs 
CYCLE*CYCLEeCYCLEs TIPE+TIPE+TIPEs 
Fe Te (FPBCFIBC4],¢13%11911);3 
BEGIN SI*LOC MFID; 
QCIF SC=%+" THEN. BEGIN SI«SI#83 Dl*DI+8 END ELSE 
IF SCea"0" THEN DS¢WDS ELSE BEGIN TALLY*1s A*TALLY3 
JUMP OUT TQ ERR END); 
IF SCa%+" THEN BEGIN SI*SI+8;3 DIeD1+3 END ELSE DS*3 DEC; 
IF SCs "4" THEN BEGIN STeSy7+83 OleOr+5 END ELSE DS«5 DEC 
IF SC=#"4+" THEN BEGIN SI#sSI+830]%=D1+2 ENO ELSE 
: é BEGIN DSe DECs DIe\eDI+13 END} 
IF SC#"+" THEN BEGIN SleSr+73 DIleDI+53 DSeCHR END; 
ERR? ENND3 : 
TF P THEN PCC™75)234*COM)3; % DS = INVALD FILE NAME 
IF REEL20 THEN FIBC13].C2as10]*REEL END} 


00414100 
00414200 


00414205 
00414210 
00414215 
00414220 
00414300 
00414400 
00414500 
00414600 
00414700 
00414800 
00414900 
00414949 
00415000 
00415100 
00415200 
00415300 
900415400 
00415500 
00415600 
00415700 
00415800 
00415900 
00416000 
00416100 
00416200 
00416300 
00416400 
00416500 
00416600 
00416700 
00416800 
00446900 
00417000 
00417100 
00417110 
00417120 
00417125 
00417130 
00417140 
00417150 
00417200 


00417300 


00417400 
00417500 
00417600 
00417610 
00417620 
00417700 
00417800 
00447900 
00417910 
00418000 
00418100 
00418110 
00418200 


om tt ns hs st st 


022733 
022980 
02321 
023610 
024033 
0244441 
0247350 
O248%4 
024944 
025444 
O253t4 
025610 
025843 
026120 
026410 
0261%2 
026210 
026233 
0264%2 
026613 
026812 
0246910 
026910 
026943 
027422 
027430 
027710 
028083 


02823 


0282%3 
028342 
028410 
028430 
028813 
O289t4 
0294%3 
0293%3 
029512 
029732 
029922 
030430 
0301!0 
030, !0 
0303:3 
O305%4 
030731 
0307%2 
0309%0 
031032 
O344%4 
031283 
0314%14 
0315%2 
031630 
O347t4 
0314732 
031940 


@®eeesreste 88 ¢ @ ® ee © @08@ @@06hé<35o °° i«¢ SOF 


te PCelsLOD) INx Qf % MARK MFIO OF REMOTE FILE 
IF MCI INX 33,04385)219 THEN % WHICH HAS BEEN FILLED 
MCTJ« PCDUPsL OD» SSN)}3 % S$O FILE OPEN WILL KNOW 


GO TO EXITs 
TY13%3 


TY4a4%e 


COMMENT 


“TYLS 8s 


TY16t3 


TY1i9t3 


Cols [AT TlyeO]3 

DO AITLICI+1)¢CMECTYPEJINX NOT CIIRBLOCKCTRE8$ 38210) 
810184622) UNTIL (CeC+1)> SIZES 

AITCO]©]3 GO EXIT: 


IF TIPE<3 THEN TIPE*O ELSe IF TIPE>S THEN TIPE*53 ZAS 
IF TIPE¥O THEN 00 % DECLARE SORT FILES ZAS 
BEGIN PCMKSs0205 3eCYCLE+I,COCIT J] 2251219020535 11» 8sRECURSE 
sDET) oS5eCOCo81612"1,¢)3 ZAS 
END UNTIL Clel+1 2TIPES ZAS 
PCTIPEsRTNI3 %AS 
TY14 DECLARES SORT TAPE FILES FOR ALGOL3 ZAS 
GO EXIT; 


PHILECNOT 3] « TOTS PHILECNOT 4] «© NUMDIM3 GO TO EXIT: 


TY173 


TY 18! 


Fo « M OR C*¥CPC.NUMDIM)45IZE)).C1821513 


IF SIZE = 0 THEN 


COMMENT FISH OUT OLD SIZES TO USES 


BEGINSSTREAM(ACOLSe*E 3 


BEGIN TALLY*#13 S1e#S3  SleSt-163 SKIP 2 SB3 
OF SB THEN TALLY*«23 A@TALLY3 

END STREAM 

IFCSIZE&SP) THEN DIM@:=C er). £8210) ELSE 
DIM2t=PCHE»PCDUP)»CEI10]+ DIMI eSTOsOsCOCrL00),(821013 


END ELSE BEGIN DIM2 « NUMDIM;} 


END: 


IF NOT SIZE THEN DIM1 © RECSIZES 


IF TYPE = 18 COMMENT "ION" FUNCTIONS 

THEN IF SIZE OR (CDIMi NEQ DIM2) THEN PCC *54)+ 26% COM)3 
POLISHCSIZE*Es39eCOMsNELsDEL)s % RETURN OLD ARRAY 
POLISHCMKSs £)3 IF NOT SIZE THEN PCDIM1)3 

POLISHCDIM2s SIZE» ts Os RECURSE)D3 
ARRY ¢ Es OIML © DIMI™43 
IF TYPE = 17 THEN COMMENT "CON® FUNCTIONS 
BEGIN IF SIZE THEN PC*#E* 22 CCx* Fe ©) ELSE 


END} 


FOR Tel STEP 1 UNTIL DIM1 DO 
POLISHCLARRYCII]]s DUPs LODs 2% CCX» XCHe © 33 


IF TYPE = 18 THEN COMMENT "TON® FUNCTION AGAIN; 
FOR T¢4 STEP 1 UNTIL DIM1 00 


PC*CARRYCI]}» Is COCs 1» xCHse #23 


GO TO EXIT; 
% IMPLEMENTED FOR COBOL 68 ARRAY DECLARATION 14 OR 2 DIM 
ARRY ¢« *{PRTPOINTER(CI7I413 


MECARRYCO]) INX NOT 12.0291] t= 13 


% MARK IT SAVE 


FOR I « 1 STEP 1 UNTIL ARRYCO] 00 


SEGDICTLO] ¢ *PCDUP)R13 


BEGIN 

¢ « ARRYCIY3 

PCMKSsCPRTPOINTERCCLFFI1)> 
PCDUPsLODsPCDUP) LFF J*PCXCH),CCF])s 
IF Cel17!1] THEN PCXCH*DEL) ELSE Ps 
Col16t2]e1sCelCFI»RECURSE)3 

ENDS | 

% DELETE TEMP AIT 


PCCPRYPOINTERC 171) INX Ms3sCOM,DEL)3 


00418210 
00418220 
00418230 
00448300 
00418400 
00418500 
00418600 
00418700 
00418800 
00418900 
00419000 
00419100 
00419200 
00419300 
00419400 
00419500 
00419600 
00419700 
00449705 
00419710 
00419715 
00419720 
00419725 
00419730 
00419735 
00419740 
00419745 
00419750 
00419755 
00419760 
00419770 
00419780 
00419790 
00419800 
00419810 
00419820 
00419830 
00419840 
00419850 
00419860 
00419870 
00419880 
00419890 
00419900 
00420000 
00420100 
00420105 
00420410 
00420120 
00420130 
00420140 
00420150 
00420160 
00420170 
00420180 
00420185 
00420190 


a a a at ts ts tt sh tt tt 


0322%3 
O324%1 
032633 
032984 
032943 
033284 
0338:3 
O340%14 
0342:0 
C346%2 
034743 
035210 
035443 
0357:!0 
0357122 
035732 
035840 
036210 
036210 
036423 
0365%2 
0367%2 
0368%92 
036912 
036983 
O37 234 
O37 621 
0377%2 
O37934 
037984 
037933 
038334 
0384:3 
0384:2 
038743 
039030 
039023 
QO393%2 
0395120 
0399314 
O399%4 
040080 
0402%0 
O40641 
040683 
040730 
040884 
041240 
041620 
041670 
041710 
041851 
O420314 
042240 
0424%2 
042530 
042740 


PROCEDURE FILEATTRIBUTESCTANKsERRL»DUMIsVAL*NAMsINFOSTEN) 3 


00430050 


START OF REL SEGMENTS O1SK 


VALUE TANKsDUMZsVAL*NAMsINFOsERRL 3 
INTEGER VAL } 
REAL ERRL»DUM1L»sNAM*INEO § 
NAME TANK 3 
ARRAY TENL#*] 3 

BEGIN 

% THIS PROC HANOLES FILE ATTRIBUTES CFOR MORE INFOs REFER TO THE 
ALGOL COMPILERs PROCEDURE FILEATTRIBUTEHANDLER» FOR A DESCRIPTION 
QF THE VARIOUS KINDS OF FILE ATTRIBUTE CALLS). DUM1 IS A DUMMY 
PARAMETER RESERVED FOR POSSIBLE FUTURE USE. 

TO ADD A NEW ATTRIBUTE» FIRST MAKE THE APPROPIATE CHANGES IN 
THE COMPILER(CS), THEN» DECLARE TWO NEW LABELS» XN & XVN w= 8X" 7S 
THE FILE ATTRIBUTE» EwGes» ACCESS» AND "N* IS THE CORRESPONDING 
SWITCH LABEL NUMBER» EeGes THE 4 IN MFID4 =” AND ATTACH XN ONTO 
GETFILATT» AND ATTACH XVN ONTO THE SWITCH SETFILATT. THEN INSERT 
XN? AND ITS CODE BELOW THE LAST XN"TYPE CODE» AND INSERT XVN# AND 
ITS CODE BELOW THE LAST XVNeTYPE CODE. THE XN™TYPE CODE SETS THE 
FILE ATTRIBUTE CAFTER MUCH CHECKING TO ASSURE THAT THE FILE IS OF 
THE PROPER TYPE AND IN THE PROPER STATUS» AND THAT THE VALUE OF 
VAL IS WITHIN THE PROPER BOUNDS)» AND THE XVNWTYPE CODE RETRIEVES 
AND STACKS THE FILE ATTRIBUTE, 


BL Be de Fe BR |e BE BE Fe BE Fe Be Be ae 


ARRAY FIBte1(*]eFPBR3C*) |} 
REAL, FIBS=47eTYPE=9eF ISERRL» SELECTS 14s INTRINSICs5» 
OPENF=FIB84+1> 
NOTCLOSRELSOPEN+1 >, 
NOTDISK#=NOTCLOSREL +1» 
RINVALENOTOISK+1 5 
TEMPERTNVAL +1» 
PMETSTEMP+1 2 
FPB3=DUM1.VALSIGNSFIB> 
MF IDXsOPENsF IDXSNOTCLOSREL »REELX=NOTDISKsDATEXSFPB3s 
CYCLEXSFIBS*eTYPEX=STYPE + 


LABEL QUITsEXITs SETUSE s VALER? TOITsBIGs CHK 1s CHK 2» CHK 3L » CHK 3T»MYUSERR, 
OPENFRR»CLOSRELERR 
2 ACCESSO*ACCESSVO 
»MYUSE1sMYUSEV1 
2 SAVE 22 SAVEV2 
2OTHERUSES*OTHERUSEVS 
»MEID4sMPIDVG 
sF IDSs FIDOVS5 
sREELO*REELVS 
+DATE7sDATEV? 
sCYCLEBSCYCLEVSB 
aTYPES*TYPEVD 
» AREAS10»AREASV1O 
sAREASIZELIsAREASIZEVI1 


00430100 
00430150 
00430200 
00430250 
00430300 
00430350 
00430400 
00430450 
004305900 
00430525 
00430550 
00430600 
00430650 
00430675 
00430700 
00430750 
00430800 
00430850 
00430900 
00430950 
00431000 
00431050 
00431100 
00431110 
OO431111 
00431112 
00431113 
00431114 
00431115 
00431116 
00431135 
00431140 
00431155 
00431175 
00431200 
00431225 
00431250 


08431260 


00431270 
00431280 
00431290 
00431300 
00431310 


00431320 


00431330 


00431340. 


00431350 
00431360 


T aOodota 
ADDRESS = 
000020 
000080 
000020 
0000!0 
6000!0 
000030 
000080 
el elelen 84) 
o000!0 
O000t0 
000070 
0000!0 
00000 
000040 
000030 
0000t0 
0000!f0 
000080 
000080 
000010 
000010 
Q000Qf0 
0000tO 
000070 
oletelen fe) 
o0o00t0 
0Q00%0 
oleleren ae) 
0000%t0 
000080 
000010 
Q000TO 
000030 
000080 
o00ato 
000080 
000030 
aocoro 
000030 
000020 
000010 
0000t0 
000030 
000080 
eleserek ae) 
000080 
0000%0 
0000%0 


AA HAAR AHH HA a A Ht tt tt Ht 


WORDS 


00084 


@®eeeeeeeeeeeeeeeeee8ee@8 


»EWUNUML2sEUNUMV12 % EY NUMBER FOR DISK 
sOSKSPEEDLI*DSKSPEEDVI3 & FAST/SLOW DISK (1*F AST) 
sTIMELIMITI4+TIMELIMITV14 & WAIT TIME FOR LOCKED ADDRESS ¢CRLL) 
s LOSTATUSL5, IOSTATUSV15 % LAST IO RESULT STATUS CRLL) 
sSENSITIVEL4sSENSITIVEVI4 % SENSITIVE 
5 *4%% ADD NEW ATTRIBUTE LABELS ON A NEW LINE ABOVE weet tak ede 
2% ANDO BE SURE TO POST=FIX THE SWITCH NUMBER FOR DOCUMENTATION, 


SWITCH SETFILATT 


tx 
ACCESSO 
eMYUSE4 

es SAVE? 
sOTHERUSES 
sMFIDA 

aFIO5 

*REELO 
sDATE7 

es CYCLES 

a TYPES 
»AREAS1IO 
2AREASIZELI 
aE UNUM12 
»OSKSPEED13 
sTIMELIMITI4 
sTOSTATUSI5 
sSENSITIVEL4 


3 BX2% ATTACH THE NEW XN*TYPE ATTRIBUTE LABEL ONTO SWITCH ABOVE *x%x 


SWITCH GETFILATT 


ts 
ACCESSVO 
eMYUSEVE 
es SAVEV2 
sOTHERUSEV3 
eMFIDVG 
sF IOVS 
sREEL V6 
sDATEV7 
*CYCLEVB 
a TYPEVO 
sAREASVIO 
sAREASIZEVI1 
sEUNUMVE2 
sDSKSPEEDV13 
sTIMELIMITV14 
eTOSTATUSVI5 
*SENSITIVEV14 


3 S2%% ATTACH THE NEW XVN@TYPE ATTRIBUTE LABEL ONTO SWITCH ABOVE #«* 


DEFINE CANTUSE 


PROTECT 
DISK 


Pan wn ne 


WN O wo 


# 

Re 

Hs 

# 

Hes 

a 
CNOT NOTDISK). #, 


HEADERECHEADERL] = PCHEADERL » 145 .FIBelL OD» INX*LODe INXs LOD) #> 
ERMCERM1) 


= BEGIN 


00431370 
00431380 
00431390 
00431400 
00431410 
00431490 
00431495 
00431500 
00431550 
00431551 
00431552 


00431553 


00431554 
00431555 
00431556 
00431557 
00431558 
00431559 
00431560 
00431561 
00431562 
00431563 
00431564 
00431565 
00431566 
00431567 
00431840 
00431850 
00431900 
00431901 
00431902 
00431903 
00431904 
00431905 
00431906 
00431907 
00431908 
00431909 
00431910 
00431911 
00431912 
00431913 
00431914 
00431915 
00431916 
00431917 
00432109 
00432200 


90432250. 


00432259 
00432262 
00432265 
00432268 
00432269 
00432271 
00432274 
00832276 


a se a as st 


000010 
000010 
000010 
000030 
000030 
000010 
000080 
000010 
o000%0 
000080 
000010 
000080 
0000%0 
000080 
000010 
000080 
000010 
000080 
000010 
000020 
000010 
o000!%0 
000090 
9000t0 
000010 
000010 
0000t0 
000030 
000010 
000010 
000010 
000010 
000080 
000080 
000010 
000080 
o000t0 
000040 
000040 
000010 
000080 
000010 
000010 
000010 
0000t0 
000010 
000010 
000010 
000010 
0000:0 
000080 
000010 
000010 
000010 
000010 
000030 
000040 


a sa STREAM(CFIDS OSe{3LIT. ERM13 GQ QUIT 3 
“ND #» 

CHKOPEN = BEGIN IF OPEN THEN GO OPENERR END #» 

CHKCLOSREL = BEGIN IF NOTCLOSREL THEN GO CLOSRELERR END #» 
CHKMYUSE = BEGIN IF FIB5,(€11:2]20 THEN GO MYUSERR eRe #» 

P = POLISH #3 


SUBROUTINE INITERR + 


BEGIN 
PMETep3 FOR TEMPeP STEP =1 UNTIL 1 OO PC*#)# PCPMET) 3 
PCTANKCNOT 4])32 TANKENOT 47¢03 PCMKSs9OeINTRINSICDEL) 3 
TENCOS TEN|PCLTENCAV Ts CPX eSFRIR1OL8t3Bt103) 3 
STREAMCTEMPENAMS AcLFPBCFPB3"3]]*NeNAM, (626) *TEN)D 3 
REGIN DSe5LIT"#FAEs"3 STeA 3 
OCSreSl#13 AeST# TALLY*O3 7CIF SC=™ * THEN 
JUMP OUT3 SpeSy+4s TALLY@TALLY41)3 SIeAs AeTALLY 3 
OS¢A CHR DSeODEC# OSeLITN/92s OLeDIals OSeLIT™," 3 
ST*LOC TEMP3 StTeSI+23 OS*N CHR} DSe2LIT%» "3 TEMP«DI 3 
D1eDI+133 OSe2L1Tse" 5 
FND STREAM 3; 
FIeP 3 
END OF INITERR 3 


REAL SUBROUTINE OcTTODEC 3 
BEGIN 
STREAM(Q¢O8VAL23 BEGIN SteLoc yAL3 DIeLoc gs DS+BDEC END 3 
OCTTODECeP 3 
END OF OCTTODEC ; 


REAL SUBROUTINE DECTOOCT 3 
BEGIN PMET*PCXCH) 3 
STREAMCQ¢O3PMET)$ BEGIN SIeLOC PMETS DI*Loc Q3 DS*8OCT END 3 
DECTOACTe«P 3 
END OF DECTOOCT 3 


SUBROUTINE INITIALIZE 3 

BEGIN % INITIALIZES a FEW USEFUL VARIABLES. 

NOTBISK*NOTCONOTOISKeCTYPECFPBEFPBSeFIBE4SI],£13¢i11I1+3)] AND 63) 
AND 312210 OR NOTNISKs12 OR NOTDISK#13 OR 
NOTOISK=26) 3 

NOTCUGSREDENTT (UPENS CEB SET LEED?) C4422) 3 

OPENCOPENSO 3 

END OF INITIALIZE 3 


SUBROUTINE SCATTERFPB 3 
STREAMCF eCFPBCFPB3"317,0¢(DATEXI]sCeLCYCLEX) »M¢CMFIDX)) & 


BEGIN 

SIT*F2 2CDSeLITNO"S SteStels OS*7CHRIZ OS¢30CT 3 
DleNs DOSe5O0cT3 Nr*cs OSe20cT 3 

END OF SCATTERFPB 3 


LLELLEYLEELLEEESELEEELELELELLL LYELL YELL EERE L LLL CELE LLEEEEELELLELEEAR 
LE% 
EER Hk ee F TR SOT —E xX E CcCUTABLE COODE Tere rs 
42% 
MPTP PEEPETETES TEST TCT ETTSTTEET TEL TTTTTTTLETTTTETTTTT TTT TTT TCT TE 


00432277 
00432278 
00432280 
00432285 
00432290 
00432475 
00432480 
00432500 
00432550 
00432560 
00432600 
00432700 
00432750 
00432800 
00432850 
00432900 
00432950 
00432975 
00432980 
00433100 
00433150 
00433200 
00433220 
00433230 
00433240 
00433250 
00433260 


00433270 — 


00433275 
00433280 
00433290 
00433295 
00433300 


00433310 — 


00433325 
00433650 
00433660 
00433670 
00433675 
00433677 
00433680 
00433685 
00433690 
00433725 
00433750 
00433760 
00433775 
00433780 
00433785 
00433790 
00435445 
00435446 
00435447 
00435448 
00435449 
00435450 
00435460 


44 as a a a a ts a A a A a st a tt A tt a st tt HH 


000030 
000080 
000030 
00000 
000030 
000030 
000080 
000030 
0001380 
0001430 
000610 
001010 
OO01L3%1 
O016%2 
001733 
O019%2 
002424 
0023%2 
002581 
0026!0 
0026?1 
002683 
002710 
002780 
002730 
002740 
0029%4 
0029%2 
002933 
002983 
0030!0 
0030%3 
0033%0 
003374 
0033%2 
0033%2 
0034:0 
003420 
00346%2 
004083 
0042%2 
004584 


004682 


004633 
004633 
00471t0 


004gts 


004934 
O05i%4 
005 a%4 
005283 
005233 
005233 
0052%3 
005223 
0052%3 
0050:3 


@eoese#ee8eeeee8eee28e8 e808 086060808 (8@ e 


PCTANKENGT 2320202920020)% TANKENOT 4J*ERRL§ INITIALIZE 3 
IF (FI©INFO AND 255)>3 AND FI<i10 THEN SCATTERFPB 3 


IF NAM20 THEN IF ABSCVAL)>@7777777777777 THEN GO VALER ELSE VAL©VAL3 
IF INFO.C3921] THEN IF INFO*INFO*l3821) THEN RTNVALEVAL 


ELSE INFO*PALSE 3 


ELSE BEGIN TANKENOT 4)¢03 GO GETFILATTOCFII] END 


GO SETFILATTIFII 3 
MYUSERR?$ 
CLOSRELERR!#? ERMC™NOT CLOSRELES") 3 
QOPENERRS 3 


QUIT? 3 
ACCESSO: 
$ SET OMIT 


$ SET OMIT 
$ SET OMIT 
$ POP OMIT 
$ SET OMIT 
MYUSE1$ 


SAVE2: 


OTHERUSE33 


SETUSE3 


MFID4?: 
FIDSs 
REEL OS 
DATE 7: 


CYCLES: 


TYPES? 


it 


ERMC"MYUSESCANTUSE™) 3 


INITERR$ STREAMCFIDS ODSe13LIT"NOT RWND/CLSD" 3 
PCCTENTOJ1,£332153*34%COM) 3 


IF CCFIeTYPE AND 319712 AND VAL#SERIAL) 

OR €FIS10 AND VALSRANDOM) OR CFI=#13 AND VAL=UPDATE) 

NOT SHAREDISK 

THEN GO EXIT; 
PCFPBCFPB3J],CFPBCFPB3I])]+FIBC4IsCFIBL4I]+FIBCL3I,CFIBL1331» 


3) 3 
FPBIFPB3}.C43:5)¢FleIF VAL=0 THEN 12 ELSE IF VAL=1 THEN 10 
NOT SHAREDISK 
ELSE 13 ; 
SHAREUISK | 
IF FIBC4).02783343 THEN FIBECAI,C27¢3} «VAL 3 
FIBCIZI,C39%5]¢FIs PCUPDATE)3 GO CHK3T 3 


NOT SHAREDISK 


IF FIBS,011:2)=VAL THEN GO EXIT 3 

IF PCOFIBCIGI)]sLOD).CFFI]s2 THEN PCMKSs"CHNGNG"s TANK e7 5 
SELECT 3 

FIBCS]eCLLI2)eFTeVALS TEMP*FIBS.C92233 PC1)3 GO SETUSE; 


IF FIBC4).C30818}=PMET*OCTTODEC THEN GO EXIT 3 
PCFIBC4IsCFIBL41151) 3 
FIBC4S]e£30818]¢PMETS P(999)3 GO CHK2 3 


IF FIBS,{9%2]=VAL THEN GO EXIT 3 

FICFIB5S,£143233 FIBC51,f9#21¢TEMPeVALS PCO) 3 

PMET¢PS PCFIBSsfFIBE5]154) 3 

IF DISK THEN IF HEADER(E 4] THEN CHKCLOSREL ELSE CHKOPEN 3 


FIBCS]e£13%33¢IF FI=O THEN 7 ELSE IF TEMPsO0 THEN 4 ELSE 


IF TEMPs1 THEN IF FIe1 THEN 3 ELSE 2 ELSE IF 
FIs] THEN 1 ELSE 03 
PCIO)3 IF NOT PMET THEN GO CHK23 GO CHK1 3 


PCeMFIDXeO+MFIDX)3 GO TOIT 3 


PCaFIDXsO*FIDX)$ GO TOIT 3 


PCREELXsVAL>999sREELX)3 GO TOIT 3 


PCeDATEX*s VAL DIV 1000>99 aR VAL MOD 1000>366*DATEX) 3 
60 TOIT 3 


PCeCYCLEXsVAL>99eCYCLEX)3 GO TOIT 3 


PCeTYPEXsVAL>63 ORCVAL AND 31)#3 ORCVAL AND 31)>26sTYPEX)3 


00435480 © 


00435550 
00435600 
00435750 
00435800 
00435825 
00435850 
00435855 
00435860 
90435870 
00435900 
00435980 
00436000 
00436025 
00436049 
00436075 
00436080 
00436085 


_ 00436180 


00436184 
00436190 
00436194 
00436195 
00436200 
00436201 
00436209 
00436225 
00436250 
00436260 
00436270 
00436330 


00436350 


00436400 
00436410 
00436520 
00436550 
00436600 
00436660 
00436670 


00436675 


00436680 
00436685 
00436690 
00436710 
00436725 


00436750 - 


00436775 
00436800 
00436825 
00436850 
00436875 
00436900 
00436905 
00436925 
00436950 
00436975 
00437010 


AAA AMAA AA A AA tt tt 4 tt tt 9 a ta os 


005233 
005920 
006380 
006513 
006912 
0083%4 
O084t2 
009410 
009gto 
0103%2 
0108! 
O109%92 
0109!2 
011103 
O115%2 
0115%2 
011710 
012080 
012041 
012430 
O124to 
O127%4 
OL2714 
013423 
013520 
013570 
013510 
0135120 
0136:3 
014020 
Q1490184 
014534 
Q14710 
QO15084 
0154%°2 
015423 
01543 
01546%2 
016410 
016212 
0168te 
O17 4a%e 
O177%2 
018110 
0182%2 
0182%2 
018333 
0183:3 
018580 
018510 
018613 
0186%3 
019010 
019082 
O190%2 
019234 
O0192t4 


TOIT: 


AREAS10: 


AREASIZE11: 


CHK3LE3 
CHK3T3! 
CHK233 
CHKYE3 
VALERS! 


EUNUM{2: 


OSKSPEED1L33 


TIMELIMITI4s 
$ SET OMIT = 


IOSTATUS15¢ 
SENSITIVE14: 


BIGsss 


IF PsSVAL THEN BEGIN PCDEL,DEL)s GO EXIT END 3 

INITIALIZES PCO)3 CHKMYUSE# CHKOPEN 3 

IF FIBC4).,£24s21%1 OR FIBC4],£884]42 THEN CHKCLOSREL 

ELSE IF FI=4 OR FI=9 THEN ERMC"CLS*eNOT ALTR") 3 

IF PCXCH) OR VALel1#5140 THEN GO VALER#S SCATTERFPB 3 

PCDEL»VAL*XCHseeMKSs TANK oMFIDXeFIDX*REELX*sDATEX ss CYCLEXs» 
TYPEXsii*» INTRINSIC) 3 

GO EXIT 3 


IF NOTOISK OR VALSFIB[6],£620:5] THEN GO EXIT # 
PCFIBCSJ+CFIBLSl)-1) 3 
FIBL8]«L20%S]eVALS PC20)3 GO CHK3L 3 


IF NOTOISK OR VALSFIB([8].£25:23] THEN GO EXIT 3 
PCFIBL8JsCFIBL8I]I341) 5 
FIBLBI«L25823]¢ VALS PCBIG) 3 
PMET¢P3 CHKCLOSREL$ PCPMET)3 GO CHK2 3 
PMET¢Ps CHKOPENS PCPMET) 3 
PMET¢P3 CHKMYUSES PCPMET) 3° 
IF P2VAL AND NOT VAL.C1%1)] THEN GO EXIT 3 
NOTDISK*ABSCVAL) 3 
OPEN¢OS WHILE TENCOPENCOPEN+L JSNOTDISK DOS INITERR 3 
STREAMCNCOPENs VENOTDISKsTeTYPEsLeVALSIGNEVAL ofiti Js QeNAM<O 
sRECOPENS+VALSIGN) >B9FeLe(TYPED>9 )oWeVALeFI) 3 
BEGIN 
DIleDI723 pSe2LiTts=" 3 
QCST#LOC W3 DSeSBCHRS JUMP QUT TO J)22 LCDSeLITte") | 
RCOSe7LIT**"3 YUMP OUT TO Ys SIeLOC v# DSeN DEC 3 


Jt STeLOC Te) OSe3L ITs TS" DSeE DECS DSe2LiTtte”" 3 


END OF STREAM 3 


G0 QUIT 3 


IF NOTOISK GR OPEN OR FPBLFPB3).01885]=VAL+1 THEN GO EXITS; 
PCFPBLFPB3I],CFPBLFPB3]J]51)% % STORE FOR RECOVERY 
FPBCFPB3],Ci8sS5]2:5VAL413 2 FU NO,+1 

IF VALSC*1) THEN VAL?s13 PC19)3 GO TO CHK23 


IF NOTOISK OR OPEN OR FPBEFPB3].016?27=VAL THEN GO EXIT? 
PCFPBCLFPB3),CFPBEFPB83)]21)3 % STORE VALUES FOR RECOVERY 
FPBCFPB3),Ci6t2704=VAL3 % {SFASTs2=SLOW 

P(2)3 GO CHK23 


NOT SHAREDISK 
GO EXIT; 


IF NOTDISK OR FPBCFPB3)],C15t1]5VAL THEN GO EXITS 
PCFPBCFPB3J,CFPBEFPB3)]s1)3 % STORE FOR RECOVERY 
FPBCFP833,0i5:1)9sVALS ZSENSITIVER1 

PCi)s GO CHKI; 

@37777777 3 


LELEELEX EEL LAEELEL LEAL ELRL EEL EL UA RE LLL LL ELL ELELELELERER EEL EEEELALEAELL AY 


BELEY INSERT NEW XN@TYPE ATTRIBUTE COpE ON NEW LINES ABOVE HERE 4E%% 


ZLLLELLYRLY LULU ALLL ELL EL ELL RL ELLA LELELELELL EL ELE LULELELELLL ELL ELELUELELLEY 


00437030 
00437040 
00437070 
00437090 
00437105 
00437110 
00437125 
00437130 
00437150 
00437200 


00437210. 


00437240 
00437275 
00437300 
00437310 
00437340 
00437350 
00437360 
00437370 
00437380 
00437400 
00437410 
00437440 
00437450 
00437470 
00437480 
00437490 
00437500 
00437510 
00437520 
00437530 
00437550 
00437560 
00437570 
00437580 
00437590 
00437600 
00437610 
00437620 
00437630 
00437640 
00437650 
00437700 
00437710 
00437760 
00437770 
00437780 
00437800 
00437810 
00437820 
00437830 
00440000 
00449999 
00450000 
00450050 
00450400 
00450150 


HHA ad a a A a at a tt A A tA AR AH tt tt Ht 


0196%2 
01982 
020310 
020733 
0215%2 
0219%0 
022423 
022242 
022370 
022310 
022523 
022740 
O230tf 
O2308 1 
023320 
O234t1 
023740 
023924 
024433 
O244ia 
O247%2 
024910 
025440 
025642 
O260t4 
026024 
026110 
0264!0 
O267%4 
O269%4 
0269! 
027010 
027030 
027330 
0278320 
027810 
028110 
028180 
O284t4 
O0285i2 
O28Rt0 


028813. 


028893 
028813 
0284813 
028883 
0289%4 
O289%4 
029230 
029334 
029583 
0296%2 
029880 
029810 
029810 
029890 
0298!0 


ACCESSVO3 PCIF (FIeTYPE AND 34)510 THEN 1 ELSE IF FI=s13 THEN 2 
$ SET OMIT * NOT SHAREODISK 
ELSE O»sRTN)3 
MYUSEVI$ PCFIBI¢f£11%2)2RTN) 3 
SAVEV2? PCFIBL4], C3018] »DECTOOCT,RIN) 3 


OTHERUSEV3: PCFIBSel9#2]eRTN) 3 


MFIDVAaS PCMFIDXsRIN) 3 
FIOvVS! PCFIOX#RTN) 3 
REEL V6! PCREELX»RITN) 5 
DATEV7? P(DATEXsRTN) 3 
CYCLEV8s PECYCLEXsRTN) 3 
TYPEVG?! PCTYPEXsRTN) 3 


AREASVLO! IF FIBE82.020!28) = OC AND FIRE41].€8#4)] = 4 AND OPEN 
THEN PCHEADER(9)].(43%5]2RTN) 
ELSE PCFIBC8],f20'5)] RIN); 


AREASIZEV113 
IF FIBCG81.020!28) = 0 AND FIBL4]ef824}] = 4 AND OPEN 
THEN PCHEADER( 8} .0C25%23]2RTN) 
ELSE PCFIB(81.025:23],RTN)3 
FUNUMV123 PCFPBLFPB3],C182:53"12RTN)5 
DSKSPFEDV1I3: PCCIF CTEMPS=FPBCFPB33.0£16!2])#1 THEN 1 ELSE 
IF TEMP=2 THEN 2 ELSE O)sRTN)3 
TIMELIMITV14% 
$ SET OMIT = NOT SHAREDISK 
PCO}3 PERTN)S 
IOSTATUSV153 
$ SET OMIT = NOT SHAREDISK 
P(O)3 PCRTN)3 
SENSITIVEV14!? PCFPRBCFPB3],C1581)*RTN)3 


LLEULEL UL EL UL EL LL LL EDEL AL ELLL ALK EL ELE LEY EEL UL EE YELL EEL ALLL RELEL ELE LELL EY 
RKK% INSERT NEW XVN®@TYPE ATTRIBUTE CODE ON NEW LINES ABOVE HERE 22%% 
BLYUYULYLLL LALA ELLE ELLY SLEL ELLY ERLE L ELEY ELLE RL ELLE LELELELELELELEBELLZES 


EXIT: TANKENOT 41]¢03 IF INFO THEN PCRTNVAL*RTN) 3 
END OF FILEATTRIBUTES § 


Rous oe ae ae nee ee ee smested AS eee 
a ghtwsieee 


PROCEDURE ALGOLREADCTENs FILXs DKADD»s ACTs Fle AEXPs» SWF 


START a Be SEGMENTS DISK ADDRESS = 90096 


ARRY» EQFL» PARL» OKADR» cODEs TANK); 


00450200 
00450250 
00450254 
00450260 
00450300 
00450400 
00450450 
00450500 
00450550 
00450600 
00450625 
00450650 
00450675 
00450700 
00450725 
00450750 
00450775 
00450800 
00450825 
00450850 
00450875 
00450900 
00450925 
00450950 


00450954 


00450952 
00450975 
00451000 
00451001 
00451002 
00451003 
00451025 
00451050 
00451055 
00451075 
00451099 
00451150 
00451175 
00451199 
00451250 


00451300 


00469999 
00470000 
00470050 
00470100 
00470150 
00470200 
00470250 
00470350 


00500000 


08500100 


8 a st st st a st st te 


T 


T 


029810 
029810 
030133 
03041:3 
0303%2 
030389 
0304492 
0304 %2 
030734 
O307%4 
030834 
030834 
030833 
030833 
0309814 
O309%4 
030943 
030933 
O310%1 
O31084 
031083 
031033 
031424 
O311434 
O314%2 
031834 
032070 
032010 
032030 
QO323%4 
032720 
032813 
033012 
0333:3 
O336%4 
0336314 
0336!14 
0336%3 
0336%3 
033633 
033734 
033812 
O338%2 
0338%2 
O33g%2 
0338%2 
033832 
0338%2 
034132 
ZE= 0342 wORDS 


0000!0 


000070 


\ 


VALUE Fle DKADRe TANKs CODE» ACT» AEXP3 AWE 
ARRAY ARRYC*], TENC#) SWF 
INTEGER ACT» FIs AEXP3 %WF 
REAL OKADDs PARL» EQFL» CODEs DKADRS SWF 
NAME FILXs TANK} “We 


BEGIN REAL RCWHtOeBLKCNTLeSeSELECTS1 43% 
NAME MEMs232 
ARRAY FPR=3C*I5% 


REAL ALGOLREADE133 awe 
ARRAY TINK=TANKE*]3 AWE 
INTEGER RSIZESFI5 BWP 


DEFINE FNUM = FIBC4].013%411) #3 
DEFINE Inds C*TANKI#32% 
$ SET OMIT = NOT SHAREDISK 
LABEL 0C1,0C2s 
LABEL DCNisDCN2s SPIN 
LABEL CRiaMTisCLOSEDsDK1seSPisPRIsERRIS 
SWITCH SW1e CRIsERReMT1e¢CLOSEDsDK1,SP12ERReERReERRoPRisDCisCRis 
ERRsDCN13 
LABEL CR2»MT22DK29SP2sPR23% 
SWITCH SW2e CR2SERR»MT2sERRODK22SPA2eERReERReERRePR2eDCesCRes 
ERRsDCN23 ; 
LABEL SWePBIT*OSeF1B72,0SPBIT*PAR*sDSRTIN&DS19sRALPEDF s0283% 
LABEL EMPTYsFULL »SEMPTYsSFULL3 
REAL UNITYPE* REV*ADDRESS* BLKODE3% 
$ SET OMIT = NOT SHAREDISK 
LABEL DKS eDKReDKR1sDKy3 
SWITCH ASW*DKS*#DKReDKUSCLOSEDS 


—$ SET OMIT = NOTCTIMESHARING) 
SUBROUTINE WAITS POLISHCTANKs 20000000004 36» COM» DEL» DELI} 


$ POP OMIT 
$ SET OMIT = TIMESHARING 
LABEL RUsRAsRCF% 
SWITCH RTYPE+RUsRASERRE RCS 
LABEL DKSRe DKRR»eDKURSS 
SWITCH ASWReEDKSR*eOKRReDKUR?S 
ARRAY FIBL*¥]sHEADERL *# 13% 
& SET OMIT = NOT SHAREDISK 
INTEGER [3% 
REAL SUBROUTINE DISKADDRESS#2 
BEGIN IF OKADR20 THEN 
BEGIN ADDRESS*C(COKADR Div HEADERLOV® 1302121)xHEADERCOJ. C4236 .7% 
IF CI©ADDRESS DIV. READERL114+10)230 THEN PCO) ELSE 
IF HEADERCIJ=0 THEN PCQ) ELSE 
BEGIN ADDRESS¢HEANER[CIJ+1©AnDRESS MOD HEADER(C 113% 
STREAMC(CD© [ADDRESS] 93 wane SleD3 O0S¢8 DEC ENDS% 
PCL)3% 
-END END ELSE PCO)3% 
DISKADORESS +P 34% 
END DISKADDRESS3% 
$ SET OMIT = NOT SHAREDISK 


IF TINK=0 THEN AWF 
BEGIN FIB © FILXENOT 2]3 WF 
FILXCNOT 42 © EQFLS FILXENOT 312 ¢ PARL3 SWF 

IF NOT FIBC51,£1221] THEN PCMKSs"READNG"*FILXs7*eSELECT) § 
IF FIBCS).C43?2140CACT<0)42) THEN aWF 
PCMKSs DKADDs CACT<O)+2e FILX» 1» SELECT)3 BW 


00500200 
00500300 
00500400 
00500500 
00500600 


00500700 


00500800 
00500900 
00501000 
00501100 
00501200 
00501250 
00501300 
00501309 
00501400 
00501410 
00501500 
00501600 
00501610 
00501700 
00501800 
00501810 
00501900 
00501950 
00502000 
00502049 
00502100 
00502200 
00502250 
00502252 
00502253 
00502299 
00502400 
00502500 
00502600 
00502700 
00502800 
00502809 
00502900 
00503000 
00503100 
00503200 
00503300 
00503400 
00503500 
00503600 
00503700 
00503800 
00503900 
00504000 
00504009 
00504200 
00504300 
00504400 
00504450 
00504500 
00504600 


HAA HS a a A A tt Ha ot st tt tt ts ttt ttt Ht Ht tH 


000010 
0000%0 
000040 
olelolen ae) 
eleleten ge) 
000080 
O000tO 
000080 
000030 
000080 
000080 
0000t0 
o0d00f0 
ekelelon ae) 
0000!0 
eleleren ae) 
eleheren ae) 
oo00ato 
000010 
00000 
0000%0 
000030 
000030 
000040 
000010 
elelelen ao) 
00000 
OG00t0 
oo00fo0 
0000%O 
000420 
o004atoO 
oo0ato 
oo004i0 
000440 
0004t0 
000430 
000420 
000470 
o004to 
000410 
000413 
000812 
001133 
001440 
OO17%1 
001843 
001910 
001923 
002010 
002011 
002034 
002323 
002610 
0029%2 
0032%2 
003550 


@®eeeee28808e8800:6hUmM88UC«MPCUC<“ WCU OU OULU OUmUCUCOUmUCUOULUCUCOClCUD 


RSIZE*PCMKSs CABSCACT) #3) 2 OKADDs ts FILXsALGOLREAD) 3 


IF ARRYZOQ THEN awe 

BEGIN IF ARRYel8s10]>PCDUPs AEXP) SWF 

THEN PCDEL* AEXP)3 SWF 

IF PCOUPI2RSIZE THEN PCDEL) ELSE RSIZE © Ps WF 

STREAMCP4 © *FILXs P3 ¢ RSIZEs | aWF 

P2 © PCDUP),(3626]5 PY © FARRYLOI})3 aWE 

BEGIN SI « P43 DS ¢« P3 wDS3 aWE 

P2(DS « 32 WOS3 OS ¢« 32 WOS)3 SWF 

END; ZWwF 

END; aWE 
IF ABSCACT)22 THENS 

PCMKS» DKADD»s O» FILXs ALGOLREAD)3 aWFr 

FILXENOT 4] « FILXCNOT 3] « Q3 ZWF 

PCXIT)3 SWF 

ENO: SWF 


FIBe]eTANKENOT 213% 
SWt UNITYPECFIS(4].f82413 REVeFIBCS 1.442113 BLKODE*FIBIS5],£46%213% 
$ SET OMIT = TIMESHARING 

TF DKADR, C481] THEN 


BEGIN 
$ SET OMIT = NOT SHAREDISK 
DKADReL3827¢03 
ENDS 
IF CODE THEN GO TO SWIEUNITYPE]3 GQ TO SW2LUNITYPE]3% 
> M 
wr ae ge Vee ee LA, HoT WW CHANEL D REG, 
zt y PRit fF TOD.f19%1] WHEN Ine oie mee 
F PRIT!: BEGIN IF 300,281] THEN? 


[ INX FLAGCFIBL161))53% 
PCCIF BLKODE THEN I0D.(8!10) ELSE FIBLI7])«#RINI3% 


Venn 3% 
AB oY IF 10DeC25%1) THENE 
} CLOSED! BEGIN 


oon A: / FIBCAZI.C27%1I)«13 
oe | IF CREVeCFPBCFNUM+3] AND 3122410 AND REve12 
ce AND REV413 AND REV#426 THEN FIBE51,C45#11¢0 ELSE 


| FIBE51eC45¢1)]¢P(TANKENOT 3)2DUP)#0 AND PCXCH)#153 
/ | PCTANK*Os11eCOM*DEL*DEL) 3 
| IF NOT FIBC57.045%1)] THEN GO SW 3 
| PCTANKENOT 33)3 TANKENOT 3]¢TANKENOT 43¢0 3 
‘ P(MKS»9sBLKCNTRL»DEL) 3% TAKE PARTTY ACTION LBL BRNCH, 
CODE«1s GO TO DS; 


ea 


END 3 

\ IF 100-0271) THENS 

| BEGIN IF UNITYPEs2 THEN 
IF FIBCA].C2#1] THEN 
POMKS#1*O4 (NOT 2)INX TANK#SeSELECT) ELSES 

BEGIN PCTANKstielisCOM*DELspEL 233 

IF MEMETANKCENOT 1] INX 43,04286)=1 THEN 

BEGIN UNITYPE*FIBE131,(26310132 


PCMKS»609(NOT D)INX TANK» GsSELECT)F% 
\ | FIBC1324C28810)¢UNITYPE+13% 
| : | ; GO 70 CLOSED3% 
END ENDS 
EDF! IF CODE = 3 THEN PC1»SSNeRTN)3 CODE « 23 


\ 


BEGIN IF FIBLi7}=0 THEN FIBCI7}J¢*eC(CIF REV THEN 1 ELSE NOT 0) 


00504700 
00504800 
00504900 
00505000 
00505100 
00505200 
00505300 
00505400 
00505500 
00505600 
00505700 
00505800 


00505900 


00506000 
00506100 
00506200 
00506300 
00506400 
00506440 
00506460 
00506465 
00506469 
00506475 
00506480 
00506500 
00506600 
00506700 
00506800 
00506900 
00507000 
00507100 
00507200 
00507300 
00507400 
00507410 
00507420 
00507430 
00507440 
00507450 
00507510 
00507515 
00507520 
00507525 
00507530 
00507535 
00507600 
00507700 
00507800 
00507900 
00508000 
00508100 
00508200 
00508300 
00508400 
00508500 
00508600 
00508700 


a a ss tt ss st 


00380 
004033 
004123 
0043%3 
004570 
O0048t2 
0049%2 
005130 
005443 
0053320 
0053%4 
OOs3tt 
O054at4 
0056t0 
005974 
005912 
0059%a 
006424 
006573 
006533 
006632 
006740 


006740. 


006813 
006833 
O08sie 
0085te 
008532 
008632 
0088!0 
009234 
O094at!1 
009784 
O09734 
0098284 
009a8%3 
0101 %4 
010433 
O110%2 
O1L16tt 
011793 
OL1L994 
012333 
012483 
012640 
012640 
012720 
012831 
012933 
013212 
O134t2 
013820 
014010 
014984 
O145%4 
014523 
014523 


& 


ttt, 


ok 


ae Shane ELSEC PAR’ TANKCOJ*I0D OR MEM$S 


IF CODE THEN BEGIN PCOsEcTANKENOT 23]2190172COM)3 
PCQ*#RTN)3 ENDS 

PCTANKINOTCCODE+2)3 93 

TANK{I NOT A4J¢TANKENOT 33¢03 

PCMKSs9+BLKCNTL)3 

PCTANKsCODEs115COM)3% 


~~ ENO SS 


PCTANK)3 WAITs GO TO PBITS4% 

CODE*«33 GO 083% 

HEADER**EFIBC14)33 GO To ASWEFIBC47,027233332 
HEADER**CFIBCI411%5 GO TO ASWREFIR£4),£2723113% 


CR22% 

MTas% 

PR2: 60 TN RTYPELBLKODEI3% 

Rust TANKCOJ©FLAGCFIBL161)3 PCFLAGCFIBL19}) )»TANKePRLeDEL 3% 
BLKODE*FIBL19] .£ 33215 )"F180161,.03321513% 
FIBCIG1.(C33215]¢ CODE*(*CCIF REV THEN 2 ELSE NOT 1) INX% 

FLAGCFIB616))2),f1821573% 
FIBCI9].C33:15]«cODE+eBL KODE3% 
FIBLOJ©CREV©IGREVE 1847911) +FIBL6I32 
FIBE7ICFIBC7I+REVS FIBLA7I©0O3 PCxTTIE% 

RAs IF CFIBCA7I©F IBE17 I =CcODE+FIBL18).63381517)<CODE. THEN GO TO RuUs% 

RAL? TANKLOJeECIF REV THEN NOT CODE INX 4 ELSE CODE) INX TODs% 
GO TO FIR7F% 

RC! Tr (CFIBCA7IJ¢FIBCI7]*CODE*«IOD.C8!10)+1)¢1 THEN GO TO RU 
IF REV THENS 
BEGINSSTREAM(S*#IODeDe (CODE 3% 

BEGIN SI*S; SleStle83; OS5S¢4 OcT END3% 
TANKCOJECNOTCCODE*CODE DIV g #1) INX IOD)&CODEL823811013% 
END ELSE 
BEGINS STREAMCS*CTANKCOJ©CODE INX TOD)»Del CONDE) 3% 
BEGIN SI¢S3 SleSte43 OSe¢4 OcT ENDSZ 
TANKCOJ©IODACCODE DIV 8B =197883821013% 
END3% 

FIB7$  FIBE71¢18&REVCLEA7S 4 34+FIBL715% 

D286: TANKLOJ«1OD&CNOT PCDUP))f2taBtilss 

SP2t PCXITI3% 

DKU% 

DKS: IF DKADR=eO THEN % NORMAL SEQUENTIAL READ==NO apres SPECIFIED s% 

OS19%8 IF 100.019%1] THENY 

DSPBIT! IF rOD.C221] THEN 

IF FIBL7TI>HEADERE 7) THEN 
BEGIN TANKCOJETONSOLSI284 Ik C27 HAT 31 I13% 
GO TO EOFs% 
END ELSES 
DSRTN? BEGIN IF FIBELi717=0 THEN FIBCI7I©FIBC187.018:1513% 
PCFIBLI8BI,C33815JsRTINy 3% 
END ELSES 
IF 100.025:1) THEN GO TO CLOSED ELSEx 
IF 10p.027!1] THEN GO To FOr ELSE GO TO PAR ELSEX% 
BEGIN PCTANK)3 WAITS GO TQ OSPBIT END32Z 
READ OR SEEK ON A SERIAL FILE WITH ADDRESS SPECIFIED s% 
POCMKS»ABSCOKADR) =1edeTANKs le SELECTS 
IF DKADR<O THEN GO TO DSRTN3 GO To 0S8193% 
DKSRt IF DKADR>O THEN GO TO D028 ELSE IF DKADRS0 THEN’ 


BEGIN IF CFIBCI7IJ*FIBL(17]"CODE*FIB£L18],£33815])2CODE THEN GO RAL 


00508800 


00508900 
00509000 
00509400 
00509500 
00809600 
00509700 
00509800 
00509900 
00510000 
00510100 
00510200 
00510300 
00510400 
00810500 


00510600 © 


00510700 
00510800 
00510900 
00511000 
00511100 
00511200 
00511300 
00511400 
00511500 
00511600 
00511700 
00511800 


00511900 - 


00512000 
00512100 
00512200 
00512300 
00512400 
00512500 
00512600 
00512700 
00512800 
00512900 
00513000 
00513100 
00313200 
00513300 
00513400 
00513500 
00513600 
00513700 
00513800 
00513900 
00514000 
00314100 
00514200 
00514300 
003514400 
00514500 
00514600 
00514700 


AB AA AAA AA A Ht tt tt 4 4 tt 4 3 st ta ta te A 


014832 
01502 
015333 
015434 
015610 
015984 
016010 
01610 
016130 
016282 


016333 


016833 
OL7334 
O173%4 
O17 3%4 
O17 634 
O17? 984 
018230 
018540 
O188%1 
019033 
O19as4 
019723 
020220 
020573 
O206%4 
021120 
O21¢84 
021310 
021430 
021834 
O218%4 
022130 
022270 
022550 
022540 
022810 
O230%41 
0230!2 
O230%2 
O234%4 
023233 


N23414 


023610 
0239%2 
024080 
024010 
024434 
024532 
024532 
024710 
024923 
O252!2 


025222 — 


025433 
025422 
O258%2 


eo @e | e 68 e e e eeeee88 80 80 08080 ¢@ @ eee 


END3% 


FIBCOJECREVELEREVEILE47 31) +e IB LOI5% 

FIBC171+O3% 

DKADReF IEG 71% 
+FIRL1i31, C1089] xHEADER(O)].0C308121xREVS% 

FIBL7 IF IBL7I+REVER 

IF DISKADDRESS THENZ 

BEGIN PCTANKLOJ*FLAGCFIBL163)2ADDRESSsXCHe © 3% 
PCFLAGCFIBEI9] es TANKe PRL se DEL 2% 

END ELSES 

BEGIN TANKLOJ*FLAGCFIBE16])82027 F462 23R0L 2547 81 15% 

PCEITBLL37,01039] s TANK st 3011*COM, DEL» DEL, DEL 23% 

END34 
BPLKODE*FIBLCIGTeC3IZFLSI*F IBC 1631-0 33215)3% 
FIBC161,033815I]¢CODE*MEMEPPCDUP) INX NOT 113,01821513% 
FIBLI9], £33215) «CODE +BL KODE FS 


DKRR? PEXIT)3 


DKR:3 
& SET 
DKR1 8 


$ SET 
$ POP 


—$ SET 
§ SET 


$ POP 
$ SET 


EMPTY$ 
$ SET 


$ SET 


FULL? 


$ SET 


$ SET 


OMIT 


= NOT SHAREDISK 


If DKADR GEQ O THEN 


BEGIN 


OMIT 
OMIT 


OMIT. 


OMIT 


OMIT 
OMIT 


OMIT 


OMIT 


OMIT 


OMIT 


IF DKADRSO THEN DKADREFIBL7) ELSE FIBL7]*+DKADR*DKADR@13% 
IF HEADERC7I2DKADR THEN% 
IF DISKAODRESS THENS 
BEGIN CODE*FIBL(161,{3381513 UNITYPESFIB(131,010%°9)5% 
FOR teO STEP 4 UNTIL UNITYPE DO% 
SHAREDISK 
BEGIN IF NOT 100.0191] THEN BEGIN PCTANK)3 WAIT END3 


” 


NOT SHAREDISK 
IF I100.C27!1] THEN GO TO EMPTY3% 
SHAREODISK 
IF (MEMCCODE] EQV ADDRESS)=NOT OQ THEN GO FULLS 


H 


A 


if 


NOT SHAREDISK 
TANKCOV+IONRLLC2724721)3% 
PCUNITYPEsTANKa id 30119 COMsDELsDELeDEL 3% 
FIBCI6] 033915] ¢CODESMEMC CODE], C1615 I5% 
FIBC19],CA3L15]eCOMDE+13% 

END3 GO TO ERR3% 


= NOT SHAREDISK 
FIBCL3el10%s9Ie43 
PCTANKLOJ*FLAGCFIBEL6] )*ADDRESS#XCH##)5 % 
PCFLAGCFIBL19}),TANK@ PRL DEL 3% 
FIBCAZTeLLORGIEUNITYPES PCTANK)S 
2 NOT SHAREODISK 
WATT? 
IF NOT 100.0281] OR FIR(5].£121) THEN 
BEGIN 
= NOT SHAREDISK 
CODE¢13 GO TO FAR; 
END? 
= NOT SHAREDISK 
IF BLKODE=0 THEN SFULLEPCFIB(18].033215]4RTN)3 
TANKLOJ¢1IOD&CCI*DKADR MOO HEADERCO),(30212))% 
XCI¢FIBL1LB eC 3I3StLSIIFFIBL197 -£33815IIL339833215)5% 
P(TeRTNII% 


00514800 
00514900 
06515000 
00515100 
00515200 
00515300 
00515400 
00545500 


00515600 


00515700 
00515800 
00515900 
00516000 
00516100 
00516200 
00516300 
00516400 
00516410 


00516419 


00516500 
00516600 
00516700 
00516800 


00516900. 


00517000 
005147099 
06517100 
00517101 
00517109 
00517200 
00517299 
00517300 
00517301 
00517309 
00517400 
00517500 
00517600 
00517700 
00517800 
00517900 
00517909 


00517980 


00518000 
00518100 


00518200. 


00518299 
00518350 
00518400 


00518500 


06518509 
00518550 
00518560 
00518569 
00518600 
00518700 
00518800 
00518900 
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026334 
026683 
02680 
QO268%4 
027220 
O274t0 
027580 
027782 
O279814 
O279%4 
0283:0 
0285%3 
0285%3 
O028ate 
029331 
029543 
029513 
029610 
0296120 
029680 
029623 
0302%4 
0303%4 
0305#0 
0308%2 
031030 
031080 
0313%0 
031320 
0313%0 
031433 
031433 


0317382 


031722 
031732 
0319%2 
032432 
032630 
0328%2 
O334%4 
O334%% 
O334%4 
033333 
033533 
0337%2 
O340%, 
O3A081 
034410 
034332 
034420 
034410 
034534 
034534 
O34s5s4 
034733 
O350%4 
035440 


ENDES 
IF NOT FIpC5),01311] THEN 
BEGIN 
$ SET OMIT = NOT SHAREDISK 
GO TO EOF; 


END} 
$ SET OMIT = NOT SHAREDISK 
CODE*¢14 GO TO PAR3 
ENDS% 
DKADReABSCOKADR)#13% 
Te HEADERL7]<DOKADR THEN GO TO SFULL3% 
IF NOT DISKADDRESS THEN GO TO SFULL3% 
CODE*FIB616)e033815)3 UNITYPEFIB6133.£10293713% 
FOR [*O STEP 1 UNTIL UNITYPE DOX 
$ SET OMIT = SHAREDISK 
BEGIN IF NOT TANKEI},.C19$1] THEN BEGIN PCCTANKOCIJ123 WAIT ENDSS 
$ POP OMIT : 
$ SET OMIT = NOT SHAREDISK 
IF TANKOC1I},£27:1] THEN GO To SEMPTY3% 
$ SET OMIT = SHAREDISK 
IF CMEMECODE) EQV ADDRESS) =NOT O THEN GO TO SFULL3 
& POP OMIT 
$ SET OMIT. = NOT SHAREDISK 
CODEeMEMECODE*21,¢1821515% 
ENDF% 
$ SET OMIT = NOT SHAREDISK 
$ SET OMIT = SHAREDISK 
PCTANKLOJEFLAGCFIBL16]) sADDRESS#XCHst 3% 


$$ POP OMIT 


PCFLAG(FIBL19])» TANK es PRL» DEL 23% 
FIBC16] eC3315]¢CODEeMEM(CODE=2),r1881513% 
FIBCL9T Fast se CODE +1 3% 
GO TO SFULL#s% 
SEMPTY? 
$ SET OMIT = NOT SHAREDISK 
$ SET OMIT = SHAREDISK 
PCTANKELIJ«FLAGCFIBL16]) &@CODEL33233815 1, ADDRESS» xXCHse) 3 
$ POP OMIT 
FIBLIZIel1LOI9 615% 
PCFLAGCFIBCI9I)&CCODESL L332 33815]+(TANKET]]sPRLsDEL IFS 
FIBCI3] «LiOs9IeEUNITYPE 413% 
GQ 79 SFULLI% 
SP¢th STREAMC(DeLOD)s BEGIN OSe7 LIT "ACCEPTe® ENDZR 
IF FPBCFNUM+3)],£4226]243 THEN GO EOFs ZDUMMY 
PCCNOT 1) INX IODseL6eCOMsDELI3 GO TO SFULLS% 
% 
DKUR! FIBL5].CAZ%21+03% 
a 


PCXIT)3 
$ SET OMIT = NOTCTIMESHARING) 
Deis? PcPyact81,£€33'153) & OKADREL247143 & 
CDKABR, £221] AND COKAOR,CFFI=S0) AND CTANKENOT 37740))032%4754)5 
TODstsCm13)*2COM)3 
T2=POLISH# 
ADDRESS? sTANKENOTC4"(182))]3 
TANKENOT 4]2STANKENOT 33303 
IF I THEN PCFIBL18),.£33%15]sRTN)3 


00519000 
00819100 
00519110 
00519119 
00519130 
00519140 
00519149 
00519160 
00519200 
00519300 
00519400 
00519500 
00519600 
00519700 
00519799 
00519800 
00519804 
00519809 
00519900 
00519999 
00520000 
00520001 
00520009 
00520100 
00520200 
00520209 
00520299 
00520300 
00520301 
00520400 
06520500 
00520600 
900520700 
00520710 
00520719 
00520799 
00520800 
00520801 
00520900 
00521000 
00521100 
00521200 
00521300 
00521310 
00521400 
00521500 
00521600 
00521700 
00521800 
00521810 
00521813 
00521814 
00521815 
00521816 
00521817 
00921818 
00521819 
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035432 
035432 
035533 
035631 
035614 
035633 
035683 
035633 
035810 
035840 
035982 
036120 
036282 
036610 
036710 
036720 
037420 
037440 


0371490 


O373%4 
037394 
0376%0 
037620 
0376%0 
037853 
0381%0 
0381#0 
038180 
038370 
0383:%0 
0384%3 
038934 
039423 
0392%4 
0392%4 
039284 
O392%4 
0395%2 
0395%2 
039830 
040424 
Oadatt 
040483 
O407%2 
041023 
0415!%0 


041510 


041712 
041712 
041733 
041733 
042010 
042510 
O426%2 
042710 
042933 
043310 
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DC2s% 
DON: DEN 
$ SET OM 
END ALGOL 


PROCEDURE INPUTINTCTENSFILXsDKADRoACToF I sFRMToLISKsEOFL sPARL 5% 
START OF REL SEGMENTS DISK 


VALUE 


NAME 


ARRAY 


IF ADDRESS NEQ TH 
POODRESSEMK Sr OO BL KCNTRLD } 


ANDRESS#=C LO) +13 
PCTANKsADDRESS#11*COM)3 
PCXIT)3 

2% SPIN? 

IT = TIMESHARING 

READ: 


COMMENT ESPOL VERSION OF aALGOL READ INTRINSICS 
BY LeRe GUCK 12/14/64% 

Fls% 

ACT3% 

FILXe4 

LISX3% 

TENE*] 9% 

FRMTC#ISS 


INTEGER ACTs& 


REAL. 
REAL, 


REAL 


REAL 
REAL 
INTEG 
ARRAY 
ARRAY 
REAL 
REAL 
REAL 
INTEG 
ARRAY 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 


FIs% 
DKADRa& 
FOFLs4 
PARLI% 

BEGIN COMMENT LOCAL VARIABLES3% 
JUNK 259 9% 
ALGOLREAD=13»% 
SELECT#4 4% 
JUNKL = 172% 
LSTRNSIQ34 
BLKCNTL = 53% 
SAVEBUFFSEOFLs CODELSPARL 3 

ER AEXPRFRMTS& 
ARRYSLISK[*#I]3% 

REALROWSTENW1(*13% 
Fo = 403% 
TLSTRNSE 413% 
BUFFETLSTRN413% 

ER BSIZE=BUFF+43% 
FIB=BSIZE+iCwls% 
ADORS=FIB+13% 
SGNSADDRS +143 % 
WTESGN4#1 3% 

WLSWT 413% 

CCR = Wie DIVR = Wls2 
WOEW1L+13% 

TYP = W23% 

DBW2+15% 

ESIG= 03% 

NLSD+13%. 

N2=D14+132 

W=O0e41s% 

SKIPEW4+ 13% 


00521820 
00521821 


00521822 
00521823 
00521824 
00521825 
00521830 
00524700 


00600000 


00600100 
00600200 
00600300 
00600400 
00600500 
00600600 


00600700 


00600800 
00600900 
00601000 
00601100 
00601200 
00601300 
00601400 
00601500 
00601600 
00601700 
00601800 
00601900 
00602000 


00602050 | 


00602100 


00602200 


00602300 
00602400 
00602500 


00602600 © 
00602700 


00602800 
00602900 
00603000 
00603100 
00603200 
00603300 
00603400 
00603500 
09603600 
00603700 
00603800 
00603900 
00604000 
00604100 


043530 
043533 


043704 
043950 


O44O84 


044410 


044480 


P 
Cc 
C 
C 
c 044010 
t 
T 
Ms 
SIZE= 0442 


rT 0000:0 
ADORESS = 
0000!0 
000070 
0000%0 
0000%0 
000080 
000070 
000080 
000030 
000080 
000020 
0000%0 
000030 
000010 
000030 
000010 
0000f0 
0000320 
00008 
0000!0 
000080 
0000%0 
0000:0 
000040 
0000%0 
000010 
000030 
000ggtoO 
000080 
0000t0 
000070 
o000%0 
0000!0 
000080 
0000td 
0000%0 
0000%0 
eleceTeR Ze) 
0000!0 
0000!0 
0000!0 
0000:0 
000080 


AA AHHH AHA HHH HA A HH HH A HH A tt Ht 


WORDS 


OO111 


REAL 
REAL 
REAL 
INTEGER 
INTEGER 
REAL 
REAL 
LABEL 


DEFINE 


CHRSSKIP 13% 

FAWSCHRe1i34 

CODE=FAW+13% 

CSIZESCODE+I3% 

SCFTR = CSIZE+13% 

FLG = SCFTR +132 

UDECLREFLG+13 

GAsGAC#GRTYsGTBsGTCsGTDsNuUMXITs% 
FREFLDeSTRTsNMRCL es HERE oNOSIGs LPTWOsNOTNUM@eL La Li Pood 
NFRACL#ATS* HRI sNSGeL2PieF INXPaNCALs®NMINUSsNOTAT o& 
NCA2*+NNMB»NOTNUMsRNOTNUMs INSERT NAST*QRT*QRTNe% 
FQUTZEATLSEATUPsNQUOTsGETOsGTRT 72 ASTRXeCHKOCT #&% 
GETCOMAsGETCisMAXI» 

STARTs&CTsCTAsCTBs CTC oh 
ASLSTsBSsBRsAEXPLs ISAs ISB,ERRORS% 

FMOUTAsFMOUTs SteSeLFPAReRTPARs SCALE sSTRNG»SLASHs% 
PHRAS*s INL OOP sFLOWs IMP 2% 

LOGI» FLAGBIT» 

DTYPESOTYPE Ss ALFArXTYPE e% 

RTYPEsRBLF sRFAPRIPARTsRDONAsRDONE es REC eREXP 2% 
RIPRTN#REPRINeREPART sGETNUM*GRINGS 
ITYPESFINsFMOUTMisS2e 

FOUTS FTYPEsFAsETYPEs% 

COMAsCOMMs,COMBs COMCSRERRASS 


COMMENT LABELS ARE LISTED IN SAME ORDER THEY APPEARS% 


P = POLISH#s% 
TENB = ®10457536040000008# 3% 


SUBROUTINE CKPBS COMMENT CHECK FOR PRESENCE BITS3 
BEGIN2 


IF FILX,£18%15) $ 1 THENS 
BEGIN IF NOT FILX,Cia8%i15] THEN® 
BEGINS STREAMCACCREALROWLOI)#B¢0)3% 
BEGIN SIeA$ DIeAs SleSI#163 
SKIP 2 SB3% | 
IF SB THEN TALLY « 13% 
A © TALLY3% 
END3% 
IF NOT P THENS 
BEGIN PCFILX214*COM*DEL )3% 
FILX,f18!15) « 13% 
ENDS% 
ENDS Pees 
BSIZE « REALROW,CB881013% 
END ELSEX 
BSIZE“POLISH(MKS»DKADR» 1 »FILX*ALGOLREAD 3% 


— BUFFeC*#FILX)aBSIZECRI38210) 3 
END3% 


SUBROUTINE READS#% 


COMMENT RELEASE BUFFERs% 


BEGIN 


P¢XCH)3 COMMENT FLAG TO TOP OF STACK#% 
IF ACT=2 THEN COMMENT READ RELEASES& 
POLISH(MKS*DKADRse Os FIL Xs ALGOLREAD 23% 
IF P. THEN% 
BEGIN LSTRN © TLSTRN3% 
IF FILXsC18%#15]>1 THEN 
FILXCNOT SJ©FILXCNOT 33¢0 ELSE 


00604200 
00604300 
00604400 
00604500 


00604600 © 


00604700 
00604710 
00604800 
00604900 
00605000 
00605100 
00605200 
00605300 
00605400 
00605500 
00605600 


00605700 © 


00605600 
00605900 
00606000 
00606100 
00606200 
00606300 


00606400 


00606500 
00606600 
00606700 
00606800 
00606900 
00607000 


00607100 - 


00607200 
00607300 
00607400 


90607500. 


00607600 
00607700 
00607800 
00607900 
00608000 
00608100 
00608200 
00608300 
90608400 
00608500 
00608600 
00608700 
00608800 
00608900 
00609000 
00609100 
00609200 
00609300 
90609400 
00609500 
90609600 


00609700 © 
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000080 
00000 
0000!0 
0000!0 
00G0t0 
00000 
00000 
000080 
0000%0 
000030 
Oo00tO 
00000 
000080 
0000%0 
000050 


000080 


oodcto 
000010 
0000%0 
0000!0 
90000 
0000t0 
000030 


000080. 


000030 
0000#0 


000020 


0000:0 
000480 


000420 


O002t4 
0003433 
000533 
0006%2 
000683 
0007382 
000733 
000870 
000831 
0009%3 
004440 
0014320 
004420 
OOL2%2 
O0L2%2 
O014%3 
001683 
001730 
001710 
001730 
001780 
001784 
001810 
001983 
001923 
002110 
002251 
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IF FILX.0£18$15] = 4 THEN 
“PCFILX9142COM)3% 
PCXITII2 
END3% 

CKPB32 
TF SGNef45%1) THEN 24% UTYPRSGN»C4521)]3 SEE U"PHRASE DECLR 

BEGIN CSIZE*BxBSIZE$ BUFFEPCOsCBUFFIJs02INX) END 3 
END READS3S - a 
COMMENT SUBROUTINE USED BY FREE FIELD32% 

SUBROUTINE G@NCR#s&Z 
PECTIN COMMENT THTS SUP*POUTING CFTS CEAPACTERS. FORE 
PRR SELDRI NEL GLA Ns REAGING CF REGURDS 
WHEN REQUTREDS% 
GAS IF WT > O THEN GO TO GAC3% 
COMMENT BUFFER 1S EMPTY#FILL IT3% 

P(O)3% 
READSA% 
WT ¢ BSIZE x 83 COMMENT WT = # OF CHARACTERS IN BUFFER;% 
BUFF © PCOsOsfBUFFIsCCX sy 

COMMENT GFT CHR FROM BUFFER;% 


GACSs STREAM(CY 
PS © Of9% 
P4 « BUFF s% 
P3 ¢ IF WT < 63 THEN WT ELSE 638% 
Pi «© TYP)3% 
BEGINA 
SI « Pa3¢% 


CI CI +* PL3% 
GQ r0 FGNC3 COMMENT DEBLANK#THEN GET NCR3& 
GO TO GNCHC3 COMMENT GET NCRI% 
FGNCS oe Sc #4 " " THEN JUMP OUT TO GNCHC3% 
SIl¢S1+13% 
TALLY © TALLY +1293% 
COMMENT RETURN A @1 TF ALL WERE BLANK3% 
DI «© LOC PS3% 
05 + 8 LIT 40000001%3% 
GG TO CRIN;S 
GNCHC} eee * TALLY + 413% 
LOC PAs% 
« OL = 13% 
© CHR3% 
CRINS P3 ¢« TALLY#% 
« SI3% 
END? : 
PCWT*XCHseSUB».WT2STD)3 COMMENT WT © WT*TALLY?S 
BUFF © P3% 
IF PCOUP) < 0 THEN BEGIN PCDEL)3 GO TO GA END32 
PCXCH)3 COMMENT RETURN LITERAL TO TOPs% 
END GNCRS% 
REAL SUBROUTINE LISTELEMENT 3 
BEGIN 
IF LSTRN<O THEN GO TO ERROR 3 
PCADDRSs.ADDRSs2ISN) 3 
ADDRS*LISX. } 
LISTELEMENTSP 3 
END OF LISTELEMENT 3 


00609800 
00609900 


00610000 
00610100 
00610200 
00610210 
00610220 
00610300 


00610400. 


00610500 
006190600 
OUG1G7OG 
Ore Cac? 
00610900 


06611000 


00611100 


00611200. 


00611400 
00611500 
00611600 
00611700 
60611800 
00611900 


00612000 


00612100 
00612200 
00612300 
00612400 
00612500 
00612600 
00612700 
00612800 
90612900 


90613000 


00613100 
90613200 
00613300 
90613400 
90613500 
90613600 
00613700 
00613800 


00613900 


00614000 
90614100 
90614200 
900614300 
00614400 
00614500 
00614505 
90614510 
00614515 
00614520 
90614525 
00614530 
00614535 
00614600 


A A tt tt tt tt tt 4 tt et te 


002610 
002783 
002980 
0029%4 
002914 
003030 
003033 
003430 
OO3a%1 
O034q34 
003570 


OuSbhG 


COIStC 
0035%0 
0036%4 
003684 


-0036%2 


0038:0 
003914 
004033 
004083 
0041t0 
004424 
004442 
O044i0 
O0044t2 
O044ta 
004493 
004544 
O045t9 
004523 
OO47%4 
004712 
O04RtoO 
Q048toO 
O0d4Rs 4 
O0494%o 
0049173 
005080 
O050%4 
008022 
005033 
005420 
0054%4 
0051%t2 
005at3 
005334 
005534 
00552 
005523 
005610 
005610 
005784 
0058%0 
005883 
005920 
005984 


oe ke 


i Oa 


ARATIONS 


F aOR Ur PHRASE x ho 


% NOTE THAT CST REFERS TQ THE CONSTRUCT BEGIN SCANNED, THE CST IS 
% EITHER A NUMBER» AN UNQUOTED STRING» OR A QUOTED STRING, 


LABEL UERR 
UTYPE 
UENDNUM 
ULL 
uL2 
UL3 
UL4 
ULS 
UL6 
FMTERR 

DEFINE UEXP 
UBUILD 
WVAL 
UNUM 
UADDRS 
UH 
UBUFF 
UCKCNT 
USCHCNT 
UbDEC 

USGN = 

UEXPSGN 3 

uTYP = 

UNLO®CATED = 

UOQSTRNG = 

UETSTo oe 

UD 

uw 

UFREE 
UGETRECORD 
UEOW 
UALLDONE 

SUBROUTINE UGNCHS 

BEGIN 

IF CHRECSIZE 

THEN BEGIN 


s 


, 
a 
s 
a 
’ 
’ 
, 
# 
3 
= WT 
= W4 
4 We 
= Bi 
=UDECLR 
a pe 
= FLG 
= SKIP 
= FAW 
= D 


SGN.C4731) 
SGNeC4621) 
SGN,C4524] 
SGN. 4494] 
SGNel 4331) 
SGN.(4224] 


= SGN.[3626] 
= S$GN.[3016] 
FIELD]: SGN.0292143 


UGOOFEDCUGOOFED! ) 


UGETRECORD 3; 
IF UNLOCATED 


Hs 


- bs 


*%% UGNCH 
%%% BUFFER» GETS A NEW BUFFER WHEN NECCESSARY> 
24% ADJUSTS BUFF» AND BUMPS CHR BY 1. 

2%% WE NEED A NEW BUFFER» CALL READS TO GET ONE. 


BRR 
22% 
R&S 
ERS 
%4% 
44% 
LEK 
42% 
RAS 
2E% 
22% 
424% 
22% 
BES 
42% 
ee 3 
B4% 
RRR 
BAK 
LE% 
Le S 4 
LAS 
2 4 
42% 
42% 
KBE 
RBS 
42% 
LSS 
ERS 
4%S 
44% 
Lah 
aE 
BAR 
BES 
RAR 
REE 
42% 
22% 
RES 
2 +3 


;- 22R 


zE% 


BRNCHTO FOR DATA ERROR, 

BRNCHTO FOR U"@PHRASE EDITING, 
BRNCHTO FOR END OF NUMBER SCAN, 
BRNCHTO FOR EFFICIENCY IN UCH. 
BRNCHTO FOR EFFICIENCY IN UCHECKT 
BRNCHTO FOR EFFICIENCY IN STRINGS 
BRNCHTO FOR STRING*HANDLING LOOP, 
BRNCHTO FOR UCHECKITC@END™OF CST) 
BRNCHTO FOR NO STRING STORE. 
BRNCHTO FOR ILLEGAL FORMAT, 

1S VALUE OF EXPNTCOF CST AS NUM)» 
OR IT IS THE SHIP*IT@*ANYHOW TOGGL 
FOR THE 1*ST CHR OF QUOTED STRING 
OR IS USED AS TEMPORY BY UGETSGN, 
18 > O IF HAVE NOT YET IDENTIFIED 
cST & SO MUST BUILD UH INTO UBUFF 
1S > O IF SHALL BRANCH TQ ENONUM 
IF HAVE HIT END OF FIELD WIDTH, 
1S ALSO USED AS TEMPORARY COUNTER 
OF OCT DIGITS IN OCTAL NUM PART, 
1S VALUE OF CST IF CST 1S A NUM, 
AND IS USED AS TEMPORARY STORAGE, 
1S TRUE IFF CST IS NUMBER, 

STORES LIST ADDRESS REFERRED To 
BY THE ULIST DEFINE (BELOW). 

1S CURRENT CHARACTER OF CST. 

1S SIX OR LESS CHARACTERS OF CST» 
ALSO IS USED AS TEMPORARY BY 
SUBROUTINE UCHECKIT. 

18 CHARACTER COUNTER FOR CST, 

1S STRING CHR. COUNTER FOR UBUFF, 
18 VALUE OF DECIMAL PART OF CST 
CIF CST 1S NUMBER), AND IS ALSO 


USED AS TEMPGRARY STORAGE. 


1S TRUE IFF CSTCAS NUM) IS NEGTIV 
1S TRUE IFF UEXP IS NEGATIVE, 

1S TRUE IFF IN OR JUST USED UPHRS 
rS TRUE IFF HAVE NOT LOCATED CST, 


TS TRUE IFF CST IS QUOTED STRING, 


1S TRUE IFF UCH HAS TRIED TO GET 
AND/OR HAS GOTTEN A NEW LIST ADRS 


STORES ORIGINAL VALUE OF 0D, 


STORES ORIGINAL VALUE OF W, 
1S TRUE IFF IN SPeEch // FREEFIELD 


BEGIN PCCHR*O)3 READS END #, 

BEGIN UEXPeUGOOFEDIL; “eo TO UERR END #> 
WSUCHCNT #4» 

GO TO BR # 3 


GETS 


THE NEXT CHARACTER FROM THE 


%4% GET A NEW RECORD, 
%%% IF HAVE NOT YET LOCATED CSTs THEN 


00614605 
00614610 
00614615 
00614620 
00614625 
00614630 
00614635 
00614640 
00614645 
00614650 
00614655 
00614660 


00614665 > 


00614670 
00614675 
00614680 
00614685 
00614690 


00614695 © 


00614700 
00614705 
00614710 
00614715 
00614720 
006144725 
00614730 
00614735 
00614740 
00614745 
00614750 


- 00614755 
00614760 


00614765 
00614770 
00614775 
00614780 
00614785 
00614790 
00614795 
00614800 


00614805 
00614810 


00614815 
00614820 
00614825 
00614830 
00614835 
00614840 
00614845 
00614850 
00614855 
00614860 
00614865 
00614870 


00614875 


00614880 
00614885 


AAA AAA td tt A Ht a A HHH A A A Ht tt A tt HH Ht 


005934 
QO059%1 
005984 
0059314 
005984 
0059034 
0059%¢ 
0059!%4 
005944 
OO5ot1 
0059%4 
0059484 
0059%4 
005984 
O0S9%4 
005934 
0059%4 
005934 
0059%4 
Q0059%4 
OO59%4 
OO59%4 


005934. 


0059t41 
0059%4 
0059O%4 
0059%4 
GOS9%4 
OO590r4 
005934 
O05914 
005081 
0059024 
0059%4 
005954 
O059%4 
005924 
005914 
005934 
005934 
005984 
005921 
OO059%4 
005934 
0059%4 
OO59%4 
00590%4 
005984 
O059%1 
0059 %y 
008984 
005934 
006010 
0060:0 
006084 


006481 


Q0063#0 


e 


THEN UCHCNT«O 3 %%% ZERO CHAR. CNTER. FOR NEW BUFFER SCAN. 
END 3 
CHRECHR+1 # %2%% INCREMENT CHARACTER COUNTER. 
STREAMCP1¢Q*P2*BUFFSP0¢0) 3 *4%% NOW GET CHARACTER AND BUMP BUFF 
BEGIN DI*LOC P23 DleDI#13; SleP23 OSeCHR$ P2«SI END 3 
BUFFeP 3 44% BUFF IS SET TO NEW ABS ADDRS (BUFF +1). 
UHe*P 3 42% CHARACTER IS STORED IN UH, 
END OF UGNCH 3 
SUBROUTINE UBUFFIT 3 %%% STUFFS UH INTO UBUFF FROM THE RIGHT 
BEGIN %%% AND BUMPS THE STRING CHARACTER COUNTER. 
UBUFFeUH & UBUFF (12218230) 3 
USCHCNT©USCHCNT+1 3 
END OF UBUFFIT 3 
SUBROUTINE UCH + %%% UCH IS THE CONTROL FOR UGNCHe UCH WATCHES OUT 
BEGIN %2% FOR END"OF*W AND» IF NOT IN “STRING"s SCANS 
%4%% OVER IN*LINE COMMENTS (/o.-2) AND STORES NON#@ 
%%% BLANK PORTION oF CST IN UBUFF FOR FUTURE USE 
%%% IF CST TURNS QUT NOT TO BE A NUMBER. UCH ALSO 
%%% HANDLES END@OF*RECORD SITUATIONS (€/5., OR ©), 
IF UEOW THEN 44% IF HAVE HIT END*OFe*W CWSFIELD WIDTH)» THEN 
BEGIN 
IF UBUILD4O 42% IF WE ARE NOT IN THE STRING SECTION» WE 
THEN BEGIN PCDELI3 GQ UENDNUM END %%% BRNCHTO END*#OF*NuM, 
END 
ELSE *%% ELSE WE ARE STILL INSIDE FIELDSWIDTH Wooe 
BEGIN 22% STILL SQME FIELD WIOTH LEFT. 
UGNCHs UCHCNT*UCHCNT+1 3% %%% GET CHRTER*» BUMP CHR, CNTER, 
IF we a eNG THEN %%3% NOT IN A QUOTED STRING, 
BEGIN 
WHILE UH="/" DQ 24% we've HIT AN END*OF"RECORD MARK 
BEGIN ZE% C'/") GR AN INLINE CMMNTC"/ eg ec) 
DO UGNCH UNTIL CHR=1 OR UR="=" OR UHatet 3 
IF CHR#1 THEN 
BEGIN 
IF UH="=" THEN GO TO ULL 3 
IF UHste" THEN 
BEGIN CHReCSIZE3 ULL! UGNCH END 3 


END 3 
END 3 
IF UHE"e* THEN 22% We SET UHRDELIMETERs AND IF THERES 
BEGIN 2% MORE LIST» WE GET A NEW RECORD, 


UHe* 3 IF LSTRN2ZO THEN UADDRS«LISX 3 
SGNeSGN OR 32 3 2¥% SETS ULIST = TRUE, 
IF LSTRN20 THEN UGETRECORD 3 
END 3 

IF UBUILDZO %%% WE HAVE NOT YET IDENTIFIED CST» 

THEN UBUFFIT 3 %%% SO MUST SAVE UR IN UBUFF. 

END 3 

END 3 
END OF UCH 3 . 

BOOLEAN SUBROUTINE UDELIMCHK § 4%% TS TRUE IFF HAVE ENCOUNTERED A 
BEGIN Z%% MNELIMITER NOT IN A QUOTED STRING, 
UDELIMCHKeUH="s2" OR URs"” " OR UHetst OR UEOW 3 
END OF UDELIMCHK 3 

DEFINE UCHECKIT = %%% UCHECKIT 31S USED WHENEVER THE SCAN HAS 

S%% TERMINATED, UCHECKIT CHECKS FOR THE PROPER 
%%2% DELIMITER AND TAKES THE ASSQCIATED BRANCH, 


00614890 
00614895 
08614900 
00614905 
00614910 
00614915 
00614920 
00614925 
00614930 
00614935 
00614940 
00614945 
00614950 
00614955 


060614960. 


00614965 


08614970 


00614975 
00614980 
00614985 
00614990 
00614995 
00615000 
00615005 
00615010 
00615015 
06615020 
00615025 
00615030 
00615035 
00615040 
00615045 
00615050 
00615055 
00615060 


00615065 - 


00615070 
00615075 
00615080 
00615085 
00615090 
00615095 
00615100 
00615105 
00615110 
00615115 
00615120 
00615125 
00615130 
00615135 
00615140 
00615145 
00615150 
00615155 
00615160 
00615165 
00615170 


AN Ht Ht tt tt A tt 4 tt a st a ee 


006310 
0065!0 
006510 
0066%4 
O06743 
006911 
006943 
OO70314 
O070%2 
0074!0 
007440 
007983 
007420 
QO7as{ 
007570 
007510 
007520 
007530 
007580 
007520 
007523 
OO76?4 
0076%3 
O07at1 
OO78t4 
O07 834 
O07a8t3 
008484 
O082%1 
0082:3 
008430 
0084t0 
006a!4 
0089!0 
O089t2 
009033 
009432 
009420 
009440 
009432 
009584 
0095%3 
009a8%2 
009923 
0103!0 
0103%0 
010382 
010530 
010510 
010520 
0105814 
0106t0 
0106%0 
011080 
O110%14 
Ollott 
O110%1 


%%% UCHECKIT WILL POSITION UH APPROPIATELY 
%Z% CPRIOR TO DELIMITER CHECKING) IF THE 
%%% MINIMUM FYELD WIDTH CUD) HAS NOT BEEN 
%%% EXHAUSTED, 
IF UHa"*" THEN UALLDONE § %%% THE * TERMINATES THE READ STMT, 
IF NOTCCUBUFFeUHZ"»") AND UH#" ") THEN 
BEGIN 
UQSTRNG«UBUILD*03 We1233 DeUD 3 
WHILE UCHCNTSD DO %%% SCAN OFF UNTIL AT LEAST 
BEGIN %%% D CHARACTERS HAVE BEEN PASSED 3 
UCH 3 
IF ULIST THEN GO TO UL2 3 %%% HAVE ENCOUNTERED AN «, 
IF yHst*" THEN UALLDONE # %%% THE * TRMNTS THE READ, 
IF CUBUFF OR UVAL*UHZ»") AND CUH=" ® OR NOT UVAL) 
THEN UBUFFe*UBUFF AND UVAL ELSE UGOOFEDC1) 3 
END 3 : 
UL2! WeUW 3 %&%% RESTORE W TO ITS ORIGINAL VALUES 
GQ TO COMM 3 %%% AND MAKE NORMAL EXITe 
END 3 
UGOOFENC2) #3 %%% WAS NOT "#", ",", OR ™ * SO WE ERROR EXIT, 
&%% END OF UCHECKIT, 


BOOLEAN SUSROUTINE UGETSGN # 22% IS TRUE IF SIGN="""3 IF SIGNC +e 78) 


BEGIN SEX EXYSTSs UGETSGN FETCHES A NEW CHAR, 
IF PCUH="*"s0UP) OR UH="+#" OR UHE"&" THEN UCH 3 
UGETSGN*POLISH 3 
END OF UGETSGN 3 
BOOLEAN SURROUTINE USDELIMCHK § 4%% IS TRUE IF CURRENT CHARACTERCUH) 


BEGIN %2% IS A DELIMITERC*® OR » OR BLANK)3 
IF NOT UQSTRNG THEN PCUDELIMCHK) ELSE #22 IF UHSRIGHT HAND 
BEGIN %4%% QUOTE OF QUOTED STRING» 


IF UEQOW THEN UGOOFEDC3) 3 %%% THEN ONE AND POSSIBLY TWO 
IF NOTCUHE™*" QR UEXP) THEN %2% CHAR ARE SCANNED UNTIL UH 


BEGIN %%% IS EITHER A DELIMITER OR 
UQSTRNGeOs UCH 3 44% THE FIRST CHARACTER OF THE 
TF NOT PCUDELIMCHK epuP)#% NEXT CONCATENATED STRING. 
THEN BEGIN 


IF UHAT" THEN UGOOFEDC4) 3 
SGN¢SGN OR 16 § 22% SETS UQSTRNG = TRUE, 


UCHs 
END 3 - %%% DQ ERROR*EXIT IF WE ARE IN 
END %%% QUOTED STRING AND$ EXCEED 
ELSE PCUEXPeO) 3 %2%% W OR ENCOUNTER 
END 3 4%% A NON*@QUOTEs NON*DELIMITER 


USDELIMCHK¢POLISH 3 
END OF USDELIMCHK 3 
Yew x ENO Oo F Uw PHRASE OEcLARATIONS * 


LABEL CoXeAsleReEsOoleZeZWeedDeSwT 3 
GO TO START} COMMENT GO AROUND FREE FIELO CODES 
COMMENT FREE FIELD FORMAT 3 

FREFLOi3 P60s020202020)3 COMMENT PUSH UP STACK;% 
LSTRN © OF% 
wT ¢ BSYZE x @3 COMMENT Wy = # OF CHR IN BUFFERS% 
BUFF ¢ PCOsOs (BUFF Ise CCX)3% 


STRT# ADDRS © LISX} COMMENT ADDRESS OF LIST ITEMs% 
IF LSTRN < 0 THEN BEGIN COMMENT CALL READ AND EXITS% 
PC1I3% 


00615175 
00615180 
00615185 
00615190 
00615195 
00615200 
00615205 
00615210 
00615215 
00615220 
00615225 
00615230 
00615235 
00615240 
00615245 
00615250 
00615255 
00615260 
00615265 
00615270 
00615275 
00615280 
00615285 
00615290 
00615295 
00615300 
00615305 
00615310 
00615315 
00615320 
00615325 
00615330 
00615335 
00615340 
00615345 
00615350 
00615355 
00615360 
00615365 
00615370 
00615375 
00615380 
00615385 
00615390 
00615395 
00615400 
00615405 
00615410 
00615415 
00615420 
00615500 
00615600 
00615700 
00615800 
00615900 
00616000 
00616100 


AAA AH AAA HA a tt A tt a tt tt st tt tt tt tt tH 


01410%4 
O11031 
O110?1 
Olio9it 
O11031 
Ollott 
O11o0%4 
O110%4 
OL11084 
OL10F1 
011034 
O110%4 
O1LatL 
O110%4 
Ollo%1 
O110%1 
OL110t4 
Olflotl 
O110%4 
011024 
O110t1 
011084 
011140 


O111%0 


011640 
011684 
011682 
0117140 
011720 
012010 
012032 
012340 
012412 
012510 
012810 
012984 
0130%0 
043282 
013333 
013540 
013510 
013510 


O136%4 


O136%4 
0136%2 
013633 
013623 
013633 
013683 
013732 
013712 
013982 
014084 
0144192 


014340 


0143%3 
014530 


en ee ee ee ee ee ee e e e e @ eee e © 8@ @ @ @ 


NMRCOL 8 


FERE? 
NOSIG? 
LPTwOs 


NCTNUM2: 


Li? 
LiP2t 


NFRACLE 


ATS: 


KR1: 
NSGt 
L2P43 
FINXPs 


NCAL? 
NMINUS? 


NOTAT? 
NCA2t 


NAMB? 


NOTNUME 


READS3% 
ENDs% 
GNCR$ COMMENT GET A CHARACTER TO TOP OF STACKS2 
ESIG ¢ DIVR « O03 COMMENT SET EXPONENT AND FRACTION PARTS 
TO ZEROI2% 


IF (SGN ¢ PCDUP) = "'") THEN GO TO HERES% 


IF PCDUP) = "4" THEN GO To HERE#2 


IF PCOUP) 4 "&" THEN GO TO NOSIGs% 


PCDELIAZ 

GNCR3SS 

IF PCDUP) > 9 THEN GO TO NOTNUMs2 
GNCRI& 

IF PCDUP) > 9 THEN GO ‘To NOTNUM232 
PCXCHs10eMUL 2 493% 

GNCRs GO TO LPTWO3% 


IF PCDUP) # "," TREN GO TO , NFRACLES 


PCDELD&% 

GNCR#2 

IF PCOUP) > 9 THEN GO TO NFRACI3% 
PCXCHs1O09MULs +)5% 

DIVR * DIVR +43% 

GNCR3 GO TO LiP2sz% 


IF PCDUP) # "e" THEN GO TO NOTAT3% 


PCDELI#% 
GNCRIZ 


IF CESIG -«¢ PCDUP) = “m™) THEN GO TO HR13% 


IF PCDUP) = "+" THEN GO To HR13% 
IF PCDUP) 4 "&" TREN GO To NSGsé 
PCDEL)#% 
GNCR? COMMENT 1ST DIGITs% 
GNCR3 COMMENT 2ND DIGITIS 
IF PCDUP) > 9 THEN GO TO FINXPs2 
PCXCHe1LOsMUL eo +) 5% 
GNCR: GO TO LePis% 
IF P = es" THEN GO TO NCAL3% 
GNCR? GO-TQ FINKXPs4 
1F ESIG THEN PCCHS 23% 
ESIG © P3% 
PC" )I% 
IF P = “e™ THEN GO TO NCAD#Z 
GNCRs GO TO NOTAT#S 
TF SGN TREN PCCHS)5% 
IF PCESIG#DIVReDUP?) = 0 THEN 
BEGIN 
PCDEL 3% 
PCCADDRSIJsISDI3¥ 
GO TO STRT% 
END3% 
IF PCDUP) 2.0 THEN’ 
PCTENCPJ»*MUL 
ELSE 
PCTENC*P 1s /33% 
PCLADDRS] eSTDI3% 
GO TO STRT3Y 


IF PCOUP) 4 °°," THEN GO TO RNOTNUMS% 


PCDEL)#% 
PCO}3% 


00616200 
00616300 
00616400 
00616500 
00616600 
00616700 
00616800 
00616900 
00617000 
00617100 
00617200 
00617300 
00617400 
00617500 
00617600 
00617700 
00617800 
00617900 
00618000 
00618100 
00618200 
00618300 
00618400 
00618500 
00618600 
00618700 
006168800 
00618900 
00619000 
00619100 
00619200 
00619300 
00619400 
00619500 
00619600 
00619700 
00619800 
00619900 
00620000 
00620100 
00620200 
00620300 


00620400 


00620500 
00620600 
00620700 
00620800 
00620900 
00621000 
00621100 
00621200 
00421300 
00621400 
00621500 
00621600 
00621700 
00621800 


es a st ts st a tt 


O145%4 
014630 
014620 
014720 
O1l4et4t 
O14nt4 
O1iSo0%4 
0151%2 
01450%3 
015310 
015430 
O155%4 
0156!0 
O157%14 
0158%4 
015982 
016083 
016440 
016240 
0163%4 
01646%1 
016532 
016782 
0168:3 
016980 
017080 
017240 
O173t4 


OL7 ate 


O174%3 
OL176!0 
O177140 
017834 
O179%1 
018082 
018, %2 
0183%2 
0184ta 
018580 
O18Sit 
O1846i4d 
0187!2 
O18832 
019040 
0190%2 


019033 


0194%4 
019143 
019443 
019232 
O193te 
O193%9 
019483 
019584 
019583 
019780 
O19Fed 


RNOTNUMS$ 


INSERTS 


NAST! 


QRT: 
GRINS 


EQUT? 


FAT1! 


FATUP: 


NQUOT?: 


GETOS 


GTRT73 


sNCR3 GO TO LiPo3% 

IF PCOUP) #¥ "@" THEN GO To INSERTS% 
PCDEL)3% 

P(1)34% 


GNCRS GN TO ATS3% 
IF PCDUP) = "," THEN 
BEGIN’ 
PCDELI3% 
GO TO STRT3z% 
END3% 
IF PCOUP) # """ THEN GO To NQUOTs% 
PCDEL 24% 
TYP ¢« CCR © 43% 
GNCR3&% 
GNCR3% 
IF PCDUP) = ""* THEN GO To EQUT3% 
PCXCHs64>MUL a +)3% 
IF €CCR ¢ CCR#1) #4 6 THEN 
BEGIN? 
GNCR} GO TO QRTNS% 
END#% 
PCLADDRS1*STN)3% 
ADDRS ¢ LISX3% 
IF LSTRN < 0 THENS 
BEGIN’ 
nO GNCR UNTIL P= """3g 
DO GNCR UNTIL PR. "3% 
PC1)3% 
READS3% 
END3% 
CCR © O3% 
GNCR3Z 
IF PCOUP) = "" THEN GO Ta EQUT3% 
CCR © 13% 
gO TO ORTE% 
PCDEL) 3% 
TYP © O3% 
IF CCR = 0 THENS 
BEGIN 
GNCR3% 
GO TO EATUP3% 
END}% 
PCEADORSJ»STD)3% 
GNCR3% 
IF PCDUP) = "," THEN GO To STRTs% 
GNCR} GO TO EAT1#% . 
IF P # "ys" THEN BEGIN GNCRS GO TO EATUP END3% 
GNCR3% 
60 TO NMRCL32 ; 
IF PCOUP) #¥ "Z" THEN GO To ASTRX3% 
PCDEL?2O)5% 
GNCR3% 
IF PCDUP) > 7 THEN GO TO GTRT73% 
PCXCHSDTIA 4e¢DIB Le TRB 44)3% 
GNCR3 GO TO GETO#Z © 
IF P # “s" THEN BEGIN GNCRS GO TO GTRT7 END3% 
PCCADDRS]sSTD)3% 


00621900 
00622000 
00622100 
00622200 
00622300 
00622400 
00622500 
00622600 
00622700 
00622800 
00622900 
00623000 
00623100 
00623200 
00623300 
00623400 
00623500 
00623600 
00623700 
00623800 
00623900 
00624000 
00624100 
00624200 
00624300 
00624400 
00624500 
00624600 
00624700 
00624800 
00624900 
00625000 
00625100 
00625200 
00625300 
00625400 
00625500 
90625600 
00625700 
00625800 
00625900 
00626000 


00626100 


00626200 
00626300 
00626400 
00626500 
00626600 
00626700 
00626800 
00626900 
00627000 
00627100 
00627200 
00627300 
00627400 
00627500 


4 as ss sh se st a tt tA st a tt st st tt Ht 


0197%2 
0199%oa 
020033 
020180 
020141 
0202t2 
0203%14 
020383 
020410 
0204%2 
020442 
0205883 
020640 
020734 
0208t0 
0209%0 
021084 
O2i4%t 
021380 
921342 
0215%2 
O215%t2 
021630 
0214623 


O217482 


0218%0 
0220:0 
022210 
O222%4 
022370 
022340 
0223%3 
022520 
02261 f 
O227%0 
0227%2 
022733 
Q22a%2 
O229%4 
0229%3 
023110 
023442 
023412 
023210 
023340 
O234%4 
023542 
Q0238!2 
024080 
0240192 
024413 
O242%4 
024390 
O24aty 
024584 
024642 
O249%9 


eoeeees&§#6ee#ee#e#ereee8 @© 0880608680084 


G0 TO STRT3Z 00627600 025010 

TF PCDUP) = "Ke" THEN® 00627700 0250:2 
BEGINS 00627800 N25194 

PC1)3% 004627900 025433 

READS3% 00628000 025210 

ENDS % 00628100 025310 

IF PCDUP) # "/" THEN GO To GETCOMA3Y% 00628200 025330 
PCDEL)3% 00628300 025414 

WT + O34 00628400 025482 
GNCR3% 00628500 0255%4 

GO TU NMRCOL3Y 00628600 025610 

$ SET OMIT = NOTCTIMESHARING) 00628650 0256t2 
GETCOMAt ESIG + CFIBL41,(894]=10)3 % TRUE IF REMOTE INPUT 004628700 025612 
$ SET OMIT = TIMESHARING 00628701 O258%2 
GETCL: IF P = "se" OR CESIG AND WT=0) THEN GO STRT ELSE 00628750 O25Rt2 
GNCR3 GO GETC13 00628800 0260%2 
COMMENT START OF INPUTINT3% 00628900 026212 
STARTS2 PCLSTRN2020)3% 00629000 026219 
IF FILX.£188153 > 1 THENY 00629100 026323 
BEGIN PCFILXENOT 2393% 00629200. 026520 
FILXCNOT 4J¢EOFL3 FILXENOT 32«PARL3 00629300 026613 

IF NOT FIBEC5],012¢1) THEN PCMKSs"READNG*SFILX*79SELECT) 3 00629330 027031 

IF FIBC41.02733) # 2 THEN 00629340 O273%4 

IF FIBL51.,0433274(CACT<0)42) THEN 00629400 027423 
POLISHOCMKS sDKADRs CACT<O) #2eFILXeo 1 sSELECTIS% 00629500 O27733 

COMMENT CALL SELECT IF NOT READ STATUS OR% 00629600 028083 

WRONG DIRECTION 3% 00629700 028033 

END ELSE PC023% 00629800 028033 
CKPBSS 00629900 028334 
COMMENT CHECK FOR TYPE OF READ STATMENT?% 00630000 028410 
ACT¢ABS( JUNKI GACT )I% 00630100 028410 

IF ARRY¥ # 0 THEN GO TO CTB3 COMMENT<LIST PARTDNOT EMPTY3 00630200 028513 

IF FRMT # 0 THEN GO TO CTAS COMMENT <LIST PART>=EMPTYs% 00630300 O287%4 
<FORMAT PART> IS NOT3% 00630400 028883 

COMMENT BOTH <LIST PART> g «FORMAT PART> WAS EMPTY3% 00630500 028833 
PC1)3 COMMENT SET FLAG & EXITS% 00630600 028833 
READS} COMMENT RELEASE BUFFER32 00630700 028930 
LSTRN © #13 COMMENT<LIST PART> = EMPTY3% 00630800 029030 

GO TO FMOUTS COMMENT READ IS <FORMAT>»<EMPTY>3% 00630900 0291430 

IF NOT PCARRY »TOPsXCHspEL) THEN GON TO CTCs% 00631000 029482 
COMMENT IF LIST IS NOT A DESCRIPTOR WE HAVES 00631100 7 029384 

A SPACE. STATEMENT AND ACT = # OFX 00631200 029384 

RECORDS TO SPACE}% 00631300 fT 0293%4 

IF FIBL4).CBI41=4 THENY 00631400 029334 

BEGIN IF FIBC4],£2783]%1 THENS 004631500 029483 
PCMKSsFIBL71+JUNKi oto PILXs1eSELECT 32 00631600 029633 

END ELSE% 00631700 029982 

WHILE CACT*ACT#1)20 poz 00631800 029922 

BEGIN CKPB3 POLISHCMKSsDKADRsOsFILX*ALGOLREAD)$ ENDS 00631900 0302%2 

LSTRN ¢ TLSTRN3S% 00632000 030833 
POLISHCXIT)3% 00632100 0306%2 

IF NOT P€ FRMTsTOP) THEN GO TO FMOUTAS COMMENT WE HAVES 00632200 T 030613 
<FORMAT>s<LIST>3% 00632300 030830 

IF P # 0 THEN GO TO AEXPL3 COMMENT WE HAVE AEXPsAC#I3% 00632400 030840 

IF Fl=1 THEN GO TO FREFLD ELSE %%% / TYPE FREE*@FIELD READ, 00632500 030980 

IF FI=2 THEN GO FMOUTM1 ELSE %%% // TYPE FREE@FIELD READ. 00632510 030983 

IF ARRY 2 O THEN GO TO AEXPL33% 00632600 031480 


COMMENT WE HAVE *eLISTs% 
ASLSTS3 P(OseLSTRN*SND)$ COMMENT LSTRN © O, S ¢ I © QO3% 
PCDUPsCLISX1])3 COMMENT S = ADDRESS OF LIST ITEM 
S*1 = INDEX FOR BUFFS 
IF LSTRN < QO THEN GO TO BRS COMMENT LIST IS EXAUSTED3% 
IF PCXCHsBUFF*XCHeSTos tr ADDeQOUP) < BSIZE 
THEN GO TO 8S3 COMMENT BUFFER ITEM TO LIST. IF 141% 
IS <$ BUFFER SIZE THEN GET NEXT WORD % 
BR? PC1)3 COMMENT SET FLAG = EXIT#% 
READS} COMMENT RELEASE BUFFERS% 
COMMENT AEXPsAL*13% 
AEXPL$ IF PCARRY.C8#1032DUP) § AEXP THEN GO TO ISA3% 
IF AEXP < O THEN ARRYC#1)-03 


PCDELSAEXPI32 
COMMENT STACK IS SMALLEST OF ARRAY SIZE OR AEXP3% 
ISA: IF PCDUP) €£$ BSIZE THEN GO To ISB3% 
PCDEL*BSITZE)3% 


COMMENT STACK NOW HaS SMALLEST OF BUFFER SIZEsAEXP>» 
ARRAY SIZE3% 
ISB: BSIZE + Ps 
COMMENT BSIZE = # OF WORDS TO TRANSFER3% 
STREAM(P4 © *FILXsP3 ¢ BSIZEsP2 « BSIZE DIV 645% 
P41 « CARRY(OII)3% 
BEGIN& 
ST¢Pa3% 
P2(D0Se¢32 WOS3% 
DS¢32 wDOS)3% 
DS« P3 WDS3% 
oo ENDBS 
ERROR? PC4)3 
READSs% : 
COMMENT WE HAVE FORMAT*LIST OR FORMAT» <EMPTY>52% 
FMOUTAS PCDEL? 3 
FMOQUTMi: LSTRN€O 3 
FMOUTS P6090209020 902020202090 20,0902020208090) F 
COMMENT 19 GQOSE EGGS FOR YE OLDE STACK 3 
ADDRS © LISX3% 
SAVEBUPFeBUFFeEPCOsCBUFFJ]2O2INX) 3 
CSIZE © BSIZE x 83% 
IF FRMTsO THEN %%% SPECIAL // TYPE OF FREE@FIELD READ. 
BEGIN CODEe114 UFREEFIELDeLs FAWeL&1C2754781) 3 
GO TO PHRAS END ELSE 


COMMENT ON ERROR» RELEASE BUFFER AND EXIT#% 


GO TO S 3% 
$2t. PCDEL) 3 
Si! FICFI+13 COMMENT LOOK AT NEXT EDITING PHRASE3% 
St CODE © O&C(FAW © FRMTCFIV44s2t4ayse% 


IF FAW > 0 THEN GO TO PHRAS$ COMMENT PHRAS IF Ss03% 
GO TO PcCODE)3% 
60 TO RTPAR;S% 
GO TO STRNG3% 
GO TO LFPAR3% 
GO TO SLASHs% 
G0 TO SCALE? 
COMMENT LEFT PARENTHESIS3% 
LFPAR? IF FAWel 1221] THEN 
BEGIN IF PCLISTELEMENT*OUP)<0O THEN 
BEGIN PCDEL)3 FleFAwel28810]4FI END; 


00632700 
00632800 
00632900 
00633000 
00633200 
00633300 
00633400 
00633500 
00633600 
00633700 
00633800 
00633900 
00634000 
00634100 
00634200 
00634300 
00634400 
00634500 
00634600 
00634700 
00634800 
00634900 
00635000 
00635100 
00635200 
00635300 
00635400 
00635500 
00635600 
00635700 
00635800 
00635900 
00636000 


00636100 © 


00636200 
00636300 
00636400 
00636500 


00636600 © 


00636610 
00636620 
00636630 
00636700 
00636710 
00636800 
00636900 
00637000 
00637400 
06637200 
00637300 
00637400 
00637500 
00637600 
00637700 
00637800 
00637900 
00638000 


ds eg st a a a st a 4 sts a A A tt A A tt 


031320 
0313%0 
031333 
O314%4 
O314%4 
0315%2 
O317%1 
O31att 
O3i8t4 
O318!2 
0320:0 
032030 
032234 
032530 
0325%2 
0325!2 
0326%3 
O32794 
O327%¢ 
032784 
032733 
032733 
0329%2 
033084 
0O330%4 
033082 
O334%1 
033483 
O332%4 
Q0332%2 
0333%1 
033410 
0334%0 
033434 
0335%0 
0339123 
033943 
0340%2 
Q0349%9 
034343 
034433 
03492 
035010 
0350!0 
O350%4 
035423 
O354%4 
03a58te 
035630 
035612 
035730 
035712 
035830 
O35B8te 
QO358%9 
03591 
0361473 
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e 


END ELSE PCFAW,£ 38310123 


GO TO 513% 
COMMENT RIGHT PARENTHESIS3% 
RTPARS IF PCl*SUBsOUP) =04 


THEN BEGIN COMMENT LFPAR REPEAT 13% 
P(DEL)3 COMMENT DELETE 0 REPEATS2 
GO TO S13 COMMENT PICK UP NEXT PHRASES% 


END3% 
FI « FI = CFAW AND 102393 COMMENT SET FI BACK TO LFPAR#% 
GQ TO S13% 


COMMENT SCALE FACTORS 


SCALE? SCFTReIF FAW.C12%1) THEN LISTELEMENT 


ELSE O&FAWL 3883881 018FAWLL 3112478 


GO TO S43% 
COMMENT STRINGS#% 
STRNGS IF (CHR ¢ (W ® FAW,[6361) + CHRIOCSIZES 


THEN GO TC ERROR}: COMMENT BUFFER OQVERFLOWS2 
COMMENT CHR ¢« CHR + W3% 
STREAMC(P2D ¢€ WeP1 «© OF PO © BUFF DZS 
BEGIN’ 
ST¢PO3% 
DIleLOc Pist% 
DieDI#P2s% 
DS+P2 CHR3% 
P{eSI3% 
ENDS 
BUFF © P3% 
FRMTCFI] © PCXCHIAFAWDLi 8121473 COMMENT DIAL S»sCODE & wW TO 
STRING OBTAINED FROM BUFFER AND PUT. RESULTS 
BACK INTO FORMAT ARRAY}% 
GO TO 513% 
COMMENT SLASH3% 
SLASH? POLISHCCLSTRNSQ) AND FAW)3% 
READS; COMMENT RELEASE BUFFER32 
CHR €03% 
BUFF © PCOsCBUFF I] +0» INX)3% 
CSIZE.« BSIZE x a3% 
GO TO S$13% 
COMMENT BREAK APART FORMAT WORDS 
PHRAS$ IF FAWsef12811 THEN PCLISTELEMENT) ELSE PCFAW.038810))3 
IF COOE#S13 THEN CODE*IF CcODE*LISTELEMENT)="O0" THEN O ELSE 
IF cobes"T" THEN 4 ELSE 
IF coDEs"x" THEN 2 ELSE 
IF CODES"A™" THEN 4 ELSE 
IF CoDEs"I" THEN 6 ELSE 
IF CODE="F"™ THEN 8 ELSE 
IF CODES"E" THEN 10 ELSE 
IF. CODEs"U"* THEN 11 ELSE 
IF CoDeEs"0" THEN 412 ELSE 
IF CoDEs"_L" THEN 14 ELSE 
IF CoODEs"R* THEN 15 ELSE 163 
CODE1L+CQODEs4. 3 
IF (CTYPeCODE=1i1) AND FAW. C3121] THEN GO TO FMTERR ELSE 
welF FAWel13#19 THEN LISTELEMENT#CODE1 ELSE 
IF TYP AND FAW,C2781] THEN 64 
ELSE FAW.[626] 3 
Ne IlF FAW,C14%1] THEN LISTELEMENT 


00638100 
00638200 
00638300 
00638400 
00638500 
00638600 
00638700 
00638800 
00638900 
00639000 
00639400 
00639200 
00639300 
00639400 
00639500 
00639600 


00639700 © 
00639800 


00639900 
00640000 
00640100 
00640200 
00640300 
00640400 
00640500 
00640600 
00640700 
00640800 
00640900 
00641000 


00641100 © 


00641200 
00641300 
00641400 
00641500 
00641600 
00641700 
00641800 
00641900 
00642000 
006421900 
00642150 
00642200 
00642300 
00642400 
00642500 
00642600 
00642610 
00642700 
00642800 
00642900 
00642905 
00642910 
00643000 
00643010 
00643020 
00643100 


a sa a a st a A ts tt gt Bt a 


036412 
036533 
0366? 4 
036614 
O367 44 
036820 
036884 
03683 
036833 
03703 
O371%4 
O37434 
037344 
O377%4 
037733 
037783 
O380t0 
03810 
0381480 
O38ate 
QO382%e 
0382!3 
038340 
038332 
038410 
O384t4 
038432 
0385%0 
O387%4 
038744 
O387!4 
0387:%3 
038783 
038910 
039080 
039033 
Q392%4 
039312 
039430 
0394:0 
039734 
0404%3 
040441 
O406%4 
Od0Btt 
OALOFL 
ObLo%, 
O444aty 
0416%4 
Oats 
042034 
042330 
Od2at4 
042622 
043430 
043231 
043433 


- INLOOP? 


FLOW? 


DP wo 
ho 
Pus 


ELSE IF TyP THE 
ELSE (DieFAW,[2 
IF PCOUP)SO THEN GO To S2 3 
IF W<OQ THEN IF CODE1 AND we("1) THEN GO S2 
ELSE IF NOTCCODE=0 OR CODE=12) THEN GO TO FMTERR} 
IF O<C THEN IF NOTC(CODEZ15 AND CODE#8 AND CODE#10) 
THEN GO TO FMTERR 3 
IF W=0 THEN IF CODEZ%2 AND NOT CODE1 THEN GO S2 3 
IF TYP THEN BEGIN IF 0>63 THEN 063 3 
IF NOTCFAW,[2731)] OR W<64) THEN GO TO FMTERR 
ELSE WeW,C42t6)] § GO TO INLOOP END ELSE 
IF FAW,C13%2]40 OR FAW,C2:4)213 THEN 
BEGIN GO TO PCIF CODE=15 THEN 8 ELSE IF CQDE1 THEN 2 
. ELSE CODE) ; 
GO C# GO Xs GO As’ GO Is GOR} GO ES GO OF GO L3 
GO TO FMTERR ; 
Ls WieIF WSS THEN W ELSE 53 GO TO Z3 


Well6t4))3 


Xi  WleW DIV 643 WeSKIPeW,£4226)3 
Gn TO Zw23 

At WieIF Ws6 THEN W ELSE 63 

Z3 SKIPew"wis GO TO Zwa; 


It WieIF W<8 THEN W ELSE 83 
SKIP¢IF W<i6 THEN O ELSE W"163 
W2eW"SKIPRW13 GO TO ZD3 

Et DeCFAW.C2241513 OR FAW, C1421) 2403 
D2+D=D1ielF DS8& THEN D ELSE 83 
SKIP¢IF (weD)S5 THEN O ELSE Wep#53 
WieW2e03 GO TO SWT3 


Ri. D2eD"OielF OS8 THEN D ELSE 83 


SKIP*IF CW"DIS17 THEN.O ELSE wepw4i73 
WLeIF (WeD)S8 THEN weDel ELSE 83 
W2eIF (CW=D*SKIPIS9 THEN O ELSE W"D"SKIP#9; 
GQ TO SwT3 
C: Of WeBs WieSKIP COS 
Zwet Wed; 
zps DeD14+D2¢03 
SWTt WTeWL4W23 
END ELSE 
BEGIN WTeCWL]F AW, L2B24) FC WQ2EF AW, (2424193 
SKIPCFAW.£ 322613 . 
END3 
IF CODE $ 2 THEN GO TO FLDW3% 
IF LSTRN20 THEN IF CODE&14_ THEN GO TO UTYPE ELSE GO FLOW 
ELSE UALLDONE 3 
IF CODE, THEN BEGIN BUFFeSAVEBUFFs CHReW3 GO XTYPE END 3 
IF (CHReW+CHRI>CSIZE 
THEN GO TO ERROR; COMMENT BUFFER EXAUSTED33% 


COMMENT SELECT EDITING PHRASE3% 


WMP 3s 


IF CODE = 15 THEN GO TO RTYPES% 
IF CODE THEN GO TO FMYERR 3 
GO TO PCCODE)3% 


GO TO OTYPES COMMENT COnE s 0 #p3% 
GQ TQ XTYPES COMMENT CODE = 2 8x3% 
GO TO ALFAs COMMENT CONDE = 4 BAS% 
GO TO [TYPES COMMENT CONE = 6 #I13% 
GO TO FrYPEs COMMENT CODE = 8 =F3% 
GQ TO ETYPE3 COMMENT CODE = 10563% 


oe takac 
00643200 


00643300 
00643320 
00643330 
00643340 
00643350 
00643360 
00643370 
00643372 
00643376 
00643400 
00643500 
00643590 
00643600 
00643700 
00643800 
00643900 
00644000 
00644100 
00644200 
00644300 
00644400 
00644500 
00644600 
00644700 
00644800 
00644900 
00645000 
00645100 
00645200 
00645300 
00645400 
00645500 
00645600 
00645700 
00645800 
00645900 
00646000 
00646100 
00646200 
00646300 
00646400 


00646500 | 


00646600 
00646700 
00646800 
00646900 
00647000 
00647020 
00647100 
00647200 
00647300 
00647400 
00647500 
00647600 
00647700 


AHH AH Ht Ht tt Ht A A ht a et Hh a 


436% 
oases 
0440383 
O44430 
044683 
044933 
O453%4 
O454ty 
O45713 
O460!2 
O4462ate 
Q46419 
O46723 
047082 
QO&7art 
O476%4 
047623 
048040 
048330 
048380 
O486'4 
048810 
049033 
049410 
049634 
049930 
O503%4 
O507%2 
050941 
0513140 
O517%4 
0521%2 
052633 
O527%4 
052944 
053010 
053423 
0533:%0 
0533!0 
0536%3 
053810 


053870 — 


0539%4 
O54at, 
O0542%4 
054530 
O546%14 
O5474¢ 
054734 
0548802 
054982 
0550!0 
O550%e 
055130 
0551%2 
055230 
O550%2 
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FMTERR3 
UERRS 


GO TQ OTYPE} COMM 
GO TO LOGI 3} COMME 


IF FILX,CL8215]>4 THEN 
BEGIN %£%% NOT ARRAYROWBUFFs SO TRY PAR LBL BRANCH, 
PCFILXENOT 3323 FILXENOQT B3]eFILXCINOT 4)«0 3 
P(MKSs9seJUNK) 3 
END 3 
TENCOS TENGOPCETENCIL J) >CRxeSFBI&1008338210) 3 
W2*CCWLEFIBL73419>9)4+(W1290994(W1>999)41 3 
IF NOT UTYP THEN 
BEGIN 3 
STREAMCP2eW2eP4e¢W1sTEN) 3 
BEGIN DS*1L4LIiT'wFMT ERR» RECS™S SleLoc Pi i 
DS*P2 DECZ OSe ,OLIT*s NO LBL&en 3 
END 3 


BEGIN 3} 
STREAMCP9¢W22 PRE (CCHRDD )4(CHR>99 Dele P7EUEXPe Us CHR» 
WieP6eDeUDs P5eD20eP be (D>9 +1 oP IeWeUW oe PEW FO, 
PL] CW>9) +1 ePOeCHREUFREEFIELDs TEN) 3 
BEGIN ODS*2LitT™eu"3s  P2cSteLOC P33 DSeP1 DEC) 3 
P5CDSeLIT%."3 SteLoC P63 DSeP4 DECISPOCDI<«DI+5)3 
DS+S5LIT" ERREN; SteLOc P73 OSepEC 3 
DS+5LIT*sCHR="$ STeSI+73 OSe*CHR } 
DSeSLIT"**COLS"3 OS¢P8 DECS DSe3LIT"sRe" |F 
DS+P9 DEC$ DS*OLIT"*sNO LBLie™ 3 


- END} 
IF CHR THEN STREAMCTENDS DS#7LIT®*FREFLD™ 3 
END 3 
PCETENCO]).0£33%151*34»COM) § 


COMMENT L PHRASEs% 


LQG]! 


STREAM(P3 © Wis P2 ¢ BUFFSP1 «+ SKIP)3% 
BEGIN2 
SIl*#P23% 
ST¢SI+P13 COMMENT SKIP ANY LEADING BLANKS3 
DIeLOC P13% 
OS¢6 LIT "TRUE "3 COMMENT PUT COMPARE IN Pi3¢ 
DT eD 19634 
IF P3 SC # DC 
THEN GO TO BL 3 
LAs TALLY « 41 3 
GQ TO LC3% 
BL: DIeLOc Pi 3 
NSe¢ 6 LIT ™ TRUE "3 COMMENT PUT COMPARE IN P13% 
DIepI1763% 
SI¢S[*P3s% 
IF P3 SC#DC% 
THEN TALLYe4d3 
LC: P3 © TALLYS% 
P2 « SIi% 
ENOD3% 
40 TO COMA3% 


COMMENT IF SAME sP3¢13% 


COMMENT IF SAME» P3=13% 


COMMENT D PHRASES% 


DTYPE$ 


STREAMC(P2 © O8PL ¢ BUFF 3% 
BEGIN 


00647800 
00647900 
00647903 
00647906 
00647909 
00647912 
00647915 
00647918 
00647921 
00647924 
00647927 
00647930 
00647933 
00647936 
00647939 
00647942 
00647945 
00647948 


(00647951 


90647954 
00647957 
00647960 
00647963 
00647966 
00647969 
00647972 
00647975 
00647978 
00647981 


00647984 — 


00647987 
00647990 
00648000 
00648100 
00648200 
00648300 
00648400 
90648500 


00648600 © 


00648700 
00648800 
00648900 
00649000 
00649100 
00649200 
00649300 
00649400 


00649500 


00649600 
00649700 
00649800 
00649900 
00650000 
00650100 
00650200 
00650300 
00650400 


a a st st hh tg ss sa a st a 


0553%0 
055382 
055410 
055480 
OS55%4 
055533 
0560%1 
0561!0 
05671%0 
O564r{ 
056984 
O570%4 
057023 
O572%4 
O57 482 
0576392 
057633 
057633 
057623 
OS77%4 
058023 
0586%4 
O589!%9 
059122 
O594%ea 
0596:0 
0597392 
059933 
060133 
060210 
060514 
060584 
060613 
060613 
060884 
060834 


060812 . 


060910 
060984 
061024 
0610! 
061110 
061442 
061443 
061220 
O612%4 
061374 
O0613%2 
064420 
O644t0 
064540 
O615%14 
0615%2 
061533 
061644 
061684 
061722 


ST*#P 13% 
ST+S1+83% 
P2eSI3% 
END3% 
BUFF ¢ PSS 
gO TO COMM3¢% 


COMMENT O PHRASES% 


QTYPES 


FLAGBIT: 


STREAMCP2¢0: PLeBUFF)3 % CHECK FOR FLAG BIT 
BEGIN 
Sl « P43 
IF SB THEN TALLY © 13 
P2 ¢ TALLY 
END; 
IF P THEN 
BEGIN / € DATA HAS FLAG BIT 
COMMENT IF FeFIELD = 0 OR R THEN LIST ITEM IS 
SIMPLE VARTABLE IN STACK OR PRT} 
TE CJUNK1 © CADORS].6182153) = 0 THEN GO FLAGBIT: 
IF P€10eL00).018%15] = JUNK1 THEN GO FLAGBIT? 
END; 
COMMENT EITHER NO FLAG BIT OR DATA GOES TO ARRAYS 
STREAMCP3¢0% P2eBUFFs»s Pile rADDRS))3 


BEGIN 
SI. « P23  % DI SET FROM LAST PARAMETER 
DS ¢ 8 CHR3 
P3 « Sy3 

ENO} 

BUFF eRe 


GO TO COMMs. 


COMMENT FLAGGED DATA GOING TO STACK OR PRT CAN CAUSE 
BAD PROBLEMS, FORCE FLAG BIT INTERRUPT HERES 

JUNKL © [JUNKL D5 

PCJUNK1L)3 

COMMENT CONTROL CANNOT REACH THIS POINTS 


‘COMMENT U PHRASES % 


UTYPE: 


IF D2CSIZE THEN UALLMONE 3 4% EXIT IF MIN FLO"WOTH2BUFFSZ 


SGN©SGNR12CA2tA2tGI RDC 3G6tA[sGlawl30sdei6) 3 


WelF W=O THEN TENDC60] ELSE IF WacSIZE THEN CSIZE ELSE We13 


UBUILDeEUCHCNT*+O 3 


nO uUCH UNTIL UEOW OR UHs" * 3 B%% SCAN UNTIL CST OR EnOew, 


USCHCNT«UBUTILDeL 3 
TF URELIMCHK THEN GO TO ULS 3 UBUFFeUH 3 
UNLOCATED©UNUMEUVALEUDECCUEXP#®03 USGNeUGETSGN 3 


IF UH="%" THEN 42% WE MAY HAVE AN OCTAL NUM$ ERROR EXIT IF 
BEGIN RS“ GTR 3777777777777777 OR HAS DIGIT GTR 7 
UCH3 SGNeSGN EQV (NOT UGETSGN) 3 %%2USGN*USGN+UGETSGN 


UNUMeUH<B 3 

WHILE CUBUILD*UBUILD4+1)<17 AND UH<8 00 
BEGIN UVALeUHBUVAL( 32624213 UCH END 3 

IF UBUILD=17 AND UR<g@ AND CNOT UVAL*e(321]) THEN 
BEGIN %%% WE NOW BUILD 168TH OCTAL DIGIT. 
UVAL#UHBUVALD1%4#44]3 UCH 3 
END 3 

GO TO UENDNUM 3 

END 3 


00650500 
00650600 
00650700 
00650800 
08650900 
00651000 
00651400 
00651200 
00651210 
00651220 
00651230 
00651240 
00651250 
00651300 
00651310 
00651320 
00651330 
00651340 


00651350 


00651400 
00651410 
00651420 
00651430 
00651440 
00651450 
00651500 
00651510 
00651520 
00651530 
00651540 
00651550 
00651600 
00651610 
00651620 
00651630 
00651640 
00651715 
00651720 
00651725 
00651730 
00651735 
00651740 
00651745 
00651750 
00651755 
00651760 
00651765 
00651770 
00651775 
00651780 
00651785 
00651790 
00651795 
00651800 
00651805 
00651810 
00651815 


AHHA HH HHH He Hs Ht a ts st tt tt st st st st tt 


O617%2 
061773 
061870 
061874 
0618%2 
061920 
064949 
0619!2 
0619%2 
06203 
062083 
062120 
062443 
062210 
0622314 
0620%4 
062233 
062283 
062233 
062534 
0627314 
062731 
O627TI4 
062833 
062843 
062940 
0629%4 
062932 
0629%3 
063084 
063083 
063083 
063083 
063033 
063¢%2 
063483 


063193. 


063113 
063330 
063623 
064182 


064342 


064744 
064832 
0654!2 
O65a%1 
065910 
065992 
066350 
066484 
0667192 
067230 
067510 
0675i2 
0678170 
0674820 
067832 


» 
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UENDNUM$ 


UNUMeUHe 10 3 
WHILE YUH<10 DO BEGIN UVALe*1LOxXUVAL SUH UCH END 3 
tF UHs"," THEN 
BEGIN 
UCHS UNUMeUNUM OR UR<10 3 
WHILE UR<10 00 
BEGIN UBUILDCUBUILD4+1s UDECeLOxUDEC+UH? UCK END 
END 3 
TF UH="@" OR UHS"E" THEN 
BEGIN UBUILDe*UBLILDs UCHF UEXPSGNeUGETSGN 3 
IF NOT UNUM. THEN UVAL@4 3 
IF UK<10 THEN 
BEGIN UNUMe13 UBUILDe*UBUILD 3 
DO BEGIN UEXPeloxUEXP+UHZ UCH END UNTIL UH>9 3 
END 3 
END 3 
IF UNUM THEN &%% THE. CST HAS ENOUGH CHARACTERS TO UNAMBIG* 
BEGIN %%2% UOUSLY APPEAR AS A NUMBER, 
IF UBUILDSO THEN UGOOFEDCS) 3 
UVALeUVAL*UDEC/TENCUBUILD@"1] 3 
IF UEXPZ0 THEN UVALePCUVALe TENCUEXPIJsIF UEXPSGN THEN 
PCA) ELSE Pex)) 3 
PCIF SGN THEN *UVAL ELSE UVALs CADDRS)»STO) 3 
UL5! UCHECKIT 3 
END 3 
UBUILDCO 3 
IF UH 2 teres THEN 
IF UDELIMCHK THEN UBUFFe*UBUFF,C12$30)] ELSE GO TO UL3 
ELSE BEGIN UBUFFeUSCHCNT€ O03 UGQSTRNGEUEXPeL$ UL33 UCH END 3 
IF NOTCUDEC*USDELIMCHK) AND USCHCNT<6 THEN 
BEGIN UL4? UBUFFIT$ 60 TO UL3 END 3 
IF CUVAL©OQ)2USCHCNT THEN GO TO UL6 3 
NO IF CUVALe*x"RUVALL 242302183 2=5UBUFF THEN GO TO UL6 
UNTIL UVAL,.C24%14) 3 
PCUBUFFs fT ADDRS725TO) 3 
UL6!: IF UDEC THEN GO TO ULSs IF LSTRN20O THEN ADDRS*LISX3 
IF LSTRN<O THEN 
BEGIN 00 UCH UNTIL USDELIMCHK3 GO TO ULS END 3} 
USCHCNT¢UBUFFeO3 GO TO UL4 3 


COMMENT A PHRASE 3 


ALFA 


STREAM(P3¢W1 es P2eRUFFSPLEeSKIP) 3% 

BEGIN’ 
SL+P23% 
SIl¢Si+#P14 COMMENT SKIP EVERYTHING BUT LAST 635% 
DI*LOc P2ss% 
DIeDI=P3s% 
DS#P3 CHR3% 
P2eS13% 

END3% 

GQ TO COMAs% 


COMMENT X PHRASE AND T PHRASE 3 


XTYPE3 


IF C(CHReCHR4+W1x64)>CSIZE=cODE 1 
THEN GO TO ERROR; COMMENT BUFFER EXAUSTEDs% 
STREAMCP3eBUFFIEP2eWL se PLeW 3% 
BEGIN’ 
Sle¢P33% 
S1eSl+#P13% 


00651820 
00651825 
00651830 
00651835 
00651840 
00651845 
00651850 
00651855 
00651860 
00651865 
00651870 
00651875 
00651880 
00651885 
00651890 
00651895 
00651900 
00651905 
00651910 
00651915 
00651920 
00651925 
00651930 
00651935 
00651940 
00651945 
00651950 
00651955 
00651960 
00651965 
00651970 
00651975 
00651980 
00651985 
00651990 
00651995 
00652000 
00652005 
00652010 
00652015 
00652100 
00652200 
00652300 
00652400 
00652500 
00652600 
00652700 
00652800 
00652900 
00653000 
00653100 
00653200 
00653300 
00653400 
00653500 
00653600 
00653700 


te ae a a na at 


0678At2 
O679%3 
068412 
068534 
0685'3 
0688!3 
0690!0 
C694t0 
069472 
069624 
0704584 
070340 


070383. 


0706380 
O710%1 
O71034 
O71081 
O71421 
071423 
O714%4 
071633 
0719%2 
O72¢%2 
072430 
0750:3 
075033 
0754%2 
O752% 4 
078513 
076430 
0763%3 
076512 
076784 
Q769%2 
O77? 4t4 
0779140 
O77 4t4 
077533 
077910 
078033 
078083 
078244 
O782%4 
0782%2 
078330 
O78384 
078313 
078431 
O784ie 
078433 
078534 
0785 %4 
O787%4 
0788%2 
079080 
079010 
O790%4 


P2acSi+SI+32 
Sy¢S1+32 
P3¢SI3% 
END} % 
RUFF © P3% 
GO TO COMM3% 
COMMENT I PHRASE3% 
ITYPES PCO)3 COMMENT RLYT = FROM I (SEE FOUTIGS 
FINS COMMENT FIRST WE GET SIGN AND COUNT LEADING BLANKS3% 
STREAMCE% 
P4eWT» COMMENT IN@FIELD WIOTHsOUTSLEADINGS 
BLANKS3% 
P30 » COMMENT PLACE TO RETURN SIGNS% 
P2¢BUFF% COMMENT IN AND OUT=BUFFER ADDRESS}% 
PLeSKIP)# COMMENT # OF LEADING CHARACTERS TOZ% 
IGNORE 3% 
BEGIN 
ST#P23% 
STe+SI+P 13% 
Pacye Sc4#™" " THEN% 
JUMP REAL TO NTBLK#% 
Sye*#S1l+13% 
TALLY*TALLY41)3% 
‘COMMENT IF WE FALL THROUGH LOOP THEN’ 
WHOLE FIELD WAS BLANK3S% 
PAeTALLY#% 
GO TO IEXIT$% 
NTBLK? IF Ssc<"o" THENS 
BEGIN COMMENT SYGN IS PRESENT#% 
IF Scet=" THENS COMMENT TOGGLE*. TRUES% 
Sl*Sl4+43 COMMENT SKIP SIGNS 
TALLY*#TALLY+13% 
END3% 
IMPLS3$ PHeTALLY3 COMMENT LEADING BLANKS#"SIGN'3% 
. — TALLY 6O3 COMMENT INDICATE + SIGNS% 
IF TOGGLE% 
THEN TALLY€13 COMMENT TOGGLE = TRUE IF "m"3% 
; P3¢TALLY3 COMMENT PASS BACK SIGN32% 
IEXITS P2¢SI3 COMMENT ADDRESS OF FIRST DIGITs% 
END3% . 
BUFF ¢ P3% 
SGN © P3% 
COMMENT NOW TO CONVERT INTEGERS & 
STREAM(% 
P5S e¢(PCSSN»WTe +2 DUP) 9% 
P4 ¢ CIF P < 8 THEN 0% | 
ELSE PCBs = »BeXCH))#% 
COMMENT. IF WT="LEADING BLANKS" > 8% 
THEN PS¢WT*LEADING BLANKS sP4e 0% 
ELSE PS+8sP4enTeLEADING BLANKS™83% 
P30, COMMENT PLace TO RETURN LOW HALF3% 
P2eQsCOMMENT PLACE To RETURN HIGH HALF3% 
Ple0? PO © BUFF I3% 
BEGINZ 
SI#PO};% 
DreLOc P23% 
DSeP4 OCT3 COMMENT CONVERT HIGH HALF3% 


00653800 
00653900 
00654000 
00654100 
00654200 
00654300 
00654400 
00654500 
00654600 
00654700 
00654800 
00654900 
00655000 
00655100 
00655200 
00655300 
00655400 
00655500 
00655600 
00655700 
00655800 
00655900 
00656000 
00656100 
00656200 
00656300 
00656400 
00656500 
00656600 
00656700 


00656800 © 


00656900 
00657000 


00657100 


00657200 
00657300 
00657400 
00657500 
00657600 
00657700 
00657800 
00657900 
00688000 
00658100 
00658200 
00658300 
00658400 
00658500 
00658600 
00658700 
00658800 
00658900 
00659000 
00659100 
00659200 
00659300 
00659400 
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079033 
O79 10 
0792380 
O79a%4 
079282 
079320 


0793382 


O793t8 
079323 
0793483 
079480 
O79 4% 4 
O79a%4 
O794%2 
079510 
0798450 
O795%2 


O79519 


079583 
0796314 
O79784 
0797:3 
0798120 
O798%2 
O79B%9 
O79R8t9 
079843 
079910 
O7T9912 
0799%2 
080030 
080084 
080022 
0800! 
080033 
0804130 
080140 
080182 
080443 
080230 
O802%4 
08023 
0803%4 
O803%4 
0803%2 
O0804te 
0805t3 
O807114 
080734 
0807184 
080734 
0807389 
080723 
0808!3 
080833 
0809%0 
0809s! 


oa ” 
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% VOID 


FOUT? 


FAt 


DIe*LOc P3s% 
DS«P5 OCT; COMMENT CONVERT LOW HALF3% 
P1¢©STs% 
ENDS 4 
BUFF © PS COMMENT SAVE NEXT FIELD ADODRESSS 
PCTENGsMULs4+)3 COMMENT HIGH HALF =x 10*8% 


+ LOW HALF #2 
IF SGN THEN PCCHS)4% 
IF PCXCHsDEL»XCHsDEL»XCHspUP) THEN PCXCHsCADDRS)s¢) 
ELSE IF PCXCH,DUP)S PCMAx]T) THEN PCCADORS)],1S0) 
ELSE PCLADDRSIs«)3 


IF P THEN GO TO FAs 
GQ TO COMMs2 


COMMENT F PHRASES% 
FTYPE: 


PC1L)34% 
GO TO FIN: COMMENT USE ITYPE TO CONVERT INTEGER PARTS 
STREAMCP5¢ 029% 
P4e Disk 
P3¢ 0 » COMMENT PLACE TO RETURN LOW HALF; 
P2¢ 0 » COMMENT PLACE TO RETURN HIGH HALFsS 
Pi ¢ OFPQO © BUFF DI% 
BEGIN’ 
STePO 3% 
Sle*Ste13 COMMENT SKIP DECIMAL POINT32 
DIe*LOC Passe 
DSe+P4 OCT? COMMENT CONVERT HIGH HALFs% 
DleLoc P33% 
DSePS OCT3 COMMENT CONVERT LOW HALF34 
PLeSIs% 
ENDS% 
BUFF © P3% 


PCTEN(D2] x P + P)3 COMMENT HIGH HALF X 10*D2 + LOW HALF3 
PCCABSCADDRS)x TENCD]) + P)s COMMENT INSERT INTEGER PARTS 
PCTENCOJs/)3 COMMENT SCALE TO PROPER DECIMAL PLACES 
IF SGN THEN PCCHS)3% 

PCLADDRS)sSTD)3% 

PCDEL*DEL) 3% 

GQ TO COMM3% 


COMMENT E PHRASES% 
ETYPE: 


STREAMCP G6 0% COMMENT PLACE TO RETURN EXPONENT? 2 
P5 «© P(Net, OUP)» COMMENT D2 INsMANTISSA SIGN OUT? 
P4 « CIF FP € 8 THEN PCOe,D22SNDeXCH)% 
ELSE PCBe™s2.D2eSND28) 0% 
COMMENT TF €D°1) > 8 THEN P5S= Dwi"BePae 8% 
FLSE P5= Os PasO"1s% 
ni-« P4, ON RETURN P&SINTEGERS 
NIGITss% 

P3 ¢ PCO)» COMMENT PLACE TQ RETURN LOW HALF3% 
P2 ¢ Os COMMENT PLACE TO RETURN HIGH HALF32 
P1 ¢ BUFFE% 

PO « SKIP)3% 
BEGINS 
SleP13% 
ST*SI+#P07% 
PO*SI3 COMMENT ADDRESS OF INTEGER3% 
SI*¢S]I+23} COMMENT SKIP INTEGER DIGIT & ",%3% 


00659500 
00659600 


00659700 
00659800 
00659900 
00660000 
00660400 
00660200 
00660290 
00660300 
00660310 
00660400 
00660500 
00660600 
00660700 
00660800 
00660900 
00661000 
00661100 
00661200 
00661300 
00661400 
00661500 
00661600 
00661700 
00661800 
00661900 
00662000 
00662100 
00662200 
00662300 
00662400 
00662500 
00662600 
00662700 
00662800 
00662900 
00663000 
00663100 
00663200 
00663300 
00663400 
00663500 
00663600 
00663700 
00663800 
00663900 
00664000 
00664100 
00664200 
00664300 
00664400 
00664500 
00664600 
00664700 
00664800 
00664900 


ts st ss Ht A tt A a Ht st ts 


080983 
081010 
081082 


081093 


081130 
081142 
0812314 
O8l2att 
081374 
081640 
082010 
082120 
082120 
082433 
082244 
OB22%4 
O8237%4 
082323 
OB24tt 
082432 
062433 
082520 
082610 
082620 
O826%4 
082622 
082633 
0827314 
08272 
082870 
O82ai4 
082832 
082940 
0830!:0 
O834%2 
O0832%4 
O83att 
0833%3 
O83at4 
083483 
083433 
O835t2 
083642 
083a%2 
O840%4 
084084 
0840! 4 
084084 
OB40% 41 
Q840!9 
084013 
0844 %4 
084133 
084143 
0849t0 
O842t2 
084233 


” 


Die LOC Pax 
NSe P4 OCTS COMMENT CONVERT HIGH HALFU% 
Dre Loc P33% 
OS¢ P5 OCT COMMENT CONVERT LOW HALFs% 
SleSI+13. COMMENT. SKIP "@"3% 
IF Sc=st@" THENS COMMENT IF EXPONENT < 04 
THEN TOGGLE «© TRUES% 
ST¢#SI4+43 GOMMENT SKIP EXPONENT SIGNs% 
DIl© Loc P63% 
DS* 2 OCTS COMMENT CONVERT EXPONENTI& 
Pie SI3 COMMENT RETURN ADDRESS OF NEXT? 
FIELDS 
IF TOGGLE THENZ 
BEGIN DI«DI “87% 
DSe LIT H13% 


END} COMMENT IF TOGGLE SET EXPONENTS 
NEGATIVE3% 

SI¢PO3;% 

NrleLoc P43 COMMENT CONVERT INTEGER DIGIT#S% 

0S ¢« OCT#Z 


SleSI*23 COMMENT LOOK AT SIGNS% 
IF Scate" THEN TALLY ©13% 
P5S¢TALLY#% 
END34% 
COMMENT ON RETURN STACK CONTAINS2 
BUFF 
HIGH HALF% 
LOW HALFS% 
INTEGER DIGITS 
MANTISSA SIGN% 
EXPONENTS% 
BUFF ©« Ps&% 
PCTENCD2] x P + P)S COMMENT HIGH HALFX10*D24LOW HALFIS 
PCXCHs TEND D@1)xP+P)3 COMMENT SCALE INTEGER DIGIT D PLACES 
AND ADD FRACTION PART3% 
IF PCXCH) THEN PCCHS)3 COMMENT INSERT SIGN?% 
PCXCH)3 COMMENT EXPONENT TO TOP#% 
IF CJUNK1 © P#(po"1)) 2 0% 
THEN PCTENDCUUNK1 I ¢MUL 2% 
ELSE PCTENC*JUNK1]2/)3 COMMENT INSERT EXPONENTS& 
GO TO COMB 


COMAS BUFF € P3% 
COMB: PCCADDRS],+STO)3. COMMENT RESULT TO LIST#% 
COMME IF CODE $ 2 THEN GO TO COmCs COMMENT PHRASE DIONT USES 


ANYTHING FROM LIST3% 
TF LSTRN20 THEN ADDORS¢IF NOT ULIST THEN LISX 
ELSE Pc, UADDRSsLO0) 3 
ULIST«O 3 
cOMCc?: TF PCCURPREEFTELDS 10) DUP 9>0 THEN GO TO INLOOP 3 
PCDELIS% 
go TO $434 
COMMENT THE <REPEAT PART> OF PHRASE IS IN TOP OF STACK2 
NOWC] HOPE), IF REPEAT#=1 > 0 THEN GO TO INLOOP TO 
USE SAME PHRASE OVER, IF REPETE = 0 THEN DELETE 
THE QO AND GO TO Si TO PICK UP NEXT PHRASES 
COMMENT R EDITING PHRASE;% 
RTYPE3s$ STREAMCP6 ©€CFLGe0)s COMMENT RETURNS FLAG AS TO WHAT IS2 


00665000 
00665100 


00665200 
00665300 
00665400 
00665500 
00665600 
08665700 
00665800 
00665900 
00666000 
00666100 
00666200 
00666300 
00666400 
00666500 
00666600 
00666700 
00666800 
00666900 
00667000 
00667100 
00667200 
00667300 
00667400 
00667500 
00667600 
00667700 
00667800 
08667900 
00668000 
00668100 
00668200 
00668300 
00668400 
00668500 
00668600 
00668700 
00668800 
00668900 
00669000 
00669100 
00669200 
00669300 
00669400 
00669500 
00669505 
00669510 
00669600 
00669700 
00669800 
00669900 
06670000 
00670100 
00670200 
00670300 
00670400 
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QB43:0 
084344 
064333 
084420 
084412 
O844t3 
084534 
084534 
0845!%2 
084533 
084610 
084624 
O846%, 
0846%2 
0846t3 
O847i4 
084734 
OB47E1 
O8478O 
084733 
O84aio 
Os8aanti 
084940 
O8agtt 
084982 
O849i2 
084932 
OB49t2 
084932 
OB849%2 
OB849t2 
084989 
085020 
085140 
085233 
0852%3 
0853!3 
O85ato 
0855!3 
O8S7%4 
085833 
085944 
085933 
OBG60%4 
086432 
086112 
O8b64ty 
086610 
086733 
OB70t2 
087013 
08730 
087310 
087380 
087310 
087310 


087370. 


®eeeveeseeeevneeeeeeeeee ee 


IN BUFFERS 


P5 © QO» COMMENT SIGNS 
P4 © We COMMENT FIELD WIOTH34 
P3 ¢ BUFFS COMMENT BUFFER CHARACTER ADDRESS3% 
P1 © 023% 
REGINE 
SI « P33% 


TALLY «© P43% 
COMMENT SKIP LEADING BLANKS3% 
PACIF Sc # ™ ™ THEN JUMP OUT TO RSIGN3% 
SI*ST+13% 
TALLY © TALLY +63)5COMMENT TALLY™43% 
COMMENT FALL THRU LOOP MEANS FIELD WAS BLANK3% 


TALLY ©43 COMMENT SET FLAG TO 45% 
GO TO RXITAs% 
NOT! TALLY © TALLY + 633% 
SI © Sy#13% 
P4 ¢ TALLY3 COMMENT A. “e™ WAS FOUND FIRST. SKIP2 


THE "," AND SET FLAG TO 63% 
TALLY © 63% 
GO TO RXITAs# 
COMMENT EXPONENT FOUND FIRST3% 
EXPFRST! TALLY «© TALLY +633% 
SI ¢ Sr+13% 
P4 © TALLY#% 
TALLY © 83 COMMENT SET FLAG TO 83% 
GO TO RXITAS% 
COMMENT LOOK AT FIRST NON*BLANK CHARACTER; &% 
RSIGN? IF SC="=" THEN GO TO RMINUS3% 
IF SCs"#" THEN GO TO RPLUS#% 
IF SC="&" THEN GO TO RPLUS#% 
RXITB: IF SC2"0" THEN GO TO RIMPLUSS% 
IF SC="," THEN GO TO NOIs% 
IF SCS"E" THEN GO TO EXPFRST3Y 
IF SC="@" THEN GO TO EXPFRST3% 
COMMENT IF NONE OF THE ABQVE THEN ERRORS 
RERRE TALLY «© 23% 
GO TO RXITA#% 
RMYNUS? DI « LOC Pass 
Ol « N14; COMMENT PASS BACK A "41" FOR Anenzg 
DS « LIT mgs3e 
RPLUS? TALLY © TALLY+633% 
SleSl+13% 
P4eTALLY3 % 
COMMENT SKIP BLANKS PAST SIGN CIF ANY) THEN LOOK AT 
NEXT NON*@BLANK}% 
P4CIF Sc¥" “ THEN JUMP OUT TO RXITBIY 
STeSr4+13% 
TALLY © TALLY # 63)32% 
GO TO RERR3% 
RIMPLUS? F4 «© TALLY3% 
TALLY © O88% 


RXITA P3 ¢« SU3% 
P6 ¢ TALLY3% 
END3% 
BUPF © P53 COMMENT ADDRESS OF NEXT CHARACTER$% 
WT ¢ P3 COMMENT REMAINING FIELD3% 


00670500 
00670600 
00670700 
00670800 
00670900 
00671000 
00671100 
00671200 
00671300 
00671400 
00671500 
00671600 
00671700 
00671800 
00671900 


00672000 


00672100 
00672200 
00672300 
00672400 
00672500 
00672600 
00672700 
00672800 
00672900 
00673000 
00673100 
06673200 
00673300 
00673400 
00673500 
00673600 
00673700 
00673800 
00673900 
00674000 
00674100 
00674200 
00674300 
00674400 
00674500 
00674600 
00674700 
00674800 
00674900 
00675000 
00675100 
00675200 
00675300 
00675400 
00675500 


(00675600 


00675700 
06675800 
00675900 
00676000 
00676100 
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OB74tO0 
O0874t0 
OB874%4 
O87 42 
087510 
0875392 
O875%2 
087583 
087612 
087682 
087810 
087884 
087883 
087813 
087930 


087994 


O879%2 
0879183 
088010 
08800 
088084 
O88Oi2 
O88Ot2 
0880!3 
088450 
08814 
0881%2 
0884:3 


088153 


O882%o 
O88334 
088450 
0884at3 
088542 
OBB6?1 
088710 
0887320 
O8B7 84 
0887%9 
0887:3 
088at0 
O8ABts 
08883 
088920 
088Ol4 
088914 
068934 
089023 
08941t0 
0894%2 
069483 
0892t0 
O089a%4 
089eto 
0892%3 
089320 
O893zie 


RBLFS 


RF AS 


RIPART? 


RIPRTN? 


RDONAS 
RDONE § 


MAN YE ES 


RFC8 


SGN « _P3 COMMENT SAVE SIGN 

GO TO P3 COMMENT SWITCH ON KEY3% 

60 TO RIPART$ COMMENT KEY = 0 & «SIGN><DIGIT> OR <DIGIT>; 

GO TO RERRA; COMMENT KEY = 2 ® ERROR#% 

GO TO RBLFS. COMMENT KEY # 4 = BLANK FIELDs% 

GO TO RFAS COMMENT KEY = 6 # <SIGN>%." OR %,"3% 
COMMENT FALL THRU FOR KEY = 8 =<SIGN> <EPONENT> OR% 

<EXPONENT> 3% 

JUNKL © 13 COMMENT MANTISSA ¢ 13% 

Wi « QF COMMENT O DECIMAL PLACESs4% 

GO TO REXP3 COMMENT OUT TQ DEVELOP EXPONENT 


COMMENT BLANK FIELD3% 
PCOrSSN)3 COMMENT SET RESULT TO =05% 
GO TO COMBS 

COMMENT ",% FOUND FIRST3% 


JUNKY © 03 COMMENT MANTISSA © 03% 
EEG OES COMMENT SET FLG TO REMEMBER NO INTEGERS 
PARTS % 


60 TO REPARTS% 
COMMENT DIGIT FOUND FIRSTI% 
PC1)3 COMMENT CALL GETNUM TO BUILD OCTAL% 
INTEGER PARTS 
GO TO GETNUM}% 
IF NOT P THEN GO TO RFC COMMENT BRANCH ON KEY GETNUM2 
RETURNS, IF NO BRANCH THEN WE HAVE FIELD EXAUSTEDs% 
TeEs IMPLIED DECIMAL32 
wi « O84 COMMENT DECIMAL PLACES IN FRACTIONS 
w2 « O3 COMMENT NO EXPONENTS% 
COMMENT BUILD RESULTS4% 
PCUUNK1)3 COMMENT GET NUMBERs% 
IF SGN THEN PCSSN)*4 COMMENT INSERT SIGN? 
COMMENT SCALE NUMBERS4% 
IF P€W2 + SCFTReW1eDUP) 2 0% 
THEN PCTENCP J] e+ MUL DS 
ELSE PCTENE*™PI]s/)3% 
gO TO COMBI 


@7 7777777777773 


COMMENT THE FIELD IS NOT EXAUSTED#% 
WT «© WT #43 COMMENT WT#4 TO ACCOUNT FOR CHARACTERS 
ENDING INTEGER FIELO3% 


TF W2 3 a" THEN GO TO RFPART3% 


COMMENT OUT FOR VISABLE DECIMAL POINT#2 
IF WT 2 .D THEN GO TO RERRA#S% 
COMMENT ERROR IF IMPLIED POINT TO RIGHTS 
OF MANTISSA FIELDs% 
Wi ¢« DuWT"13 COMMENT CALCULATE DECIMAL POSITION FROM% 
DECIMAL PLACES AND POSITION OF RIGT MOST% 
DIGIT IN MANTYSSA3% 


COMMENT LOOK FOR AND CONVERT ANY EXPONENT FOUND3% 


REXP 3 


STREAM(CZ 
P6 ¢ QO» COMMENT PLACE TO RETURN EXPONENT#% 
PSewT+1» COMMENT REMAINING FIELD WIDTHs% 
Poe BUFF »% 
P3e1i COMMENT FLAGS& 
PLleO)3% 


BEGIN COMMENT LOOK FOR E OR @3% 
St « P43 Sr « SI 743% 


00676200 
00676300 
00676400 
00676500 
00676600 
00676700 
00676800 
00676900 
00677000 
00677100 
00677200 
00677300 
00677400 
00677500 
00677600 
00677700 
00677800 
00677900 
00678000 
00678100 
00678200 
00678300 
00678400 
00678500 


00678600. 


00678700 
00678800 
00678900 
004679000 
00679100 
00679200 
00679300 
00679400 
00479500 
00679600 
00679700 
00679750 
00679800 
004679900 
00680000 


00680100 


00680200 
00680300 
00680400 
00680500 
00680600 
00680700 
00680800 
00680900 
00681000 


00681100 


00681200 
00681300 
00681400 
00681500 
00681600 
00681700 


aaa ddA 4s At a st At tt A tt Ht A tt tt tt 


089490 
O894te 
0B94%3 
O89Ss1 
089583 
089624 
0896%3 
089623 
0896%3 
08g97i2 
OB9Rt4 
0898t3 
089833 
O899l4 
0899!3 
0899%3 
090082 
O90qtt 
090444 
090433 
0904°3 
090240 
0902t0 
090232 
090340 
090380 
090380 
0903%3 
0904%2 
090482 
090423 
090583 
090533 
0907%2 
090833 
0910%0 
0940%2 
094280 
091240 
O9T3ty 
O943%4 
O914%2 
O9L4at? 
091583 
091513 
091593 
0917%2 
0917'2 
O917%2 
091782 
091733 
091810 
091883 
091940 
0919%2 


092020 


092070 


x gle we 


RAAS$ 


RAERITALLY ¢« O3 


TALLY © P53% . 
P5¢ IF Sc# " " THEN JUMP OUT TO RAA#& 

SI © Sr + 134 

TALLY © TALLY + 63)3COMMENT TALLY = 1 3% 
GO TQ REXTA3 COMMENT OUT IF NO EXPONENT#&% 
IF SC="e" THEN GO TO RABsR 
IF Sc="@" THEN GO TO RABsSS 
COMMENT IMPROPER EXPONENT#% 
P3 « TALLY3% 


GO TO REXTAs% 


RAB? 


RADCS 


RAC? 


RAIS! 


COMMENT LOOK FOR EXPONENT SIGNS% 
TALLY © TALLY + 635% 
Sl« SI + 43% 
IF SCst%=" THENY 
BEGINS 
P5 # TALLY32 
TALLY © 13% 
P41 © TALLY3 COMMENT REMEMBER "#" SIGNS% 
TALLY © P53% 
GO TO REP3% 
ENDS&% 
IF SCS"+" THEN 
BEGINS 
REP? TALLY «© TALLY + 633% 
PS¢TALLY? 
Sl « §I1 + 43 COMMENT SKIP OVER SIGN;% 
P5CUUMP QUT TO RADC)$ COMMENT OUT IF FIELD NOTS% 
EXAUSTED (P540)3% 
GO TO RAER} COMMENT OUT ON ERRORS 
REXTA! GO TO REXTS% 
RAERA!: GO TO RAERS% 
END3% 
IF SC="&" THEN GO TO REP#% 
COMMENT LOOK FOR DIGITS IN EXPONENTS2 
IF SC < "oO" THEN GO TO RAER?% 
COMMENT OUT IF NOT DIGIT*ERROR}% 
TALLY © TALLY +633% 
PS ¢ TALLY3% 
COMMENT LOOK FOR 2@ND DIGIT#S% 
PSCSLeSI+15% 
IF Sc2"0" THENZ 
BEGIN 
Sle#Sr*13% 
DI ¢ LOC P6s% 
pS ¢« 2 OCT;% 
TALLY © TALLY + 633% 
P5 ¢ TALLY3% 
JUMP OUT To RAIS#% 
ENDI% 
IF SC#* " THEN JUMP OUT TO RAER3& 
St.¢« Sy = 43 JUMP OUT TO RAC)EX 
DI « LOC P63% 
DS «+ OCT#S 
COMMENT PUT IN EXPONENT SIGN SAVED IN P13% 
P1IcOI « LOC P63% 
NS «¢ LIT "H")5% 
P5¢ IF SC # " ™ THEN JUMP QUT TO RAERA}% 


t 2 wae & 


00681800 
00681900 
00682000 
00682100 
00682200 
006862300 
00682400 
00682500 
00682600 
00682700 
00682800 
00682900 
06683000 
00683100 
00683200 
00683300 
00683400 
00683500 
00683600 
00683700 
00683800 
00683900 
00684000 
00684100 
00684200 
00684300 
00684400 
00684500 
00684600 
00684700 
00684800 


00684900 


00685000 
00685100 
00685200 
00685300 
00685400 
00685500 
00685600 
00685700 
00685800 


00685900 


00686000 
00686100 
00686200 
00686300 
00686400 
00686500 
00686600 
00686700 
00686800 
00686900 
00687000 
00687100 
00687200 
00687300 
00687400 


tsa ss st st ss tt a tt a tt 


092032 
092144 
092233 
092320 
092332 
092313 
O924t2 
092524 
O925ite 
092533 
092610 
0926120 
0926214 
092642 
092730 
092730 
0927%4 


092742 


092733 
O92Rt2 
0928:3 
0928%3 
0929%] 


092984 


0929t2 
0929%3 
0930!0 
O93 qt 
O934%1 
0934%2 
0934%3 
093210 
093220 
093233 
0932%3 
093382 
093342 
093343 
093480 


093470 © 


093483 
O935%4 
O935%4 
0935it2 
093533 
093610 
093694 
O936%2 
093750 
093730 
O93at0 
093930 
O9390t4 
093980 
09392 
O94ott 
094140 


Se 


ae 


ee ee ee 


RE 


RFPART3 


RFPRTN: 


COMME 


GETNUME: § 
GRTY? 


RENDM 


4 $f & Wis @& 


SI ST + 123% 
XT! P4 © Sq3% 
ENDS 
IF NOT P THEN GO TO RERRAS COMMENT OUT ON ERRORS® 
BUFF « P3% 
P(DEL)3% 
W2 ¢P3 COMMENT EXPONENTS2 
GO TO ROONE$% 
COMMENT WE COME HERE IF A ™," IS FOUND IN FIELDS% 
PCJUNK1,CADDRS J] 2STD)3% 
COMMENT SAVE INTEGER PART IN ADDRS3% 
IF (JUNK2 © WT) S$ 0 THEN® 
BEGIN COMMENT "," WAS LAST IN FIELDS% 
IF FLG THEN GO TO RERRA3% 
COMMENT ERROR IF ONLY A "e™ WAS FOUNDS2 
W1 © 03 COMMENT INDICATE NO FRACTION PARTS% 
GO TO RDONAS® 
ENDS% 
P(O)32 
GO TO GETNUM$ COMMENT CALL GETNUM TO BUILD FRACTIONS& 
IF (Wl © JUNK2 = WT) = 0 THENS 
BEGIN COMMENT FRACTION PART IS BLANK3% 
IF FLG THEN GO TO RERRAS% 
COMMENT ERROR IF ONLY ".” IN FIELDSS 
ENDS 
COMMENT DEVELOP NUMBERS% 
JUNK ¢ JUNKL + ADORS x TENCW1I3% 
COMMENT INTEGER PART x 10®<DECIMAL PLACES> 
+ FRACTION PART3% 
IF P THEN GO TO RDONAS2 
COMMENT BRANCH ON KEY GETNUM RETURNED e% 
IF TRUE THEN FIELD EXAUSTED3% 
COMMENT WT=1 TO ACCOUNT FOR CHARACTERS 
ENDING FRACTION PART3% 
GO TO REXPS COMMENT CHECK FOR EXPONENT32 
NT SUB"PROGRAM USED BY ReTYPE3% 
COMMENT GETNUM BUILDS AN OcTAL INTEGER FROM THE BCL® 
FOUND IN THE BUFFERS& 


WT © WT 43 


Pc(1)3 COMMENT FLAG USED AT GRTNs% 
STREAM(C% 
P6e0> COMMENT RETURN CHR ENDING INTEGERs% 
P5e{D1]» COMMENT POINTER TO BCL INTEGERS% 


P4eCIF WT > 16 THEN 16 ELSE WT)2% 
COMMENT WT = FIELD WIDTHS 
P3¢BUFFI% 
Ple 023% 
BEGIN 
SI ¢ P33 
DI « P53% é 
PACIF SC «< "0" THEN JUMP OUT TO RENDM32 
DS « CHRIS 
TALLY © TALLY *1)03 % 
GO TO RCXITI& 
A DI ¢« LOC PS3% 
“DI « DIM413% 
DS « CHR} COMMENT RETURN CHARACTER ENDINGS 
INTEGER FIELDS% 


00687500 
00687600 
00687700 
00687800 


00687900 — 


00688000 
00688100 
00688200 
00688300 
00688400 


00688500. 


00688600 
00688700 
00688800 
00688900 
00689000 
00689100 
00689200 
00689300 
00689400 
00689500 
00689600 
00689700 
00689800 
00689900 
00690000 
00690100 
00690200 
00690300 
00690400 
9004690500 
00690600 
00690700 
004690800 
00490900 
00691000 
00491100 
00691200 


00691300 


00691400 
00691500 
00691600 
00691700 
00691800 
00691900 
00692000 
00692100 
00692200 
00692300 
00692400 
00692500 
00692600 
00692700 
00692800 
00692900 
00693000 
00693100 


AHH M HAHAH as a ta tt A A ts tt a tH Ht tt ttt 4 


O94ate 
094330 
O943t4 
O943Zto 
094480 
O944te 
094413 
094584 
094513 
094553 
O946t2 
094612 
O947%3 
O94RTy 
O949%4 
0949414 
095040 
095072 
O950%2 
095033 
O954%4 
0953!0 


095392 
095412 


O954te2 
O954ia 
09542 
0954%2 


0956%2. 
095642 


O957%4 
095724 
O957%4 
O95et2 
095872 
095910 
O959!0 
095920 
095980 
095944 
Q959%2 
095913 
096030 
096234 
096284 
096283 
096384 
096384 
0963%9 
096333 
096514 
0965!2 
096610 
096641 
096632 
096633 
096740 


wm he mM 


SB SIEE Mere site oes 1 


oeoeese#eeee#eee se eo oe @8@ @ e ee @ @ @ 86 


GRITNS§ 


NUMXITS 


RERRA? 


COMMENT NEXT BUFF ADDRESS#% 


P3 ¢ S13 
¢ TALLY: COMMENT RETURN NUMBER OF DIGITS? 
IN INTEGER#4 

END?4 

BUFF © P} COMMENT BUFF © P3;% 

wie P3 COMMENT Wi « P43% 

PCDEL)3 COMMENT DELETE P5322 

We « P3 COMMENT W2 ¢ P63% 

IF NOT P THEN GO TO GTO% COMMENT BRANCH ON FLAG PUT 

IN AT GRTY OR GTC3% 

STREAMCY 

P7 « PCWts uP e% 

P6 ¢ CIF P $ 8 THEN © ELSE eta. suasacNchisen 

COMMENT THE ABOVE IS "IF WT S$ 8 THEN P7eWTs P6400 
; . ELSE P7e8sP6ewTHB3% 

PS «0+» COMMENT OCTAL OF RIGHT 8 DIGITS3% 

PG «¢ Oy, COMMENT OCTAL OF WHATS LEFT3& | 

P3 « [D178 COMMENT ADDRESS OF BCL INTEGERS% 

Pl © Q)3% 
BEGINS 

Sle P33% 

Die LOC P43% 

DSe P6 OCT34 

Dle LOC PSs% 

DS « P7 OcT3% 
ENO3% 


If P 


PCDEL D3 COMMENT DELETE P3s% 
PCTENSsMUL 2 ADDs eJUNKY e STD ID3% 
COMMENT JUNK1-« P§& x 10*8 + PSs% 
PCDEL*DEL D3 COMMENT DELETE P6 & P73% 
IF CWT © WT*W1) $< 0 THEN? 
BEGIN COMMENT PASS BACK A KEY OF 1 TO% 
FLAG FIELD EXAUSTED32 
PCL*XCHIS% 
GQ TQ NUMXTTS 
ENDF% 
COMMENT FIELD NOT EXAUSTED $C LOOK AT WHAT ENDED IT; 
IF W2 > 9 THEN% 
BEGIN COMMENT MANTISSA EXAUSTED BUT NOT FIELD 
SQ RETURN A FLAG OF O3% 
PCOPXCHIS% 
GO TO NUMXIT3% 
ENDs% 
P(O)3 GO TO GRTY3 COMMENT MANTISSA NOT EXAUSTEDs% 
ScALE NUMBER LEFT UNTIL IT IS%% 
JUNKY © JUNKY x TENCwL)3% 
GO TO GTBs% 
THEN GO TO RIPRTN ELSE GO TO RFPRTN#& 


COMMENT DATA ERROR READING R FORMATS 


IF FILXel184151>41 THEN 


BEGIN PARL¢FILXENOT 333 FILXCNOT 32¢FILXCNOT 4]¢0 END 


REGIN 


IF FI 


LX,C18215]=1 THEN PCFILX#14eCOM)} PARL*©O3 FILXe*2 3 


END +. 
IF PARL = O THEN PCFILX%e£33215]279112COM) 


a he 


ELSE PCPARL»MKSs9sBLKCNTL 3% 
COMMENT IF NO PARITY ACTION LABEL PRINT “RER"2 


yee 7 ; ‘lid 


00693200 
00693300 
00693400 
00693500 
00693600 
00693700 
00693800 
00693900 
00694000 
08694100 
00694200 


00694300 © 
00694400 


00694500 
00694600 
00694700 
00694800 
00694900 
00695000 
00695100 
00695200 
00695300 
00695400 
00695500 
00695600 
00695700 
00695800 


00695900 | 


00696000 
00696100 
00696200 
00696300 
00696400 
00696500 
00696600 
00696700 
00696800 
00696900 
00697000 
00697100 
00697200 
00697300 
00697400 
00697500 
00697600 
00697700 
00697800 
00697900 
00698000 
00698100 
00698150 
00698200 
00698300 
00698400 
00698500 
00698600 
00698700 
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096730 


O9673%4 


096732 
0967%2 
096753 
0968% 4 
096823 
096910 
0969%2 
097080 
097050 
O97O 4 
097023 
O973%2 
09732 
0973%9 
097333 
O97 410 
O974%2 
097510 
097520 
O97S24 
O97510 
097620 
O9THE4 
097613 
097720 
O977 84 
O97 Bt2 
O97Bt2 
097920 
0980%3 
O9B1t4 
098424 
0984%3 
O9BOt4 
O9B4t0 
0984%0 
098453 
098584 
O985%4 
098543 
098644 
098634 
098740 
0987320 
098812 
098910 
099030 
099020 
099484 
099710 
Q997%2 
100434 
100230 
100483 
100634 


ee ™ ee . =~ ee a 
i | 
ERROR AND TERMINATE ELSE GO TO PARITY 00698800 T 100681 
: LABELS% 00698900 T 100681 
| END INPUTINT$% 06699000 T 1006%4 
7 SIZE= 1007 wORDS 
& PROCEDURE DISKSORTC 00700000 T O00otO 
| START OF REL SEGMENTS DISK ADDRESS = 90145 
: TLsT2sRELAs 00700100 T o000t0 
¢ ENDQ@sBINGOsIPFIDX»OUTPROsINPRO*OUTFeINEs 00700200 7 occootO 
: OPTOGs IPTOGsDKO,OKIe TPL sa TP2sTP3sTP4sTPSoNTs 00700300 7 d000!0 
| HIVALUsEQUALSs Re ALF As CORESIZEsDISKSIZE)3 00700400 T 000010 
| COMMENT DISK=SORT BY LeRe GUCK DATE 9/19/1965 3 00700500 t O000t0 
i VALUE OPTOGs IPTOG»NTsHIVALUS EQUALS» ReALFAs 08700600 T O00Ot0 
; |  CORESIZE*DISKSIZES : 00700700 ry 0000%0 
- oe REAL ENDQ> 00700800 T 000010 
BINGOs 00700900 T O000!0 
| IPFIOXs 00701000 tT 000010 
© OUTPROs 00701100 T o000t0 
INPRO» 00701200 rT oO000t0 
| DUTF» % POINTER TO DESC WHICH DESCRIBES OUT AREA 00701300 T Od000%0 
Se Tl» 00701400 tr o00010 
Tos 00701500 fT 000080 
| RELA» 007014600 7 00010 
¢@ INF 3 % POINTER TO DESC WHICH DESCRIBES INPUT AREA 00701700 tT O000!0 
| BOOLEAN OPTOGs % TRUE IF OUTPUT PROCEDURE 08701800 T a000!0 
IPTOG; % TRUE IF INPUT PROCEDURE 00701900 T. O000!0 
@ REAL OKO» % O1SK OUTPUT FILE 00702000 T O000%0 
| pKI3 % DISK INPUT FILE 00702100 T O00nNt0 
| NAME TPLeTP2sTP3eTP4eTP53 % SCRATCH TAPES 00702200 T 000010 
©@ REAL NT» % FOR FURTURE USE 08702300 tT 000020 
HIVALU» , 00702400 T 000080 
) EQUALSS % KEY COMPARE ROUTINE 00702500 T 000030 
@ INTEGER R3 % RECORD? <0 FOR ALGOL . 00702600 tT O000!0 
| BCOLEAN ALFA? % TRUE FOR ALPHA KEYS 00702700 T 000030 
REAL CORESIZE3 % CORE STORAGE AVAILABLE 00702800 T oO00ot0. 
©@ INTEGER NISKSIZE3 % DISK STORAGE AVAILABLE 00702900 7 O000!0 
BEGIN . 1 00703000 tT O000!0 
| LABEL GRA»RTNROsWRTBLOC*RTNDWsSasRTNDR» 00703100 T O000%0 
 ©@ IPBsIPBAsIPCeIPDs IPEs IPG» 00703200 T 0000%0 
MICeMIDsMIESRTAs 00703300 T oocotO ‘ 
STARTo LY sl Zeal X*CALL SORT sENDSORTPASS» 00703400 T O000!0 
& DKC»DKD,OKEsDKFs 00703500 T O00080 
TPAsTPBs TPC »WRAPUP* SORTDONES 00703600 T O000%0 
COMMENT GENERAL PARAMETERS} 00703700 tT on00!0 
e REAL S» % MATRIX SIZE FoR SORT PASS 00703800 T O000t0 
Me % MATRIX SIZE FOR MERGE PASS 00703900 tT 000010 
MSs % CURRENT MATRIX SIZE 00704000 T 000030 
@ STPP» % INDEX OF LAST ADDRESS IN VECTOR CV) ARRAY 00704100 T 000010 
Ds % SEGMENTS PER DISK INPUT BLOCK ; 00704200 T 000010 
oD» % SEGMENTS PER pISkK GUTPUT BLOCK 00704300 T 00000 
@ BF» % RECORDS PER DISK INPUT BLOCK 00704400 T oO000t0 
TBOs % RECORDS PER DISK OUTPUT BLOCK & TAPE BLOCKING 00704500 T 0000!0 
. IeXe¥3  % TEMPORARY STORAGE 00704600 T 000080 
@ ARRAY DATALC*»#*]3 ARRAY DATX = DATAL*]3 NAME DATN = DATA$ 00704700 tT YO000 
® 


@eee#e#e# @eee¢e880886hmUMOmUmhUMOMUCUMOHMmUCOMUCMUCUCUCOUlUCUCOlClUOMUlUCUOUlUCOlUB 


ARRAY VEeI]s NAME VN = Vi 
DEFINE VXL=FLAGCVEX41))4» VXSFLAGCVEXIJ] #45 VLEFLAGCVEIVLOW)) #3 
DEFINE VAL = FLAGCVEX+L JaPCOsRDSIECTFI)#» 
VA = FLAGCVEX JAP COsRDSIEICTFI) Hs 
XAL*= *LINF ILI *O*eRDS*chX#e 
VAL = FLAGCVEIVLOWJ&PCOsRDSIICTEI) #3 
REAL VLOWs % INDEX OF NEXT RECORD IN SEQUENCE 
ARRAY MHKE*]3 % HIGH KEY FOR MERGE PHASE 
NAME MHN&SMHKS 
BOOLEAN MOREDATAs % GOES FALSE WHEN NO MORE INPUT DATA 


FM» % TRUE ON LAST MERGE PASS 
EOF» % TRUE WHEN INPUT FILE EXAUSTED 
TMs * TRUE FOR SORT WITH BACK#UP TAPES 


MF=7T4» 2 TRUE IF MERGE ONLY 
DF=IPTOGs, % TRUE IF OUTPUT FILE IS A DISK 
DISKFULL3 % TRUE WHEN ASSIGNED DISK SPACE IS FULL 
REAL TRS  % # OF RECORDS OF DATA SAVED ON DISK 
DEFINE I0C = @20000000004>, 
POLYMERGE = PRTBASELRELA] «© PCDUPsLOD)&10634741143 
COMMENT PARAMETERS RELATED TO PROGRAMMERS FILES? 
NAME INFIL = INF % POINTER TO TOP I/0 DESC, 
NAME WAIN = IPFIoOxs % COBOL68 INFILE WORK AREA 
NAME OQUTFIL = OUTFS3 
NAME WAOQUT = T23 — % COBOL68 OUTFILE WORK AREA 
ARRAY PRFEIBE#13 % CONTAINS TAPE FILES FIB 
REAL ACs %* TRUE FOR COBOL INPUT FILE 
REAL INCOUNTs % COUNTS # OF RECORDS FROM INPUT FILE 
NUTCOUNTS % COUNTS # OF RECORDS WRITTEN ON OUTPUT FILE 
COMMENT POINTERS FOR STANDARN PROCEDURES; 
NAME MEM = 23 
ARRAY FPB = 3£%*)3 
REAL BLOCK = 5» 
ALWR = 12» 
ALRD = 13s 
COFCR = 12» 
PERFORMGEN = 43» 
CORW 5 {4s 
ALFCR = 14° 
BLKCTR = 163 
ARRAY PRTBASE = 1O0L*]} 
COMMENT PARAMETERS RELATED TO DISK OUTPUT FILES 
NAME NOTOP = OKO} % POINTER TO DISK OUTPUT I/O DESC, 
ARRAY OUTFIBE*]3 % POINTER TO FIB 
ARRAY OQUTHEADE*1]3 % POINTER TO FILE HEADER BLOCK 


% COBOL68 IN*"OUT PROCEDURES 


REAL LOSA-s % DISK ADDRESS OF CURRENT STRING TAG WORD 
ONS» 2 RUNNING COUNT OF STRINGS IN QUTPUT AREA 
ORC?» % RUNNING COUNT OF RECORDS IN STRING 
OCDAs % DISK ADDRESS OF NEXT AVAILABLE OUTPUT AREA 
ORL» * RUNNING COUNT OF NUMBER OF SEGMENTS LEFT IN 
% CURRENT ROW 
ORI» % CURRENT ROW BEING USED 
SRI» % ROW WHERE STRING STARTED 
SRSe % NUMBER OF SEGMENTS OF STRING IN ROW SRI 
NBC3 & CURRENT #-0F RECORDS IN OUTPUT BUFFER 


DEFINE ORS= QUTHEAD( 8343 
DEFINE FNUM = QUTFIBC41ef1L3811 943 
COMMENT PARAMETERS FOR DISK INPUT FILES 


ary te ve. sly 


au ie 


06704800 
00704900 
00704910 
00704920 
00704925 
00704930 
00705000 
00705400 
00705200 
00705300 
00705400 
00705500 
00705600 
00705700 
00705800 
00705900 
00706000 
00706100 
00706200 
00706300 
00706400 
00706420 
00706500 
00706520 
00706600 
00706700 
00#06800 
00706900 
00707000 
00707100 
00707110 
00707200 
00707300 
00707400 
00707500 
00707510 
00707600 
00707700 
00707800 
00707900 
00708000 
00708100 
00708200 
00708300 
00708400 
08708500 


00708600 © 


08708700 
00708800 
08708900 
00709000 
00709100 
00709200 
00709300 
00709400 
06709410 
00709500 


AAA AHA HH A tt A A et te ta tt tt tt et 


OO00FO 
0000%o 
0000%0 
O000!f0 
0000580 
000080 
‘eleteten Be) 
0000%0 
O0000t0 
000010 
0000%0 
0000!f0 
Q000t0 
0000!0 
000010 
0000t0 
000080 
O000tO 
000030 
Q0000!t0 
000080 
Q000gtO 
0000!0 
d0001%0 
0000%0 
O000f0 
000080 
000030 
000080 
d0000%0 
leleleren ue) 
eleleron ae) 
000030 
000080 
0000!0 
000030 
eLetter ae) 
0000!0 
000080 
0000%0 
Q000f0 
000080 
oxeleren au) 
o000r9 
000010 
00000 
olelelel ao) 
0000!0 


000010 


00d0t0 
000010 
000040 
0000t0 
000070 
000010 
0000t0 
000080 


iret ee eee 


ar cal 


ARRAY ITNK = OKIC*]3 & POINTER TO INPUT TANK 
ARRAY INFIBlL*]* % FOINTER TO FYB 
INHEADE*1]3 &% POINTER TO FILE HEADER BLOCK 
ARRAY BASEL* 1» % POINTER TO CONTROL INFO IN DATA 
ITOPL*Ts % POINTER TQ TOP 1/70 DESC 
BUFFE*] 3 % 1/0 DESCRIPTOR 
REAL LISAs % HOLDS TAG ADDRESS FOR NEXT MERGE PASS 
DEFINE IBC = BASELOI#:s %* RECORDS LEFT IN BLOCK 
IRL = BASELLI]#» % RECORDS LEFT IN STRING 
ISL = BASEL2]#> ¥ BLOCKS LEFT IN ROW 
IDA * BASEL-3)] 4s % DISK ADDRESS OF NEXT BLOCK 
IRC = BASEL4)#, % CURRENT ROW QF THIS STRING 
FOR = IF AC THEN COFCR FLSE ALFCR#} 


COMMENT PARAMETERS RELATED TO MERGE TAPES3 
INTEGER CTRL 4 % CURRENT CONTROL TAPE 
INTEGER COT; CURRENT QUTPUT TAPE 


a 
NAME COTODS %# LOC OF 1/70 D OF CURRENT OUTPUT TAPE 
NAME TP3 % BASE POINTER OF MERGE TAPES 
ARRAY TS*]3 % ARRAYS FOR CONTROLLING DISTRIBUTION 
ARRAY TCewd]; 4 PATTERNS ON MERGE TAPES 
ARRAY TNC*}3 
NAME TSNSTS$ NAME TCNSTC3 NAME TNN&TN3 
REAL TM{SCORESIZES % TAPES * 4 
NAME clyoods % LOC OF 170 0 FOR CURRENT INPUT TAPE 


Rik ek ee aA RK eR ER KK REE EEE 


SUBROUTINE WAIT? COMMENT WAIT FOR I/0 COMPLETE USING ADRRESS 


ON TOP OF STACK; 


$ SET OMIT = NOTCTIMESHARING) 


BEGIN IF NOT CPCXCHeDUP2LOD) 2.01981) THEN PCTOCs 362COMsDEL D3 


$ POP OMIT 


$ SET OMIT = 


SUBROUTINE RELEASETAPE3 


RTA’ 


SUBROUTINE TAPEWRITES 


TIMESHARING 
IF NOT PCLODsOUP),£221] THEN 9% CHECK FOR ERRORS 
IF NOT CPCDUPsDUP),C27813 AND PCXCH),£721)) THEN 
PcisXCHe MEMEP INX NOT 1] INX PC2eLNGeXCH)» 722 17% COM)3 
PCDEL)?. END WAITS 
Fok tok aI eo MM tok iok kk tote ke to tok bo % 
% CALLS MCP: TO WRITE OUT BUFFERS 
BEGIN 
PRFIBL11] « TBO 
PC@OIODLO] «¢ FLAGCPRFIBL16])sCOIODsPRL»DEL 3 
P(COITOD)s WAIT; 
IF. €*¥COI00),€2731) THEN % REEL SWITCH 
BEGIN 
PCMKSsO0s0e(COLODENOT 23) 56eFCR)3 
gQ TO RTA; 
END; 
COLTOpCO} © 41 INX FLAGCPRFIBEC 16] © NFLAGC¢*cOl0D) 23 
END RELEASETAPES 
% BLOCKS QUTPUT TAPES 
BEGIN 
PRFIR « *«[CQIOOCNOT 2333 
PRFIB[L9] © PRFIBE9] + 13 
IF CPRFIBE11) © PRFIB[11] = 1) > 0 THEN 
cOIODCO] « R JINX *COIOD 
ELSE 
BEGIN % TIME FOR RELEASE 
PCOs,PRFIBC16] INX MEMsSTD)3 


% RECORD COUNTER + 1 
% BLOCK COUNTER 


% ZERO CONTROL WORD IN BUFF(2) 


00709600 
00709700 
00709800 
00709900 
00710000 
00710100 
00710200 
00710300 
00710400 
00710500 
00710600 
00710700 
00710800 
00710900 
00711000 
00711100 
00711200 
00711300 
00711400 
00711500 
00711600 
00711700 
00711800 
00711900 
00742000 
00712100 
00712200 
00712250 
00712252 
00712253 
00712299 
08712340 
00712350 
00712360 
00712400 
00712500 
00712600 
00712700 
00712800 
00712900 


00713000. 


00713100 
00713200 
00713300 
00713400 
00713500 
00713600 
00743700 
00713800 
00713900 
00714000 
00714100 
00714200 
00714300 
00714400 
00714500 
00714600 


a sa st ss a se ss 


000010 
o00nt0 
000080 
oo0080 
000070 
O0000f0 
ooagnrO 
0000!0 
0000!0 
O0008O 
00001%0 
000080 
000010 
O000tO 
O000!f0 
0000%0 
oleleten ze) 
000010 
000010 
000080 
000020 
0000%0 
000080 
000020 
000010 
000080 
O00 110 
000170 
000410 
000410 
eReler a ze) 
000410 
000584 
000R!0 
O012t4 
001440 
0014140 
O0014!0 
0014:0 
001541 
0017%2 
oo1gto 
002010 
002072 
002424 
002423 
002423 
002733 
002880 
002810 
002810 
002913 
00341:3 
0034t4 
003530 
O036%4 
003633 


eocecececeoecececeec eee eee ee eo 0 8 


RELEASETAPES 
END3 
END TAPEWRITES 
SUBROUTINE WRITESTOPPERS 
BEGIN % WRITES END GF STRING OR DUMMY STRINGS 
PRFIB « *{LCOIODLNOT 2133 
X © PRFIBCIJACTBOMPRFIBL119901883321578C"HS9I0 329381593 
POXsPRFIBL16] INX MEMseSTD)3 
TNECOT) © TNECOT] + 43 % COUNT UP STRINGS FOR THIS TAPE 
RELEASETAPES3 
PRFIB [9] « 0 3 
END WRITESTOPPERS 
ETCETERA 2d td tea 
SUBROUTINE OPENOUT3 % OPENS PROGRAMMERS OUTPUT TAPE 
BEGIN 
IF OPTOG THEN 
BEGIN PCMKSsLOUTFILI] oReletotsBLock 3 


% ZERO QUT STRING CTR 


Ik AC THEN 
BEGIN BINGO « QUTPRO# ENDQ ¢« O03 
IF ACef462411 THEN % cOBOL68 


BEGIN PCMKSsBINGOs OsPERFORMGEN)3 
COIOD «+ (WAgUT]; 
WADUT © PC#¥LOUTFIL3,0sCDC)3 
END ELSE 
PCMKSsBINGOsCPRIBASELCP COUP) I] ]*#LODeIPFIDXsCOC)3 
END END ELSE 
REGIN DF © FALSES PRFIB ¢ OUTFILENOT 233 
PRFIBL13]«£27%1) « O3 
IF AC TREN 
BEGIN 
PCMKSsCOUTFILENOT 2))53sCOFCR)3 
oF « PRFEIBE4).(£8:4] = 43 
IF ACe»E4621] THEN % COBOL68 
BEGIN cOIOn « CwAoUTI]} 
WAOUT © PCPRFIBC20).,0FFI]-DUPsD0IB Or LODs0» 
COCeDELsDIB OstLaon)s 
ENDS 
END 
ELSE BEGIN PCLOUTFILIJ »OsllecOMeDELsDEL ); 
PCMKSe1eOr2O0e(*RISCOUTFILIsALWReDEL DF END; 
END 
END OPENOUTS 
Shee ei Rai kk IRR Tok dake aio tote ee % 
SUBROUTINE SETUPTAPES; % INITIALIZES TAPES FOR DISTRIBUTION PASS 
BEGIN 
FOR IT « O STEP 1 UNTIL NT 0O TSECI] © TCLI] © TNE + O35 
CTRL « O§ TCf1] «© COT « 13 TML © NT#43 
TP © CCNOT 5) INX CNTI)9 X © TBOxRe13 
FOR I « 4 STEP 4 UNTIL NT DO 
BEGIN 
cOIOD ¢ TPCIIJ3 PRFIB © *fCOIODLNOT 2313 
PRFIBCIBI] © K@XC3P33815SISXCASt 3315S IRCIALICAP47eid; 
PRFIBC13).C27!1] « 03 % SET TO OUTPUT 
PRFIBC4],.07313 « CCAC AND 3). 123 #COBOL61 TAPE SORT FLG 
PRFIBL9] © O3 PRFIBLi4] « TBOS 
TF CY*PRFIBC41,£12412)]) < 1023 THEN 
PRFIBL4] ¢ PRFIBLC4I&CCY@1LIXETRENGICI3837211)81012°4781)3 


00714700 
00714800 
00714900 
00715000 
06715100 
00715200 
00715300 
00715400 
00715500 
00715600 
00715610 
00715700 
00715800 
00715900 
00716000 


00716100 


00716200 
00716300 
00716400 
00716430 
00716440 
00716445 
00716450 
00716460 
00716500 
00716600 
00716700 
00716800 
00716900 
00717000 
00717100 
00717200 
00717240 


00717250 © 


00717260 
00717270 


00717280 


00717300 
00717400 
00747500 
00717600 
00717700 
00717800 
00717900 
00718000 
00718100 


00748200 


00718300 
00718400 


00718500 — 


00718600 
00718700 
00718800 
00718900 
00719000 
00719100 
00719200 


ms ss a ss ss ts td A Ht ts a st tt st Ht 


OO3ar4 
003930 
003910 
003981 
004080 
004080 
004433 
004530 
0046 '2 
00482 
005030 
OOSi44 
005340 
005310 
0053320 
0053:%0 
O0S3!4 
O05sto 
0055#3 
Oo5saryt 
005940 
O006Q0t2 
0061%14 
006233 
006233 
006540 
006810 
006At0 
0070!2 
007083 
007 434 
007310 
0075830 
007533 
007750 
OQ7924 
0080:3 
0080?3 
00803 
0082%3 
0085830 
0085!#0 
0085! 4 
0088t1 
008650 
008610 
0092%2 
009684 
0099%2 
010130 
010140 
010484 
0108%2 
011140 
O1l14ate2 
O1L720 
011970 


IF I ¥ NT THEN PCCECCOITODIJs0%112COM*DEL*DEL) 

ELSE PRFIBC18) « ABSCPRFIBC181)3 
IF 1 #4 NT THEN BEGIN PCCOJOD)S WAITS ENDS 
IF I 1 THEN COIOD[O] © 41 INX *COIODS 


it 


END# 
COLON «¢ TPeCOT] 3 
END SETUPTAPES3 


Ge OR a aa IEE 


SUBROUTINE GETROWS % GETS DISK SPACE FOR NEXT ROW IN OUTPUT AREA 


BEGIN ORL © ORS; 


IF CORI © ORI + 1) 2 30 THEN % DISK SCRATCH FILE IS FULL 


BEGIN 

GRA? IF NT < 3 THEN PC1*f£DOTOPCNOT 2)128417sCOM)3 
IF NOT TM THEN SETUPTAPES; 
TM © DISKFULL © TRUE; 


END 
ELSE 
IF ¢oCDA * QUTHEADEORI]) = 0 THEN & GET DISK SPACE 
BEGIN 


PCFPBCFNUM+3]s¢FPBCFNUM]sFPBCFNUM+1)20RI1» 
sOUTHEADsLODs4o lie COMsDEL»DELsDELsDELsDEL»DEL D3 


IF COCDA ¢ OUTHEADCORI]) = 0 THEN GO TO GRA# % NO DISK 


END 
END GETROWSs 
SUBROUTINE FORGETDISK3 % RETURNS pISkK NO LONGER NEEDED 
BEGIN 
PRFIB « PCXCH)S IT ¢« 93 
WHILE CIeI+1) £ 29 DO IF PRFIBEI] # 0 
THEN PCT aaPREIBslLODse 24s COMeOFEL se DEL)3 
END FORGETDISK3 
BX XXX XXK XXX XXX KK XXX XX XXX KXXKX XK XKAKK KH 
SUBROUTINE INROWCHK3 
BEGIN 
IF CISL « ISL = 41) $ QO THEN 
REGIN 
TSL.¢ (ORS DIV Of > x COD DIV O23 & BLOCKS IN ROW 
TF INHEADECCIRG «© IRC + CIRC < 29))] # O 
THEN TOA ¢ INHEADCIRC); 
END 
ELSE IDA © IDA + D3 
END: 
Be IKI TR NRE IO IO ETE RIE AKE 
SUBROUTINE INREAD$ COMMENT FOINT INPUT BUFFER AT NEXT RECORD? 
BEGIN 
IF EOF THEN GO TQ RTNROD; 
INCOUNT © INCOUNT + 43 
If TPTOG THEN... 
BEGIN IF. AC THEN 
BEGIN COMMENT CALL INPUT PROCEDURE; 
IF ACelC4631) THEN POCMKSs+BINGOsOsPERFORMGEN) ELSE 
POCMKSsBINGOsCPRTIBASECPCOUPIJ]-LODsIPFIOX»COC)3 
FOF « ENDQ: 
END ELSE EQF © POCMKSs*LINF ELI Os INPRO} 
ENA 
ELSE 
BEGIN 


IF AC THEN EQF ¢ PCMKS»ReLINFILJs0sCORW) % COBOL 


% OPEN TAPES 


00719300 
00719400 


00719500 © 


00719600 
00719700 
00719800 
00719900 
00720000 
00720100 
00720200 
00720300 
00720400 
00720500 
00720600 


00720700 - 


00720800 
00720900 
00721000 
00721100 
00721110 
00721120 


00721200 © 


00721300 
00721400 


00721500 © 


00721600 


00721700 


00721800 
00721900 


00722000 © 


00722100 
00722200 
00722300 
00722400 
00722500 
00722600 
00722700 


00722800 © 


00722900 
00723000 
00723100 
00723200 
00723300 
00723400 
00723500 
00723600 


00723700. 


00723800 
00723900 
00723980 
00724000 
00724100 
00724200 
00724300 
00724400 
00724500 
00724600 


Haan tt te tt 9 4 tt tt A Ht A HH HH 


012420 
012633 
012980 
013230 
013423 
013780 
O13ate 
013823 
013833 
013920 
0140:0 
014423 
014924 
014512 
014810 
01494 
014984 
O149%4 
O151%4 
015133 
015623 
015932 
016432 
016432 
016433 
016210 
016230 
01463%2 
016681 
0169%2 
016933 
016933 
017080 
017010 
017232 
017380 
017630 
017930 
018453 
0148123 


018441. 


0184%o 
O184are 
0185!0 
0185%0 
018610 
O187914 
O187%2 
01881 
0188%3 
019¢%0 
019344 
019480 
019681 
019634 
019424 
019633 


@oeeeeee«#ee @eee86¢@8@0@6@@6hlhwemhlUcthlUcPlhlUrlU 


ELSE 
REGIN COMMENT ALGOL READ? 
PCMKSsQOrOelINFILIsAL RO) % READ FILE 
EQF ¢ PCMKS#Os3sCTINFILIJsALRO) < 03 & WAIT FOR I/O 
ENDS 
END; 
RTNRD? IF EOF THEN VEVLOW] © NFLAGCeCDATXESIID8 
$018233815181052478123 
END INREAD3 
‘ Bitte te eI ERK KEKE KE EEK ERY 
SUBROUTINE DISKWRITE$ COMMENT BLOCKS OUTPUT BUFFER AND WRITES IT3 
BEGIN 
IF NOT PCXCH) THEN GO TO WRIBLOCS %& WRITE BLOCK IF Tos = FALSE 
ORC © ORC+13 & RECORD COUNT 413 
IF (OBC + OBCw1) = O THEN % IF BUFFER EXAUSTED 
BEGIN COMMENT BUFFER IS FULL SOQ WRITE IT OUT3 
WRTBLOC!: apc « TBO: ; 
STREAM(P1¢OCDA, 
P2¢FLAGCOUTFIBE161))3 % DISK ADDRESS To BUFFER 
BEGIN ST*LOC Pi3; DS © B DEC ENDS 
PCL INX FLAGCOUTFIBL16]) »(DOTOPI»sOUPsOUTFIBL16] »SFBeXCHe 
STDO*ePRLe DEL Os % CALL MCP TO REFILL BUFFER 
IF CORL¢ORL"00) 2 OD THEN 
OCDA ©O0CDA+QD 
ELSE 
GETROWS %&% GET SPACE AND ADDRESS OF NEXT ROW 
PCCDOTOPI)% WAITS % WAIT FOR I/O COMPLETE 
COMMENT ON I/O COMPLETE SAVE ORGINIAL I/O DESC. IN FIB3 
QUTFIBC16).033%15) ¢ CNOT 0) INX NFLAGC*CDOOTOPI)3 
END 


ELSE 
DOTOPfO] *« R INX *EMOTOPI3 % POINT AT NEXT RECORD 
RTNOW? 
END DNISKWRITES 
TET ECCLESELIC CLOSE PELL CCE LATE 
SUBROUTINE DISTs & CALCULATES DISTRIBUTION PATTERNS FOR 
BEGIN 4 MERGE TAPES 
CTRL © CCTRL MOD TM1) + 43 
FOR I ¢€ 4 STEP 1 UNTIL TMy DO 
BEGIN TSCI] « Terr) 
IF 1 4 CTRL THEN TCCI] © TCELIT + TCLCTRLI3 
END3 
END DIST; 
SUBROUTINE SELECT; 
BEGIN 
X ¢« COTS & SAVE INDEX OF PRIOR TAPE 
SAt cot « COT + 13 
IF CoT = NT THEN 
BEGIN COT © 13 DISTS END; 
IF COT = CTRL THEN GO TQ Sa; 
PRFIB « COIODENOT 213 
COIODLO] © FLAGCPRFIBL161)3 
IF COT #4 X THEN PC. CONOT 2) INX TPECOTI]) »CCOIODCNOT 21,» 
20eCOMsDELsDEL D3 
COTOD « TPrcoti 3 
cCOrTIOD£O] «© f INX *cOrTODp; 
END SELECT? 


% SELECTS a MERGE TAPE TO WRITE A STRING ON 


% . 8 - a 


00724700 
00724800 
00724900 
00725000 
00725100 
00725200 
00725300 
00725400 
00725500 


00725600 | 


00725700 
00725800 
00725900 
00726000 
00726100 
00726200 
00726300 
00726400 
00726500 
00726600 
00726700 
00726800 
00726900 
00727000 
00727100 
00727200 
00727300 
00727400 
00727500 
00727600 
00727700 
00727800 
00727900 
00728000 
00728100 
00728200 
00728300 
00728400 
00728500 
00728600 


00728700 


00728800 
00728900 
00729000 
00729100 
00729200 
00729300 
00729400 


00729500 


00729600 
00729700 
00729800 
00729900 
00730000 
00730100 
00730200 
00730300 
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049833 
O199t4 
0199%3 
020110 
O203%4 
020341 
0203314 
020542 
020782 
020753 
020733 
020810 


020810 


020833 
0210:0 
021123 
O212t4 
O213%0 
021332 
O214i2 
0215%4 
021810 
021930 
022033 
022112 
Q222%2 
022410 
022530 
022510 
0228914 
022844 
O22a%4 
O230%4 
023054 
0230%2 
023082 
023110 
023130 
023243 
0234%0 
0235%2 
02390 
024424 
024412 
024210 
O242t0 
024233 
02440 
O244t3 
O24710 
O24ni4 
0250t0 
025131 
025584 
025644 
025733 
025914 


BEGIN 


Kok kkk ke kk a aR Fk kk kOe ke a eS 


SUBROUTINE WRITETAG; 


IF O08¢ # TBO THEN 
BEGIN PCO)4 DISKWRITES END} 
BUFF ¢« FLAGCQUTFIB(16)) 


&3008?38310) 
Rif27e4ei6); 


STREAM(P1*LOSAsP2¢ (CBUFFCOII)3 
BEGIN SI «LOC P13 0S ¢ 8 DEC END; 
IF NOT DISKFULL THEN 

IF ORL < OD + 1 THEN GETROW; 


BUFFC1] ¢ 
BUFEC2] «¢ 
BUFFC3) «¢ 


BUFFCA] ¢ 
AND. NOT 


SRI3 
ORC3 
SRS3 


LOSA © IF MOREDATA 
DISKFULL THEN QCDA ELSE 0 


OCOA « OCDA +. 43 

DOTOPLO] « PC.BUFFsLOD), 
Pct INX FLAGCOUTFIBL16])»COOTOPIJ»PRL DEL} 
ONS © ONS+13 


SRT « ORT3 


SRS ¢ CORL+ORL 193 


ORC -¢ O03 


PCLDOTOPI)3 WAIT; 
QUTFIBC16] © (NOT 0) INX NFLAGC*EDOTOP])3 &% SAVE IOD IN FIB 


END WRITETAGs 


BEGIN 


% 


a 
% 
% 
% 
% 
& 
% 


% 
% 
% 
a 
% 
% 
; 


WRITE FRONT OF STRING TAGs 
DEVELOP ADDRESS OF NEXT 
STRING 

WRITE QUT BUFFER 


SET TOP I7O DESCRIPTOR TO 
30 WORDs 1 SEGMENT WRITE, 
DISK ADDRESS OF TAG TO 
BUFFERLOJ, 


GET SPACE FOR NEXT ROW 
ROW WHERE STRING STSRTED 
RECORDS/STRING, 

AMOUNT QF STRING IN 

ROW WHERE STRING STARTED, 
ADDRESS OF NEXT TAG, 

% OR EQF FLAG 


: SKIP OVER TAG ADORESS, 


% 
% 
% 
a 
% 


% WRITE TAG ON DISK 


STRING COUNTER + 1, 

SAVE WHERE NEXT ROW STARTS 
AMOUNT OF ROW LEFT 
RECORDS/STRING ¢ OQ. 

WAIT FOR I/Q COMPLETE 


CER CRELELELCLEPAL LL LET R CLEA 


SUBROUTINE DISKREADS 


BASE « *[DATX£VLOWI]3 
IF IRL < 0 THEN 

BEGIN VEVLOW] «© NFLAGC(MHK)&MS % IN THIS STRING HAVE BEEN 
C18:33%1573 


ENDS 


IRL*IRL «13 


GQ TO RTNDRs 


IF CIBC*©IBC™1)40 THEN BEGIN 
VEvLOW] « R INX VEVLOWI3 
GO TO RTNDR END? 


Ipc ¢ BF; 


Y ¢ PéeVvLOWwsDUPs ADD) 
STREAMCP1¢1DAsP2ex(ITAPLYII]}3 
BEGIN SI ¢ Loc PisDS«8 DEC END; 
PCLITOPLYIJ]*0UP*LOD>xCHePRL»DEL 23 


INROWCHK3 


PCCITOPLY]])3 WAIT; 
COMMENT POINT 170 D PAST. DISK ADDRESS} 
VEVLOW] + VEVLOWI8C1 INX C#LITOPCYII2I£3383381513 


BEGIN & 


RTNORS END DISK READ; 


% 
% 
& 
ys 


’ 
% 
% 
% 
% 


% 
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READS DISK ON DISK=TO" 
DISK MERGE PASSES, 
POINT AT CURRENT STRING 
IF IRL $ OsALL RECORDS 


READ SO POINT CORRESPOQN@ 
ING V AT HK1e 

RECORDS LEFT ™ 1. 

IF BUFFER NOT EXAUSTED 
THEN INDEX TO NEXT RECORD 


BLOCK COUNTER + BLOCKING 


FACTOR. 
CONVERT DISK ADDRESS 
INTO BUFFERe 
READ NEXT BLOCK 
GET ADDRESS OF NEXT BLOCK 
WAIT FOR 1/70 COMPLETE, 


SOP ETC OCSLCS CCE VSS COLCA L CSCS CCL TST TL 


SUBROUTINE WRITEQUT; 


SELECTS FILE TO BE WRITTEN DURING MERGE 


IF NOT FM THEN 
IF TM THEN TAPEWRITE ELSE BEGIN PC1)3 DISKWRITE END 


ELSE 


00730400 
00730500 
00730600 
00730700 
00730800 
08730900 
00731000 
00731100 
00731200 
00731300 
00731400 
00731500 
00731600 
00731700 
00731800 
00731900 
00732000 
00732100 
06732200 
00732300 
00732400 
00732500 
00732600 
00732700 
08732800 
00732900 
00733000 
00733100 
00733200 
00733300 
00733400 
00733500 
00733600 
00733700 
00733800 
00733900 
00734000 
00734100 
00734200 
00734300 
00734400 
00734500 
00734600 
00734700 
00734800 
00734900 
00735000 
00735100 
00735400 
00735500 
08735600 
00735700 
00735800 
06735900 
00736000 
00736100 
00736200 
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025912 
025912 
026010 
026040 
026083 
026310 
02631 
026410 
026611 
026742 
026831 
026823 
027210 
O273%4 
027482 
027513 
027533 
027631 
027983 
028110 
028210 
028434 


O28512 


O286%t 
028810 
028833 
029010 
O29at2 
029233 
029213 
029340 
029310 
O294%4 
0295%4 
029730 
029870 
029882 
0298%2 
0300!%2 
0303%¢a 
0305%2 
030630 
O307%4 
0308! 
O310%4 
O3144°0 
031320 
O314t0 
03146!0 
034630 
03149!0 
O319t4 
O319%4 
032010 
032010 
032032 
032520 
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SUBROUTINE SUBMERGES 
BEGIN 
FOR T ¢« QO STEP 12 UNTIL (MS"1) 00 
BEGIN 


BEGIN COMMENT CALL OUTPUT PROCEDURE OR WRITE INTRINSIC} 
OUTCOUNT © OUTCOUNT +13 
IF OPTOG THEN 
BEGIN 
IF AC THEN 
BEGIN END@ « O3 IF AC.f46!1) THEN 
PCMKS»BINGOsOsPERFORMGEN ) % COBOL68 
ELSE PCMKSsBINGOsCPRIBASELCPCDUP) J ]-/LODsIPFIDX»cOCc) 
END ELSE PCMKSsOs*COUTFILI] 202 0UTPROD3 
END 
ELSE 
BEGIN COMMENT OUTPUT FILE RATHER THAN OUTPUT PROCEDURES 
IF AC THEN PCMKSsOsdoteOeRe (QUTFIL Isis CORW) 
ELSE BEGIN 
PC(MKSelsOe0eRelOUTFILI »ALWR)S 
PCMKSs19020eCeR)sCOUTFILIsZALWReDELI$ ENDS 
IF DF THEN IF P THEN PCL,COUTFILENOT 231832175 COM)3 
END; 


ENO$ 
END WRITEQUTS 


Ee ee KH RII a a a eS 


IF FOF THEN BEGIN 
VEIT] « NFLAGCMHKI&MS£18%3381513 
PCOs*CDATXEC TI] ]e4*COCeSTD)3 % IRL © 0 


END 
ELSE 
BEGIN 
BASE © *fDATXLT]]3 % POINT AT CONTROL INFO 
yY « PCIsDUPsADD)3 2 Y « 2xi 


BUFF © *{ITOPCYI]3 
COMMENT SET 1/0 0 = 30 WORD» 14 SEGMENT READ; 
ITOPCY] © CH¥CITOPLY11)&830¢8238210] 810 27242°6)3 


COMMENT PUT ADDRESS oF STRING TAG WORD IN BUFFER(CQ)3 


STREAMCPL©C IDACL ISA) sP2exeCITOPLYII)3 
BEGIN SI « LOC Pi3 0S « 8 DEC END; 
PC.sBUFFsL OD» CITOPLYJ]*¢PRL-DELI4 % READ TAG TO BUFFER 2 


COMMENT READ 1ST DATA RECORD TO BUFFER #425 TAG GETS 


ROTATED TO BUFFER #13 
PCCITOPLYJI)3 WAITS % WATT FOR 1/0 COMPLETE 


STREAMCP1¢©( IDACIOA +1)-P2¢eCTTOPCYII)3 % BLOCK #1 ADDRESS 


BEGIN SI «+ LOC Pis DS ¢ 8&8 DEC END}; 
PC*¥CITOPEYIJJs£ITOPCYJI]sPRL*DELI3 % READ BLOCK #4 
PCCITOPLYI]I])3 WAITS % WAIT FOR I/O ON READING TAG 
BUFF « #fITOPCY1]3 
IBC © BF; 

IRC ¢ BUFFC1]3 

IRL «© BUFFCL2] = 13 

ISL ¢ (BUFFC3] DIV QD) x (OD DIV Dds 

IF (LISA © BUFFE4]) $ 0 THEN EOF ¢« TRUES 
INROWCHK3 % GET ADDRESS OF BLOCK #2 
STREAMCPLEIDA sP2e(BUFF(O]1)3 

BEGIN SIeLoc Pis DS « 8 DEC END} 
PC,BUFFesLODselCITOPLYJJ>PRL»sDEL)3 % READ BLOCK #2 


% SETS UP DISK INPUT TO START A MERGE PASS 


00736300 
00736400 
00736500 
00736600 
00736700 


00736800 


00736850 
00736900 
00737000 
00737490 
00737200 
00737300 
00737400 
00737500 
00737600 
00737700 


00737800 


00737900 


06738000 


00738100 
00736200 
00738300 
00738400 
00738500 
00738600 
00738700 
00738800 
00738900 
00739000 
00739100 
00739200 
00739300 
00739400 
00739500 
00739600 
00739700 
00739800 
00739900 
00740000 
00740100 
00740200 
00740300 
00740400 
00740500 
00740600 
00740700 
00740800 
00740900 
00741000 
00741100 
00741200 


00741300 — 
00741400 © 


00741500 
00741600 
00741700 


00741800 
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032510 


0325:%2 
0326!3 
03270 
032732 
032733 
0330:°0 
033132 
033323 
0335%3 
033533 
033543 
0336314 
033980 
033983 
O344%2 
0343%3 
034720 
034780 
0347!0 
O347%4 
O347i4 
034810 
03481%0 
O35aty 
0352314 
035380 
O0355%¢ 
035730 
0357?0 


035730 


0357!2 
0358%3 
036030 
O36¢%4 
036484 
036520 
036510 
0367%2 
0368%4 
037030 
03700 
O370%0 
037210 
0378534 
0376!0 
037810 
0380t0 
0381314 
03822 
0384%0 
038410 
0389%0 
039433 
0393380 
0394t2 
0395%4 


INROWCHK3 % GET ADDRESS OF BLOCK #3 
PCCITOPLYIJ)$ WAIT# &% WATT FOR 1/0 COMPLETE ON BLOCK #1 
VET] © NFLAGCC1 INX *CITOPLYII2&1£18233%151)3 
ENfs 
END3 
END SUBMERGES 
CSCS CELI SS ST SS Se CSTE CCE CELL TT. | 


SUBROUTINE FIRSTSELECTS % INITIAL SELECTION OF LOW RECORD 


BEGIN 

X © OF TeMS*13 

00 BEGIN 

Tel+t;3 

VEIT] © VEX+CCIF ALFA THEN PCOsMKSs Oe VX1eVXsEQUALS) 

ELSE IF AC THEN PCOsMKS»VX1eVXsEQUALS) 
ELSE PCMKSsVA1s0sVAs0sEQUALS)) AND TRUED]3 

END UNTIL ¢X¢X+#2) = STPP3 VLOW ¢ VOE1],01821513 

END FIRSTSELECT 


SUBROUTINE LOWSELECTS 


BEGIN 
X « VLOW AND 40223 
DQ BEGIN 
I «¢ MS + Xe03829)3 % J~ J MS + €x7/2) 
VEIT] © VEX+CCIF ALFA THEN PCO»MKSe Oe VX1eVXs EQUALS) 
ELSE IF AC THEN PCOsMKSsVX1eVXs EQUALS) 
FLSE POMKS*VALsO»VAsOsEQUALS)) AND TRUEDI3 
xX « IT AND 10223 
ENO UNTIL I = STPPS VLOW © vEI).£1881533 
END LOWSELECT; 
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SUBROUTINE SORTIT$ % DEVELOPS STRINGS FROM INPUT TAPE 


BEGIN 
COMMENT USE SPECIAL SORT COMMUNICATE TO GET STORAGE FOR 
DATA AND VECTOR ARRAYS3 
PCReSt+12fDATN] 224 eCOMs DEL *DEL»pEL )3 
PCMKSsfVN]2C2xSeisotets is BLOCK); 
STPP © PCMS¢S »sDUPs ADD» 2°SUBD3 
COMMENT CALL HIVALU TO SET UP HK ROW OF DATA3 
STREAMCA**(DATXES]],B¢R™12CeP(HUP),[ 3616333 
BEGIN DI©AsSSIeLOC CEDSeWDS; 
STe«AsC(05¢32 WDS3DS¢32 WOS)3DS¢B WDS3 


ENDS 


PCMKS»*fDATX£S]])% IF NOT AC THEN PCO*RDSsCFX20)3 PCHIVALU)3 


COMMENT INITIAL FILL OF DATA ARRAY FROM INPUT SOURCE; 


IF TR 2 0 THEN 
BEGIN COMMENT NOT 4 ST CALL ON SORT SO FILL DATA FROM DISK; 
QUTFIBLC137.C27:1) ¢ 43 % SET FILE TO READ 
PCCDOTOPI],0511»COM*DEL»DEL)S % OPEN DISK FILE 
PCEDOTOPI)3 WAITS  % SLEEP UNTIL FILE IS OPENED 
QCDA © QUTHEADC10] + PCOD,DUP+ ADD)3 
tr « 03 ORL © ORSs OBC + TRO; 
WHILE I < S$ Do 
BEGIN | 
IF I < TR THEN 
BEGINS COMMENT MOVE RECORD TO DATA3 
STREAMCPL¢*(DOTOPJ] sP2eReP3¢(P(DUP)).CI686]» 
PAee[MATXEIII)3 
BEGIN SIleP1sP3(D0S¢32 WOS3DS¢32 WDS)3 DS*P2 WDS END3 


00741900 © 


00742000 
007421400 
00742200 
00742300 
00742400 
00742500 
00742600 
00742700 
00742800 
00742900 
00743000 
00743100 
00743200 
00743300 
00743400 
00743500 
00743600 
00743700 
06743800 
00743900 
00744000 
00744100 
00744200 
00744300 
00744400 
00744500 
00744600 
00744700 
00744800 
00744900 
06745000 
00745400 
00745200 
06745300 
00745400 
00745500 
00745600 
00745700 
00745800 
00745900 
00746000 
00746100 
00746200 
00746300 
00746400 


00746500 


00746600 
00746700 
00746800 
00746900 
00747000 
00747100 
00747200 
00747300 
00747400 
00747500 
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039770 
0398°0 
040ato 
040310 
0403%0 
040340 
040343 
040383 
040480 
040420 
0406%0 
040610 
O40784 
O414%2 
O415%2 
042283 
042683 
042720 
042730 
042730 
O4aaty 
O42aty 
043010 
O43at4 
O43B84 
0448510 
044633 
044933 
045040 
045020 
045010 
045030 
045040 
045030 
O0452a%0 
O455%4 
0437322 
O457ia 
046084 
0461430 
046330 
O46344 
046633 
046623 
0467142 
0468:0 
O470%2 
047210 
0473%0 
047530 
047742 
047823 
047833 
O479%2 
048020 
04813 
048933 
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IPB: 


- 


eee OISKWRITES 


VEIJ © NFLAGCC*#OCDATX£E13])9810182332151)93 
END 
ELSE VEL] © NFLAGCC*EDATXES1}]98S6182332151781655247241)3 
I + [+13 
ENDS 


PCMKSsO0s0sCDOTOPCNOT 2] ]e4sFCR)3 % REWIND 
NUTFIBLi3],£27%213] © OF % SET TO OUTPUT 
PCCNOTOP] e911 +COMsDEL sDEL)3 % OPEN FILE OUTPUT 
PCCDOTOPL19325 WAITS 
GO TO IPB} 

END FILL OF MATA FROM DISK? 

IF IPTOG OR AC THEN BEGIN INREADS INCOUNT « 0 ENDS 

FOR VLOW « O STEP 1 UNTIL S*1 90 

BEGIN COMMENT FILL DATA FROM INPUT FILES 

IF VLOW # O THEN INREAD3 % POINT AT NEXT RECORD 

IF NOT EOF THEN 

BEGIN} COMMENT MOVE RECORD FROM FROM BUFFER TO DATACVLOW?0]3 
STREAMC PLE *([CIIODNJ »P2eRsP3+PC DUP), £3686)» 

P4e *f€DATXEVLOWII)3 

BEGIN SI ¢ P13 P3COS©32WDSsDS¢32WNS)SDSeP2 WOS ENDS 
VEVLOW] © NFLAGCCeCDATXCVLOW]) 8VLOWL18233215])3 

END3 

END INITIAL FILL LOOP; 

ORI © 103 GETROW;3 

IF DISKFULL THEN PC1s,EDOTOPEINOT 23)981917%2COM)3 

OCDA © CLOSA ¢ QUTHEADCORII) + 13 

SRS«ORL©ORS*13 SRIeENRIG ONSeORCeOsOBCeTBO} 


IPBAS FIRSTSELECTS % INITIAL COMPARE 


IPC? 
IPOs 


GO TO IPD: 
LOWSELECTs % INTERM COMPARE 

IF VLOW < MS THEN 

BEGINSCOMMENT MOVE NEXT RECORD TO OUTPUT AREA; 
STREAMCPLEVL sP2eReP3e(PCDUP)),CI6t6]4P4ex(DOTOP))3 
BEGIN STePLsIP3COS+32W0Ss0Se¢32WNS)sDSe¢P2 WOS ENDS 
PC1)3 DISKWRITES % WRITE ON DISK THE RECORD FROM DATALVLOWs0) 
INREADS % POINT AT NEXT RECORD 

IF NOT EOF THEN 

BEGIN COMMENT CHECK IF NEXT RECORD IS SMALLER3 

IF € IF ALFA THEN PCOsMKSeQs*CYNFIL IJ sVLe EQUALS) 

ELSE IF AC THEN PCOsMKSe#(CIIODJsVL 2 EQUALS) 
ELSE PCMKS*XAL sOsVAL*0*EQUALS)) 
THEN VEVLOW] © NFLAGCC*CDATXOMS1I]9&MSC18333815))3 


— STREAMCPLe*(CIIOD] »P2eReP3e¢P (NUP) C3686] ePAeeCDATXEVLOWI))3 
BEGIN SIeP1IsP3CDS¢32WDS40S¢32WHS)50Se¢P2 WOS ENDS 


% MOVE NEXT RECORD TO DATA 
END? 
IF NOT DISKFULL THEN GO TO IPC; 


ENDS 
COMMENT END OF STRINGING PASS OR NO MORE DATA; 
IF NOT DISKFULL THEN % CHECK FOR RECORD = HIGH KEY 
FOR JT ¢« O STEP 1 UNTIL MS#1 90 
If (VLOW ¢ V£I7,£18#15]) < MS THEN GO TO IPO} 
MOREDATA ¢ FALSE . 
FOR Ie 0 STEP 4 UNTIL MS=4 00 
YF NOT Vf£1II,05%4) THEN 
BEGIN VEIT] © NFLAGCC*CDATX£LIIII8I018%33215))3 


00747600 
00747700 
00747800 
00747900 
00748000 
00748100 
00748200 
00748300 
00748400 
00748500 
00748600 
00748700 
00748800 
00748900 
00749000 
00749100 
00749200 
00749300 
00749400 
00749500 
00749600 
00749700 
00749800 
00749900 
00750000 
00750100 
00750200 
00750300 
00750400 


00750500 


00750600 
00750700 
00750800 
00750900 
00751000 
00751100 
00751200 
00751300 
00751400 
00751500 
00751600 
00751700 
00751800 
00751900 
00752000 
00752100 
00752200 
00752300 
00752400 
00752500 


- 00752600 


00752700 
00752800 
00752900 
00753000 
00753100 
00753200 
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048510 
O486t0 
O48R!'2 
O048sta 
0492182 
049383 
O49at4 
049810 
O500!a 
0502%0 
0504%0 
050432 
0504%2 
0507:3 
0512%0 
051220 
051420 
O514%2 
051570 
0516%3 
051733 
052010 
052232 
O522a%2 
052310 
052510 
052723 
0529%3 
O534%2 


(053610 


0536%2 
053830 
053833 
OS39%4 
054210 
054434 
0546:0 
054750 
054742 
054810 
055033 
055410 
055910 
05620 
0564:3 
056720 
O567 20 
056740 
0567123 
036733 
056733 
056a%1 
0573!0 
O576%4 
057740 
0581 %1 
O582%e 


OREDATA « TRUE ENDS 
NISKFULL « Mn AND ONS 2 Mei OR DISKFULL3 
IPE? WRITETAGS 4 WRITE STRING TAG WORD IN FRONT OF STRING 
IF DISKFULL THEN GO TO IPG3 
TF MOREDATA THEN 
If NOT TM OR ONS < w THEN GO TO IPBA 
_ ELSE GO TO IPa: 
FM « NOT TM AND ONS € M3 
IPG:?END SORTITS 
Rieke EEKEEK REE KKK KEES 
SUBROUTINE MERGEITS % MERGES M STRINGS TO 1 STRING 
BEGIN 
MICt FIRSTSELECTS 
GO TO MIE 
MID? LOWSELECTS 
MIE: IF VLOW < MS THEN 
BEGINS * MOVE LOW RECORD TO OUTPUT FILE 
STREAMCPL¢VL sP2eReP3¢CP(DUPI).£C3686)sP4e*(CO1ODI)3 
BEGIN SleP1IsP3¢DS+32WOS3NS*¢32WDS)30S« P2 WOS END3 
WRITEQUTS DISKREADs 
GO TO MINs 
ENDS 
FOR I-¢ 9 STEP 1 UNTIL MS"1 00 % CHECK FOR RECORD = HIGH KEY 
IF ¢VLOW € VEI],0C18%151) < MS THEN GO TO MIEs 
IF NOT TM AND NOT EQF THEN 
BEGIN COMMENT HAVE MERGED M STRINGS FROM INPUT? 
WRITETAGS * TQ ONE STRING IN OUTPUTs SELECT 
SUBMERGE? % M MORE STRINGS TO MERGE 
GO TO MIC3 
END} 
END MERGEITS 
Bak eke ERK EKER Me KE 
STARTS % INITIALIZE SORT PASS 
BLKCTR © BLKCTR + (CAC © R20) GR MFIs R + ABSCRI 
IF AC THEN IF CORESIZEsf1#1] THEN % IDENTIFY COBOL68 
BEGIN AC€¢33 CORESIZE*¢ABSC(CORESIZE); 
BLKCTR « BLKCTR = 43) 


END3 
IF NOT OPTOG THEN 
REGIN 
PRFIB ¢ QUTFILENOT 233 
IF R > CPRFIBC16),0332151) THEN 
PCL1,COUTFILEINOT 2313587517,COM)3 
END; 


PCMKSs( TSN] s£TCNISCTNNI® 8 ot, 3eteBLOCK); 
If ME THEN GO TO PCPOLYMERGE)3 . 
LISA ¢« IF IPTOG THEN O ELSE & SIZE OF INPUT BUFFER 
exPC*fINFILENOT 2732185 COC).C321573 
CORESIZE ¢ CIF CORESIZE = 0 THEN 12000 ELSE CORESIZE) 
= 2000 = LISA; 
IF CORESIZE < 2500 THEN CORESIZE + 25003 
ONS « R © ABS(R)3 S © M & 5123 
WHILE ONS < 30 00-OQNS ¢ ONS 4+ R3 ; 
LYS’ IF ONS > 1023 THEN BEGIN ONS © ONS * R3} GO TO LZ END; 
1F ONS MOD 30 # O THEN BEGIN ONS © ONS + R3 GO TO LY END3 
COMMENT ONS NOW MINIMUM BUFFER SIZE3 
LZ* ORC « ONS; 


00753300 
00753400 


00753500 
00753600 


00753700 


00753800 
00753900 
00754000 
00754100 
00754200 
00754300 
00754400 
00754500 
00754600 
00754700 
00754800 
00754900 
00755000 
00755100 
00755200 
00755300 
00755400 
00755500 
00755600 
00755700 
00755800 
00755900 
00756000 
00756100 
00756200 
00756300 
00756400 
00756500 
00756600 
00756610 
00756620 
00756630 
00756650 
00756700 
00756710 
00756720 


00756730 © 


00756740 
00756750 
00756800 
00756900 
00757000 
00757100 
00757200 
00757300 
00757310 
00757400 
00757500 
00757600 
00757700 
00757800 
00757900 
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O585t2 
058623 


0589!2 
059420 
059240 
O59a%4 
059424 
O595%4 
059734 
0598t! 
OS59at4 
059910 
059950 
06000 
0600%e 
060210 
060283 
0603%4 
060620 
O60Rr1 
061020 
061042 
061082 
061423 
061870 
061984 
0619%3 
062120 
0622!0 
062282 
062212 
0622%3 
062223 
0635:2 
063994 
064023 
064310 
OGAaty 
064434 
064423 
O645ty 
064710 
O64Rt2 
065480 
065180 
065324 
065643 
O65a%4 
066442 
066312 
066534 
0667%4 
067090 
067410 
04679140 
068252 
06822 


e 


Lx 


WHILE CORC + ONS) <$ 150 DO ORC *« ORC + ONS # *DSK INPT BUFF SZ 
ORL * ORC3 

WHILE €QRC + ORL) < 450 DO ORL * ORL + ORC 3 4OSK OTPT BUFF SZ 
QCDA « CORESIZE = 2xORLi 

LOSA « COCDA#R) DIv ¢2xORC)3 


“IF LOSA € 2 THEN M « 2 ELSE WHILE M > LOSA DO MeM DIV 23 


LOSA « COCDARR) OLY ¢CRe3)3 
IF LOSA < 2 THEN S © 2 ELSE WHILE S > LOSA DO SeS DIV 23 
SRS ¢€ ORL? SRI © ORC} 
ORT ¢ 2xORL + 2*XMxORC3 
IF ORI < 1e1xCORESIZE AND ORC < 1023 THEN 
BEGIN 
SRS ¢« ORL SRT « ORCI 
ORC « ORc + ONS3 
ORL « ORC# WHILE ORL < 300 NO ORL « ORL + ORC} 
GO TO LX 3 


ENDS 
D « SRI DIV 304 IF SRI MOD 30 4 0 THEN D« D+ 43 
BF « SRI DIV R} TBO « SRS DIV R3 
COMMENT COMPUTE OISK ROW SIZEs # ROWS ALWAYS = 203 
DISKSIZE « € IF NISKSIZE = 0 THEN 1000x600 ELSE DISKSIZE) 
/ CBFx1I9xR)3 
IF DISKSIZE < CY © TBO DIV BF) THEN 
DISKSIZE «© Y + ¥ ELSE 
WHILE (DISKSIZE MOD Y)40 pO DISKSIZE*DISKSIZE + 13 
Cpe OD xX Y 3 
COMMENT SET UP DISK QUTPUT FILE AS ALGOL FILE: 
OUTFIR © *COOTOPENOT 2)13 % GET FIB DESCRIPTOR 
QUTFIRE 8] © CDISKSIZE DIV Y)820015238:1033 % # ROWS» ROW SIZE, 
OUTFIALCL393601029) © OUTFIBL13),0C412933 
OUTFIBL4].£781)] © (CAC AND 3) = 1)3 %CQOBOLS1 DISK SORT FLG 
CUTFIBC18] © CX*TBOXRI8X£323324578XL1823381574% & DISK BLACK 
IF CY¥eOUTFIBLC4).012%12)) < 1023 THEN &% FILE # TO FILE INDEX 
QUTFIBL4] © QUTFIBC4I&CCY*LXETRENGIEL SP 37FEL1L URL Ci2ta7ei173 
IF FPBCFNUM+3].016:73 = 0 THEN % NOT LABEL EQUATED 
FPBLFNUM+33.201632] %= 13 % USE FAST DISK 
COMMENT QPEN OISK QUTPUT FILEs WILL SET UP FIBCi6] AND 
WILL POINT TOP I/0 DEScCe PAST DISK ADDRESSS 
PCCDOTOP] -Oeit»COMeNELsDEL)3 
OUTHEAD « *COUTFIBE14))3 
IF NT >» @ THEN 
OUTHEADLCBI©OUTHEADC8)] CR MEM} 
COMMENT GET DISK SPACE FOR 1 ROW; 
PCCDOTOPL13193 WAIT? % WATT FOR FILE TO BE OPENED 
ORI « 93 GETROWS MOREDATA ¢ TR & m1 
IF DISKFULL THEN 
PCTs EDOTOPENOT 213,819172COM)3 % IOR &1 
COMMENT IF INPUT FILE THEN OPEN ITs IF PROCEDURE THEN 
INITILIZE LINKAGE TO CALL IT; 
IF IPTQG THEN BEGIN IF AC THEN 
BEGIN ENDQ « O03 BINGO © YNPROF END3 
POMKSs*CINFILJsReleieleBLock)3 
IFCAC. AND 32923. THEN % COBOL6S 
BEGIN CIIOD « ECWAINYS 
WAIN © PCCINFILJ+DUPsLODsOsCOCsDELsL OD); 
END END ELSE 
BEGIN COMMENT CHECK FOR ALGOL GR COBOL? 


00758000 
00758100 
00758200 
00758300 
00758400 
00758500 
00758600 
00758700 
00758800 
00758900 
00759000 
00759100 
00759200 
00759300 
00759400 
00759500 
00759600 
00759700 
00759800 
00759900 
00760000 
00760100 
00760200 
00760300 
00760400 


00760500 


00760600 
00760700 
00760800 
00760900 
00761000 
00761100 
00761200 
00761300 
00761310 
00761320 
00761400 
00761500 
00761600 
00761700 
00761800 
00761900 
00762000 
00762100 
00762200 
00762300 


00762400 


00762500 
00762600 
00762700 
00762800 
06763000 
00763050 
00763100 
00763150 
00763200 
00763300 


a et ts tt tt a ta a st a a tt 


0683%1 
068633 
0687s 
069120 
069243 
069510 
070082 
070233 
O708%1 
070923 
O712%2 
071483 
OF1534 
07163 
071830 
072320 
0723!2 
072312 
0727%3 
O730%4 
O730%84 
073233 
073580 
073683 
O738%2 
O74ate 
074333 
0743%3 
O745%2 
O74Rit 
075142 
075520 
075883 
076033 
076533 
O76Ri2 
0772383 
O772%3 
077233 
O774%4 
O775%2 
O77 Hh4 
077813 
O778%3 
0784130 
078412 
078483 
O787%4 
O787%4 
078734 
O78at4 
079033 
079280 
079323 
079510 
O797%1 
O797%4 


IF AC THEN BEGIN PCMKS* (NOT 2) INX CINFILJel*COFCR)3 
IF AC.C4621] THEN % COBOL68 
BEGIN CIIOOD «© [WAIN] 
WAIN © PCeLINFILENOT 2))2202COCeOsXCHeFCXa 
DUPsDIB O»sLODsOsCDCesDELsDIB OsLOD)3 
END END ELSE. BEGIN % OPEN ALGOL INPUT FILE 
PRFEFIB «© *LINFILENOT 2333 
PRFIBC43].€272113 © 13 
PCMKSsOs3eCLINFILI2ALRDeDEL D3 
; END; 
END3 
IFCAC AND 3243 THEN CIIOD © CINFILIJs 
CALLSORTS 
SORTITs % SORT INPUT FILE INTo STRINGS 
TR te I I Rk RIOR tO ee  Y 
ENPSORTPASS: COMMENT TURN BACK WHATS NO LONGER NEEDED AND 
INITILIZE MERGE PASS} 
IF EOF THEN COMMENT CLOSE INPUT TAPE 
TF NOT MOREDATA THEN 
BEGIN 
IF IPTOG THEN PCCINFILJ «35COMsDEL) 
ELSE PCMKSs2eOQsCINFILEINOT 21). 
IF CINEILSOUTFIL) AND AC THEN 18 ELSE 4sFCR)3 
IF EINCOUNT. = 0 THEN PC ds CDOTOPCNOT 231,86017sCOM)3 
ENDS 
IF MOREDATA THEN 
BEGIN COMMENT SAVE CONTENTS OF DATA ON DISK3 
TR © O38 NCDA © QUTHEADCORY + 10323 I © Q3 
OBC. .¢« TROs ORL « ORS 
WHILE I< S$ pa 


BEGIN 
IF NOT VOII],05%1) THEN 
BEGIN 

TR « TR +43 


STREAMCPLe]*{DATXLIJ],P2eReP3¢(PCDUP)) [3686] 8 
P4ewef{DOTOPIJ 23 
BEGIN SI¢PL3P3(0S¢32wOSsDS¢32W0S)53DSeP2 WOS END 
PC1)s DISKWRITES 
END: : 
I¢ I + ds 
END? 
PCO) DISKWRITES % WRITE BLOCK 
END; 
AC © ACREOFL22473138MOREDATACL 472493 
COMMENT TURN BACK DATA & VECTOR ARRAYS; 
PC .DATA*LOD*RFBs DATAsSTDs CDOATN] » 229 COMSDEL 3 
PC,VaLONsRFBs.VeSTD eC VN)» 3eCOMsDEL D3 
STPP © P(MS © MeDUPsADDs 22 SUB)3 
BLKCTR ¢ BLKCTR + 43 
COMMENT DECLARE DISK QUTPUT FILES 
TTNK ¢ O3 
PCMKSs20eDISKSIZE s3sQUTFIB(4].C13211 DIV ETRLNG +2eCOKI J» 
CY ©2XM) a 49 BFXRe 000210282 BLOCK} 
INFIB. ¢ *#CLITNK[2]33 
ITOP «  CITNKE5]18Y08138210) 3 
COMMENT OPEN FILE} 
PCCITNKESIJ ] *Oe1llsCOMsDELSDEL D3 


* POINT ITOP AT TOP I/O D 


00763400 
00763440 
00763450 
00763460 
00763470 
00763500 
00763600 
00763700 
00763800 
00764200 
00764300 
00764350 
00764400 
00764500 
00764600 
00764700 
00764800 


00764900 > 
00764950 © 


00765000 
00765100 
00765200 
00765210 
00765300 
00765400 
00765500 
00765600 
00765700 
00765800 
08765900 
08766000 
00766100 
00766200 
00766300 


00766400 - 


00766500 
00766600 
00766700 
00766800 
00766900 
00767000 
00767100 
00767200 
00767300 
00767400 
00767500 
00767600 
00767700 
00767800 
00767900 
00768000 
00768100 
00768200 


00768300 - 


00768400 
90768500 
00768600 


AAA HAMA AAA A tt tt tt tc Pe ee a tee 


O797%3 
0800%4 
080420 
O80Dh4 
080413 
0807314 
080733 
0809%2 
081230 
O813%e2 
O81 3%0 
O813%2 
081630 
081610 
081720 
081730 
O8i7#0O 
0817%0 
0817314 
O81a%4 
0818:3 
O820t2 
082243 
082734 
0830%2 
0830%2 
083033 
QO83131 
O83at4 
083410 
083734 
0837%4 
0838%2 
083980 
084034 
084284 
084380 
084584 
084730 
084710 
084824 
084833 
085020 
085040 
085233 
085273 
085510 
0857314 
085910 
086033 
086033 
086452 
086423 
086834 
086912 
087482 
0871432 


rr a er er ee er ee ee” eae a iaa4 


@eeeeeesteeese @ ee eo @ 8@ @ @ | e® °@ | e 6 


DKCs 


DKD: 


QKEs 


DKF ¢ 


TPA? 


TPB: 


TPC: 


INHEAD ¢ *CINFIBCL47 33 
IF NT > 2 THEN 
INHEADL A] ¢ INHEADNCBVALC A473 43 % FLAG SORT DISK 
PCLITOPLY©Y7417]23 WAITS & WAIT FOR FILE To BE OPENED 
IF INHEADELO}] #40 THEN 
PC1@s,INHEAD SL ODs 24eCOM*DELspEL 2s % RETURN 1 ST ROW 
COMMENT SET FILE TO READ @ PERMUTE 2 BUFFERS# 
INFIBCI3] © INFIB£1378201083989]810272473133 
INFIBC16) © C¥LINFIBC16]) 81f2424781)3 
COMMENT GET DATA AND VECTOR ARRAYS; 
POMKS ef VN] eC 2xMi=teoteteleBLOCK 33 
PC5eMeisCDATNJ»212COMe DEL» DEL» pEL 3 
COMMENT GENERATE HIGH KEY RECORD 
MHN © OF PCMKSs(MHNIsRole to isBLOcK )3 
POCMKSsMHK)3 IF NOT AC THEN PCOsCOC*#MHK es XCH*RDSsCFX20)3 
PCHIVALU): 
FOR T «© O STEP 1 UNTIL Y 06 
ITOPLIY «© CNOT OF INX CHCITOPL1I1)810 2484731780627 ' 42:6); 
IF NOT TM THEN 
BEGIN %® DISK ONLY SORT COMPLETED 
IF FM THEN GO TO DKF; 
POC102 eOUTHEADsLODs 24eCOMsDEL,DEL I % RETURN | OVERLAY SPACE 
PC,INHEADsL OD» ,QUTHEADsLOD», INHEAD* STDs .QUTHEADs STO)3 
SRI « ORIZ ORI « 103 &% SRI= AMOUNT OF DISK USED TO NOW 
WHILE. ORI < SRI po % GET ANOTHER AREA OF DISK = SRI 
BEGIN 
GETROWS 
IF DISKFULL THEN 
BEGIN PCeQUTHEADsLOD)2 FORGETHISKs GO TO-TPAs ENDS 
END3 
cOIND « DOTOPS 
OCDA « CLOSA © OUTHEADECCSRI © ORI © 11)9)) + 13 
SRS ¢« QRL « ORS = 43 
LISA « INHEAD£L11373 &% LOCATION OF FIRST TAG 
MOREDATA « NOTCEOQF ¢ DISKFULL « ONS © 073 
SUBMERGE3 MERGEIT3 
IF FM THEN BEGIN PC*CINFIBL143})3 FORGETDOISKs GO TO TPC END; 
MOREDATA ¢ FALSE WRITETAG3 
PCeINHEAD® LOD» OUTHEADsLODs eINHEADS STD» eOUTHEADS STD)3 
IF ONS > M THEN GO To OKD; 
FM © TRUE# MS ¢ 23 WHILE ONS > MS 00 MSeMSx23 
STPP «© 2@xMS"23 
COMMENT REPLACE DISK QUTPUT BY PROGRAMMERS QUTPUT3 
PCMKSsO*20-CDOTOPENGT 2])]64eFCR)3 %& RETURN BUFFERS 
OPENOUT? IFCAC AND 33923 THEN COIOD © COUTFILI> 
GQ. TO OKEs 
END? 
COMMENT DISK#TAPE MERGE? 
PC, INHEAD» LOD» ,QUTHEAD» LOD» e INHEAD®s STDs .QUTHEADSs STD) 
POCMKSsO2O0eCDOTOPLNOT 2) ]e4eFCR)3 % RETURN BUFFERS 
LISA © INHEADL1117% MOREDATA © NOTCEQFeDISKFULL © ONS€0)3 
IF TNECOT] 2 TCECOT] THEN BEGIN SELECT? GO TO TPB END$ 
SUBMERGE? MERGEITS WRITESTOPPER; 
IF NOT EQF THEN GO TO TPB 
PC. INHEADsLODs -OUTHEAD*s LOD» e INHEAD*# STDs eOUTHEADS STD D3 
PC.DATAsLOD*SRFBs .DATAsSTDeLDATNI s222COMsDEL IS & RTN DATA 
INHEAD « INFIB ¢€ BASE © ITOP « BUFF # Q3 


00768700 
00768800 
00768900 
00769000 
00769100 
00769200 
00769300 
00769400 
00769500 
08769600 
06769700 
00769800 
00769900 
00770000 
00770100 
00770120 
00770200 
00770300 
00770400 
00770500 
00770600 
00770700 
00770800 
00770900 
00771000 
00771100 
00771200 
00771300 


00771400 © 


00771500 
00771600 
00771700 
00771800 
00771900 
00772000 
00772100 
00772200 
00772300 
00772400 
00772500 
00772600 
00772700 
00772800 
00772900 
00773000 
00773100 
00773200 
00773300 
00773400 
00773500 
00773600 
00773700 
00773800 
00773900 
00774000 
00774100 
00774300 


a st ee en a ss st a st 


O873%4 
087482 
O87S5%4 
O87aty 
088470 
088240 
088424 
O884at, 
088733 
089042 
0890t2 
089924 
089533 
0895! 3 
O089R8%4 
0902%4 
O9dDt2 
090420 
0910483 
O91tty 
091493 
0912%3 
O9Late2 
O91Ate 
O91laio 
O919%4 
O9198t 
092080 
O920%4 
O92a%2 
0924920 
0923%3 
092633 
092833 
092983 
O932%4 
093410 
093732 
093920 
094120 
O942t4 
094633 
O94ato 
094832 
O952%4 
0955122 
095620 
0956720 
095670 
095880 
0964%3 
096824 
096812 
0972330 
097233 
097433 
097730 


IF FM OR ACef1#2] =1 THEN GO To WRAPUP3 

P ¢(10COM)s Z¥RETURN MERGE MATRIX XTR117 
MOREDATA © Ac.C1:4)3 EOF «© ac. C2:133 

GO TO CALLSORTS 


WRAPUP# 


SORTDONE$ 


Non 


END DISKSORT3 


PCa CQUTFIBL141})3 FORGETDISK3 
QUTFIB « QUTHEAD « 03 


IF TM THEN ZITD SORT MERGE RTR*117 
BEGIN P (10sCOM)3 ZRETURN MERGE MATRIX BTR@117 

GO TO PCPOLYMERGE)3% GO TO ITD MERGE RTR@117 

ENDS RTR™147 


COMMENT JUST DIM FINAL PASS; 
COMMENT RETURN EVERYTHING; 
PCCDOTAP)&0018218%15]269112COM,DEL»DEL D3 
IF NOT OPTOG THEN BEGIN 
PCMKSe2e0eCTOUTFILENOT 2) ]24eFCR) 
IF NOT AC. THEN PCOSOUTFILENOT oleae CDCsSTO)3 
END ELSE 
BEGIN COMMENT CALL QUTPUT PROCEDURE PASSING END*OF™SORT FLAGS 
IF AC THEN 
BEGIN ENDQ © 43 IF ACeC4681] THEN 
PCMKSs+BINGOsOsPERFORMGEN) % COBOL68 
ELSE PCMKSsBINGOs+ECPRTBASELCPCDUPI J] »LOQD,IPFIDOX»cOc) 
FND ELSE PCMKSstsMEMsOsNUTPROD; 
ENO? 
PC 102CQM)s % RETURN MERGE MATRIX STR@“4117 
IF OUTCOUNTZINCOUNT THEN PCINCOUNT*OUTCOUNT? O» 
CDOTOPCNOT 211,82517%C0M);3 
PC1O0sCOM)} 2 FALL QUT OF BLOCK COM WILL RETURN EVERYTHING 


PRACEDURE POLYMERGE ( 


BOOLEAN ALF As 


00774500 
00774550 


00774600 


00774700 
00774800 
00774900 
00775000 
00775100 
00775120 
00775130 
00775140 
00775200 
00775300 


00775400 © 


00775500 
00775600 
00775700 
00775800 
00775900 
00776000 
00776100 
00776200 


00776250 © 


00776300 
00776400 
00776500 
00776550 
00776600 
00776700 
00776800 
00776900 


90800000 


START OF REL SEGMENTS DISK 


T1lsT2sT3e 
ENDQsBINGOsTIPFIDXs»OUTPROsINPROSOUTF se INE » 
OPTOGsIPTOGsDKO,DKI > TP1sTP2eTP3eTP4eTPSsNT» 
HIVALUSEQUALS»Re ALF As CORESIZEsDISKSIZE)3 

COMMENT DISK*SORT BY LR, GUCK DATE 9/19/1965 3 

VALUE OP TOGs IPTOGsNT»HIVALUSEQUALS*ReALFAs 

CORESIZE*OISKSIZE3 

REAL ENDQ@»sB INGOs IPF IDX»OUTPRO»s INPROsOUTFsT1sT2sT 3» INFS 


BOOLEAN OPTOGs IPTOG; 


REAL OKOsDKI$ 

NAME TPiaTP2sTP3eTPGeTPS3 % SCRATCH TAPES 
REAL NT#HIVALUsEQUALSeRS 

% TRUE FOR ALPHA KEYS 

REAL CORESIZE$ % CORE STORAGE AVAILABLE 


INTEGER DISKSIZE3 % DISK STORAGE AVAILABLE 


BEGIN 
LABEL MICeMIDsMIEsSTARTs TPDs TPE, TPF eRINTRse TRAeSORTDONE »RTA® TRX3 
REAL S#MeMSsSTPPoDsODe BF oe TBOo Te Xe YeDN$ 

ARRAY VE*]s NAME VN = V3 


00800100 
00800200 
00800300 
00800400 


0@800500 > 


00800600 
00800700 
00800800 
00800900 
00801000 
00601100 
00801200 
00801300 
90801400 
00801500 
00801600 
00801700 
00801800 
00801900 


T 097913 
T O9B82%4 
T 098223 
T O9BSt4 
T O0985%3 
y 098943 
T 098810 
T O989%4 
T 098982 
T O99g%e2 
T O993%¢ 
T 099334 
T 099394 
YT O994%4 
T O99384 
T O998%4 
TY 099634 
T 099933 
T 100324 
T 003%] 
tT 100333 
T 100480 
T 100684 
T 100733 
T £01010 
T 101483 
T £01483 
YT i0L]84 
y 2104424 
T 1016t0 
T 1016%2 
IZE= 1017 


rT 000080 
ADDRESS = 
o000t0 
0000t0 
000010 
000010 
000010 
000040 
000010 
000030 
a000f0 
000010 
000010 
0000!0 
000030 
0000!0 
0000!0 
0000t0 
000010 
000080 
000030 


ee ee eee 


WORDS 


00179 


ececeoceceoeecececececeo eee ewe eee 


DEFINE VXLSFLAGCVEX+1])#* VX=FLAGCVEX] )#» VLEFLAGCVEVLOW) #3 
DEFINE VAL = FLAGCVEX+1 J&PCO-RDSICECTF))#s 

VA = FLAGCVEX  J&PCOsRDS)ECTF))#s 

VAL = FLAGCVIVLOWI&PCOs»RDSICCTFID#S 
REAL vLOws % INDEX OF NEXT RECORD IN SEQUENCE 
ARRAY MHKC*]$ % HIGH KEY FOR MERGE PHASE 
NAME MHN=MHK3 
NAME DOTOP = DKO3 
BOOLEAN MOREDATAsFMsEQF* TMsDFe TRE 
BOOLEAN MFS TY 
DEFINE IOC = ®2000000000#» 

P = POLISH#3 

COMMENT PARAMETERS RELATED TO PROGRAMMERS FILES} 


NAME INFIL = INFS % POINTER TO TOP I/0 DESC, 
NAME OUTFIL = OUTF3 

NAME wWAQUT = 723 * COBOL68 QUTFILE WORK AREA 
ARRAY PRFIBD e173 % CONTAINS. TAPE FILES FIB8 
REAL AC3 -& TRUE FOR cOBOL INPUT FILE 


REAL INCOUNTsOUTCOUNTS 

NAME MEM = 23 . 

REAL BLOCK = SeALWRA12sALRNBL3,COFCREI2ZsCORWEL4sALFCRE 14, 
PERFORMGEN = 13» % COBOL68 IN*OUT PROCEDURES 
BLKCTR = 163 

ARRAY PRTBASE = 100*13 
REAL OF sOHs LOsONSsORCeOCDASORL ORI» SRI» SRS+O0BCs IF Bs IFH3 
ARRAY BASEL*]3 % POINTER TO CONTROL INFO IN DATA 


ITP eDONTOONOTHINIEQPENSLISAS 


DEFINE FCR = IF AC THEN COFCR ELSE ALFCR#3 
COMMENT PARAMETERS RELATEO TO MERGE. TAPES) 
INTEGER CTRL? % CURRENT CONTROL TAPE 


INTEGER cars % CURRENT OUTPUT TAPE 

NAME COTO: % LOC OF 1/0 0 OF CURRENT QUTPUT TAPE 
NAME TP? % BASE POINTER OF MERGE TAPES 
ARRAY TSe*#]3 % ARRAYS FOR CONTROLLING DISTRIBUTION 
ARRAY TCE *]3 % PATTERNS ON MERGE TAPES 

ARRAY TNC#]3 

REAL TMLSCORESIZE} & TAPES @ 1 

NAME CITODs % LOC OF 170 ND FOR CURRENT INPUT TAPE 


FLEECE ETC T ESTELLA TET ee 


SUBROUTINE WAITS COMMENT WAIT FOR I/O COMPLETE USING AORRESS 


ON TOP GF STACK; 


$ SET OMIT = NOTCTIMESHARING) 


BEGIN IF NOT CPCXCHODUP*L ODD eC1981) THEN PC IOC #35 *COM*DEL D3 


$ FOP OMIT 
$ SET OMIT = TIMESHARING 


PCOEL)3 END WAIT; 


Yoke ike ie te tek TO tk dete ee MM ie ek ee eR Hy 


SUBROUTINE RELEASETAPES &% CALLS MCP TO WRITE OUT BUFFERS 


BEGIN 
PRFIRC11] « TBO 
PCCOTON(O] «© FLAGCPRFIBE16])»cOlODsPRL» DEL); 
P(GOTOD)s WAITS 
IF C#COLOD),C2781) THEN &% REEL SWITCH 
BEGIN 
PCMKS*OsOeTCOLODENOT 2) ) s6eF CRIS 
GO TO RTA3 
END; 


06802000 
00802010 
00802020 
00802030 
00802100 
00802200 
00802300 
00802400 
00802500 
00802600 
00802700 
00802800 
00802900 
00803000 
00803100 
00803120 
00803200 
00803300 
00803400 
00803500 
00803600 
08803610 
00803700 
00803800 
00803900 
00804000 
00804100 
00804200 
00804300 
00804400 
00804500 
00804600 
00804700 
00804800 
00804900 
09805000 
00805100 
00805200 
00805300 
00805400 
00805500 
00805550 
00805552 
00805553 
00805599 
00805700 
00805800 
00805900 
00806000 
00806100 


06806200 - 


00806300 
00806400 
00806500 
00806600 
00806700 
00806800 


te mee ss a a sh st st st st tt st ss tt st 


000030 
0000%0 
000070 
000080 
000080 
000010 
0000%0 
000080 
000010 
000030 
000080 
0000%0 
000080 
000030 
000080 
000080 
0000%0 
0000%0 
000040 
0000!f0 
000080 
000080 
0000t0 
00000 
000080 
000080 
0000 %0 
00000 
000010 
000010 
000040 
0000t0 
a000r0 
000080 


000010 


O000FO 
oo0dato 
o00g0r0 
0000%O 
000070 
000410 
00014:0 
000110 
000430 
ON004t0 
O004t0 
000610 
0006?0 
000620 
0006!0 
0007184 
0009%2 
001180 
001210 
O0012%2 
0016914 
001433 


IF NOTC#COlIO0) C281) 
COIODLO) © 4 INX FLAG 
END RELEASETAPES 
SUBROUTINE TAPEWRITES &% BLOCKS OUTPUT TAPES 

BEGIN | 

PRFIB © *€COIODCNOT 2]]3 

PRFIBE9] © PRFIBL9] + 13 % RECORD COUNTER + 4 

IF CpRFIBC11)] * PRFIBC11] = 1) > 0 THEN &% BLOCK COUNTER 

COIODLO] « R INX *COTOD 


17*COM)3 
? 


ELSE 

BEGIN % TIME FOR RELEASE 
PCOsPRFIBEC16) INX MEM*STD)3 & ZERO CONTROL WORD IN BUFFE21 
RELEASETAPE? 

END? 


END TAPEWRITES 
SUBROUTINE WRITESTOPPER; 
BEGIN % WRITES END OF STRING OR DUMMY STRINGS 
PRFTR « *({COIOQOCNOT 2])3 
X © PREIBCIIACTBOPRFEIBC11I2 61883381578 C"DS"IL393381593 
PCXsPRFIBL16) INX MEMsSTO)3 
TNCCOT] © TNECOTI + 13 & COUNT YP STRINGS ON QUTPUT TAPE 
RELEASETAPES 
PREIB C9] «03 
END WRITESTOPPERS 
Cee eee ee ree eee ee eee Pe eee ee | 
SUBROUTINE OPENOUTS % OPENS PROGRAMMERS OUTPUT TAPE 
BEGIN 
If OPTOG THEN 
BEGIN. PCMKSsCOUTFILJ*Reteter* BLOCK} 


~&% ZERO OUT STRING CTR 


IF AC THEN 
BEGIN BINGO « OUTPROF ENDQ ¢« 03 
IF ACe£E46414] THEN % cOBOL68 


BEGIN PCMKSsBINGOsOsPERFORMGEN)3 
COIQD « CWAQUT]; 
WADUT © PC#COUTFILI,02CDC)3 
END ELSE 
§neSc8 1Gos CPRIBASELPCOURDI 75 LOD» IPFIDXsCOC)3 
END END ELSE 
BEGIN TR ¢« FALSES PRFIB © DUTFILENOT 213 
PRFIBC13],£27:11 «03 


IF AC THEN 

BEGIN 

PCMKS»sCOUTFILENOT 2])s3*eCOFCR)3 

IF AC.C46%1] THEN % COBOL68 


BEGIN COIOn © CWAOUTI; 
WADUT © PCPRFIBC2O] e¢£LFFIU,DUP2DIB OrlO0s0» 
COc,DELeDIB Ost0D)3 
END3 
TR «+ PRFIB(4],(824] = 43 
END 
ELSE BEGIN PCCOUTFILIJs0511*COMsDEL»DEL)3 
PCMKS9120209("R)*COUTFILI*ALWReDELDF ENDS 
END 
END. OPENOUT# 
Be aE RR KERRIER RK KEKE 
SUBROUTINE TAPEREADS % READS TAPES ON POLYPHASE MERGE 
BEGIN 


00806850 
00806900 
00807000 
00807100 
00807200 
00807300 


00807400 


00807500 
00807600 
00807700 
00807800 
00807900 
00808000 
00808100 
00808200 
00808300 
00808400 
00808500 
00808600 
00808700 
00808800 
90808900 
00808910 
00809000 
00809100 
00809200 
00809300 
00809400 
00809500 
00809600 
00809700 
00809730 
00809740 
00809745 
00809750 
00809760 
00809800 
00809900 
00810000 
00810100 
008140200 
00810300 
00810400 
00810440 
00810450 
00810469 
00810470 
00810480 
00810600 
00810700 
00810800 
00810900 


00811000 | 


00811100 
00811200 
00811300 
00811400 


SAA HAA AA HA et A A 4 HH 4 9st A A a ta st a a tt 


001633 
0020%2 
002312 
002333 
002440 
002410 
002533 
002733 
OO30%4 
0031420 
0032%4 
003213 
003484 
003520 
003510 
OO35% 4 
003630 
003680 
003723 
004;,%0 
O04a12 
O044!2 
0046%0 
O047t4 
004910 
004910 


004930 


0049190 
O04STy 
005482 
005423 
0054%4 
005570 
0056! 
OOS74 
00583 
005833 
0064140 
006140 
0064!0 
0066%2 
006643 
O067 44 
0069180 
006933 
0071340 
OO73%4 


007433. 


007413 
007633 
007633 
007883 
008110 
008130 
008194 
008134 
008210 


@oees2#ebtFCeee#8e ee ¢ © @®©6hUcahmhCcrMmhC—~CMhC—< OUCMhlUOlhlUlChlUO 


CIIOD ¢ TPEVLOW + 1 1% PRFIB © CIIODENOT 213 

PRFIBC9] ¢ PRFIBC9] + 15 % RECORD COUNTER + 1 

IF C(PRFIBCI1) « PRFIB£11] =1) > O THEN % BLOCK COUNTER © 14 
VEVLOW] «© R INX vevLoaw] 


ELSE 
BEGIN % TIME FOR RELEASE 
IF CY © PCFLAGCPRFIBE(16])*L00)) # O THEN 
BEGIN % CONTROL WORD # 0 SO END OF STRING 
TRA: OF ¢ TRUE} 
IF Ye£33815) # PRFIBL9},033215] THEN 
PCOsECIIONENOT 23185517 eCOMsDELesDELeNEL)3 
ENDS — 
PCCIIOQOLO] © FLAGCPRFIBEC16)])sCrIOD»PRL»DEL)3 
TRX? PCCIION)$ WATTS 
IF NOT ¢€*CIION.£2213 THEN % ERROR OR FOF OR EOR 
BEGIN 
EOF # PCMKSs1sO-sCCLIODLINOT 21) 56eFCR)3 
IF NOT EOF THEN GO TO TRX3 
END3 ; 
IF EOF THEN GO TO RTNTR3 
PRFIBCi1)] «© IF PCYe PC*#CITIODs,LO0)) = O THEN TAO 
ELSE Y¥eli8?i5)3 
CIIODLO] « 1 INX FLAGCPRFIBC16) © NFLAGC#CIIOD))3 
IF DF THEN GO TO RTNTR3 
IF PRFIBL14] 4 O THEN VEVLOW] « VEVLOWI8C*CI1I00I033233:15) 
ELSE GO TO TRa3 


ENDS 
RINTR: IF FOF OR OF THEN BEGIN 
VEVLOW] «© NFLAGCMHK &MS(18233545); 
IF FM ANO NOT MF THEN % REL TAPE LST PASS 
POMKSs4eQe(CIIODENOT 23) s4eFCR)2 & FOR SRT 
EOF CORP eFALSE3 
END? 
END TAPEREAD; 
SECC CPS oS eC Cee PCC LeL EL SSE SESS S eS SC} | 
SUBROUTINE INREAD$ % READS PROGRAMMERS MERGE FILES 
BEGIN 


Cliod «+ TPEVLOW+173 PRFIB « CIIODENOT 273 
BEGIN . 
IF AC THEN TCEVLOW] © PCMKSsReCIIOD,0-CORW) 
ELSE 
BEGIN 


PEMKSsQe0eCIIODesALRDD3 
ete On ¢ FCMKSeOs32CTIONs+AL RD) < O38 
END? 
IF TCCVLOW] THEN VEVLOW] © NFLAGOMHKI&MS(18233%45) 
ELSE IF CAC AND 3) # 3 THEN % NOT COBOL68 
VEVLOW] «© CePCDUP)) & CeLeligo9 ected 
END; 
END INREAD3 
SIC eCE ERS LOSSES LCLSSL CSC cSOLSC SLE SS 4 
SUBROUTINE WRITEQUT: 
BEGIN & SELECTS FILE TO BE WRITTEN DURING MERGE 
IF NOT FM THEN TAPEWRITE 
ELSE 
BEGIN COMMENT CALL OUTPUT PROCEDURE OR WRITE INTRINSIC3 
QUTCOUNT © QUTCOUNT #13 


00811500 


00811600 | 


00811700 
00811800 
00811900 
00812000 
00812100 
00812200 
00812300 
00812400 
00812500 
00812600 
00812700 
00812800 
00812900 
00813000 
00813100 
00813200 
00813300 
00813400 
00813500 
00813600 
00813700 
00813800 
00813900 
00814000 
00814100 
00814200 
00814300 
00814340 
00814350 
00814400 
00814500 
00814600 
00814700 


00814800 


00814900 
00815000 
00815100 
00815200 
00815300 
00815400 
00815500 
00815600 
00815700 
00815800 
00815900 
00815910 
00816000 
00816100 
00816200 


00816300 


00816400 
00816500 
00816600 
00816700 
00816800 


a a tt A A A a A a et 


0082!0 
008513 
0087%3 
OO90T, 
009123 
009283 
0093%4 
009584 
009533 
0096%2 
OO9at2 
010183 
010443 
010480 
0105!0 
0106%4 
010683 
011180 
011493 
011143 
011283 
O115%2 
0114742 
O120%2 
012142 
012432 
O125%]4 
012581 
01262 
012833 
012933 
013480 
O0135%4 
O135%4 
O135%2 
013532 
0134610 
043610 
013933 
0139%3 
014240 
014223 
OL43t4 
0144t92 
OL4Tit 
OLA7s4 
0149%3 
0152314 
015520 
015530 
O155%1 
015504 
015630 
0156!0 
015733 
015a!0 
015a!2 


IF oPTOG. THEN 
BEGIN 
IF AC TREN BEGIN ENDQ@ « 03 
IF AC,C4681] THEN PCMKSsBINGOsOsPERFORMGEN) 
ELSE PCMKS»BINGOsCPRIBASEL[PCDUP) IJ] «eLODsIPFIDX»CcOCc) 
END ELSE PEMKSsOs*LOUTFILJ*0»OUTPRO)3 
END 
ELSE 
BEGIN COMMENT OUTPUT FILE RATHER THAN OUTPUT PROCEDURES 
IF AC THEN PCMKS,OptsieOsRelQUTFILJ] +1» CORW) 
FLSE BEGIN 
POMKSs120202R,COUTFILIJ s+ ALWRD3 
PCMKSs1s020eCmR)»lLOUTFILIsALWReDEL)$ ENDS 
TF TR THEN ITF P THEN PCI,COUTFILENOT 231283917sCOM)3 
ENOS 
END; 
END WRITEQUTS 
SUBROUTINE FIRSTSELECT3 % INITIAL SELECTION OF LOW RECORD 
BEGIN 
X © OF JTeMS"*43 
DO BEGIN 
Tele; 
VET) © VEX#CCIF ALFA THEN PCOsMKSs Oe VX12VXs EQUALS) 
ELSE IF AC THEN PCOsMKSsVX1eVXeEQUALS) 
FLSE PCMKS»VAL»e Os VAs0-EQUALS)) AND TRUEDIT3 
END UNTIL ¢X¢X4#2) = STPP3 VLOW « VETJ,£1881533 
END FIRSTSELECT 
SUBROUTINE LOWSELECT? 
BEGIN 
KX * VLOW AND 10223 
DO BEGIN 
I ¢ MS + X-€382933 % ~ J MS + €x/2) 
VET] « VEX#CCIF ALFA THEN PCOsMKSs O92 VX1eVX es EQUALS) 
ELSE IF AC THEN PCOsMKSsVX1eVXe EQUALS) 
ELSE PCMKS»VAis 0s VAs 02 EQUALS)) AND TRUEIIE 
X « T AND 10223. 
END UNTIL I # STPPS VLOW © vCIT.C18315173 
END LOWSELECTS 
Th kt OR RIK RE eke ay 
SUBROUTINE MERGEITS % MERGES M STRINGS TO 1 STRING 
BEGIN . 
MIC! FIRSTSELECTS 
GO TO MIE3 
MID: LOWSELECT3 
MIE! IF VLOW < MS THEN 
BEGINS % MOVE LOW RECORD TO OUTPUT FILE 
STREAMCPLEVL sP2eReP3e(P(DUP)).C3686)»P4e*(COl0DI)3 
BEGIN SI*P1IsP3(DS+32WDS3NS*32WDS)3DS« P2 WOS END; 
WRITEQUT3 IF MF THEN INREAD ELSE TAPEREAD; 
GO TO MID3 
END} 
FOR I ¢ O STEP 1 UNTIL MS"1 DO % CHECK FOR RECORD = HIGH KEY 
IF ¢vVLOW © VOCT],018%451]) < MS THEN GO TO MIES 
END MERGEIT3 
START? 
CLION « O03 PECECTIOD 
MS © 23 TMLENT#13 WH 


257T8)3 
MF) DO MS#MSx2}3 


to 


D1,¢ 
ILE M 


00816900 
00817000 
00817100 
00817120 
06817150 
00817200 


00817300 


00817400 
00817500 
00817600 
00817700 
00817800 
00817900 
00818000 
00818100 
00848200 
00818300 


00818400 © 


00818500 
00818600 
00818700 
00818800 
00818900 
00819000 
00819400 
00819200 
00819300 
00819400 


00819500 — 
00819600 


00819700 
00819800 
00819900 
00820000 
00820100 
00820200 
00820300 
00820400 
00820500 
00820600 
00820700 
00820800 
00820900 
00821000 
00821100 
00821200 
00821300 
00821400 
00821500 
00821600 
00821700 
00821800 
00821900 
00822000 
00822100 
00822200 
00822300 


AAA AANA Nt Ht A Ht tt tt A tt a tt a tt a ta ss a 


015983. 


0160%0 
016082 
016231 
016434 
0166%3 
016843 
016833 
016833 
016984 
017210 
017233 
O174%2 
0176!3 
0180!0 
018010 


01800 


O180t, 
018440 
01810 
0183t0 
018320 
0186444 
0188i2 
O192%0 
019983 
020313 
020410 
020430 


020480 


020524 
0205314 
020710 
O211%4 
0215%4 
O222!2 
022383 
022633 
022730 
02270 
022710 
022710 
022810 
Q22ate2 
023080 
023083 
O23,%4 
023410 
0236314 
024710 
024132 
024422 
024533 
024930 
O24g%4 
026232 
026510 


@oeee7e2#5#eeeeeeee0e0e808 @8 8 e@ @& (8 fle e® $6 


IF MF THEN 
BEGIN  % MERGE ONLY 
TR «© CCNOT 7) INX [ENT])3 FM & TRUEG 
PCMKS*LVN1sC2XMS)e1sletelsBLOCK)$ PCMKSs(MHNJsRoledelsBLOCK) 
PCMKSsMHK)$ IF NOT AC THEN PCOsCDCeMHKsXCHe RDS#CFX 2093 
PCHIVALU)3 
FOR VLOW © O STEP 4 UNTIL TMy DO 
BEGIN % OPEN TAPES 
CIION * TPEVLOW41323 PREIB * CIIODENOT 213 
PRFIBL13JeC2731) « 13 % SET TO OPEN INPUT 
IF AC THEN PCMKS»(CIIODCINOT 2]3+4eCOFCR) 
ELSE TCLVLOW]+PCMKS,02 3*CIIODsALRD)<O3 
IF PRFIBE51,£39%1)] THEN TcCVLOW] « 1 ELSE ZOPTIONAL 


BEGIN 
PCCTIOD)$ WAITS IF AC THEN INREADS$ 
END3 
END} 
FOR I ¢ 0 STEP 1 UNTIL MSei DO 
BEGIN 


IF — > TM1 OR TCEII THEN vlI] © NFLAGCMHK)@MS(18:33315) 
ELSE VOTIENFLAGCPCTPLI+139&8CIF CAC AND 3)53 THEN 
PC2sNOTsXCHSINXsLODs 209COCS0sXCHeFCX*DIB OeLODel) 
ELSE PCLOOs?)€cTrei 3 
END3 
OPENQUT# IFCAC AND 3243 THEN COIOO « OUTFIL; 
STPP «¢ 2 X MS = 3; 


MERGEITS 
FOR 1 «41 STEP 1 UNTIL TM1 + 1 DO CLOSE LOCK ALL TAPES 
BEGIN CIIOD ¢TP E12) 3 % PG 

P CMKSe2seO0seCCLIODINOT 2 JisdsFCR)3 % PG 
ENDS % % PG 
GO TO SORTNONE; 
END} 


FOR T ¢ COT STEP 41 UNTIL TM1 DO % WRITE OUT DUMMY STRINGS 
IF TNCI] < TCEI) THEN % PERFECT DISTRIBUTION 
BEGIN 
IF cot # I THEN 
BEGIN 
PRFIB ¢ COIODENOT 213 COIQDLO] © FLAGCPRFIB(161)3 
PCCCNOT 2) INX TPEI])+CCNOT 2) INX TPECOTI)>» 


202COM»DELs DEL); 
cOlod © TPCIIJ3 COlOpLO) + 1 INX *COrODs 
cot « [3 
END 


WHILE TNCIJ < TCLIT] Do % PERFECT DISTRIBUTION PATTERN 
BEGIN COION « TPEI] $ PRFIB « COIODENOT 273 
PRFIBCi4] * TBO} PRFIAL9) * OF WRITESTOPPERS 
END; 
ENQ3 
FOR IT ¢ 41 STEP 1 UNTIL TM1 DO 
BEGIN % SET UP TO DO POLYPHASE MERGE 
CliIOn « TPCT] 3 
PCMKS» 2 2Oe(CIIOQDENOT 2)])96sFCR)3 % REWIND OR RELEASE 
ENDS 
PCMKSefVN1]2C2XMS)"1otetelesBlLOck)s STPP ¢ 2xMS"23 MHNe«O3 
PCMKSs(MHN] sRoleteisBLOCK) & HIWKEY 
PCMKSsMHK)5 IF NOT AC THEN PCOsCDCsMHK se XCHeRDSe@CFX20)3 


00822400 
00822500 
00822600 
00822700 
00822800 
00822820 
00822900 
08823000 
00823100 
00823200 
00823300 
00823400 
00823500 
008623600 
00823700 
00823800 
00823900 
00824000 
00824100 
00824200 
00824300 
00824310 
00824320 
00824400 
00824500 
00824550 
00824600 
00824610 
00824630 
00824660 
00824670 
00824700 
00824800 
00824900 
00825000 
00825100 
00825200 
00825300 
00825400 
00825500 
00825600 
00825700 
00825800 
00825900 
00826000 
00826100 
00826200 
00826300 
00826400 
00826500 
00826600 
00826700 
00826800 
00826900 
00827000 
00827100 
00827200 
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027012 
027023 
027441 
0273%2 
027830 
0282'0 
O282t4 
028330 
0283320 
02863 
0289214 
029422 
029810 
029723 
O29at¢, 
030210 
Q3021t0 
030434 
O30ats 
0308%2 
031210 
0316%2 
032030 
0322%4 
032233 
032632 
O328%4 
032910 
O333%4 
033483 
O33at2 
0339320 
033989 
0339%92 
0341!0 
034984 
03429:3 
0343! 
034410 
034730 
0350%2 
0354%2 
O3S54atea 
0355%4 
O355t4 
035730 
O360t! 
036410 
036432 
036633 
0368t0 
036830 
0369!9 
O373% 4 
0375!2 
038033 
O382ta 


TPO: 


TPR 


PCHIVALU)3 
FOR T « 1 STEP 1 UNTIL TM1 DO 
BEGIN % OPEN INPUT TAPES 
CITOON « TPET] § PRFIB © CIIMOODCNOT 233 
PRFIBE137-02781] © 13 PCCIIODsOe11l»COMsDEL»DEL D3 
PCCIIQND)s WAITS PRFIBLi1] © TBO} PRFIBI9} « 03 
CII@Dc0)] + 1 INX *CITOD3 
END; 
FM ¢ TRUES 
FOR I ¢ 4 STEP 1 UNTIL TM DO TF TNECIJ > 1 THEN FM © FALSE; 
IF FM THEN 
BEGIN OPENOUTS IFCAC AND 3)43 THEN COLON « OUTFIL END 
ELSE % OPEN SCRATCH OUTPUT TAPE 
BEGIN COlOD ¢ TPENTIS PRFIB ¢ *({COIOQDENOT 2133 
PRFIBLI3).C27:1] «© OF &% SET TO OUTPUT 
P(COIOQDs0%11sCOM*DEL* DEL); 
PRFIBC11] © TBOS PRFIBC9] * 03 COT « NT3 
PCCOIOD)S WAITS COIODLO] « 4 INX FLAGCPRFIBC161)3 


END? 
COMMENT SET UP VECTOR ROW Of 
FOR I « O STEP 41 UNTIL MS = 4 po 
BEGIN 
IF I 2 7M1 THEN BEGIN EOF « TRUES GO TO TPF END$ 
CIIOD « . TPEIT+1)] 3  PRFIB- © CIIODENOT 233 
IF CEOF « C*CIIOD).£27%211]) THEN GO TO TPF3 
IF ¢ X © C#CPLAGCPRFIBEC161)2)) 40 THEN ZTR*142 
IF NOT ¢ EOF ¢x,£33:15] = 0 ) THEN PREIBIi1} ©X,£18515] ZTR*142 
ELSE ELSE PRFIB8C£11] « TRO 3 PRFEFIB(9} «03 ZTR*142 
IF TNET+123.-= QO OR FOF 
THEN BEGIN &% PG 
VET] eNFLAGCMHK I&MS(18:33215)3 % PG 
IF FM AND I LSS TM1 THEN PCMKSs4e0sCCIIOQDENOT 2llisdsFCR)3 
END % PG 
ELSE VCI] «© NFLAGCPC*TPEI4¢1 7 @1018833215])3 
EOF © FALSE? 
ENQD3 
MERGEIT? 
IF &M THEN GO TO SORTDONE ELSE WRITESTOPPERS 
COMMENT HAVE MERGED A STRING OFF EACH TAPE3 
COMMENT CRECK IF REWIND NEEDED3 
FOR IT« 4. STEP 1 UNTIL TM4 DO TNET) ¢ TNCII]." 43 
FOR I ¢« 1 STEP 1 UNTIL TM1 DO TF TNEI} £ 0 THEN 
BEGIN 4 REWIND IS NEEDED 
PRFIB « COLODCNOT 233 
PCMKSs 2 eOs(COIONCNOT 23326,FCR)3 % REWIND OR RELEASE 
CIIOO*TPLIV3 
PCMKS*4sQeTCIIODCNOT 23354sFCR)3. % CLOSE PURGE 
TNETI] © TNONTIUS.-TNENTI«€ Of 
PRFIBC1L3]e(C27%1)] © 13 % SET FORMER OUTPUT TO INPUT 
% ZTR*142 
PCCOIODsO#11sCOMeDEL»DEL)S % OPEN FoR INPUT 
PCCQIOD)S WAITS coroplo) © 41 INX FLAGCPRFIBL16133 
PCCTPENTII23 TPENT] © TPELIV3S TeOCI] © PCXCH)3. 
gO TO TPO; 
END? 
GO TO TPES 


SORTDONE? 


00827220 
00827300 
00827400 
00827500 
00827600 
00827700 
00827800 
00827900 
00828000 
00828100 
00828200 
00828250 
00828300 
00828400 
00828500 
00828600 
008286700 


00828800 | 


00828900 
00829000 


00829100 - 


00829200 
00829300 
00829400 
90829500 
00829600 
00829610 
00829620 


00829700 


00829800 
00829825 
00829850 
00829875 


00829900 


00830000 
00830100 
00830200 
00830300 
00830400 
00830500 
00830600 
06830700 
00830800 
60830900 
00831000 
00831100 
00831200 
00831300 
00831400 
00831500 
00831600 
00831700 
00831800 
00831900 
00832000 
00832100 
00832200 


AAA AA AA A tt tt tt a a a es 


0386%2 
038633 
038820 
038820 
0394 %4 
039534 
0399%0 
0401120 
040384 
0404%0 
040912 
040933 
04133892 
041382 
O417%4 
041933 
042181 
O424%2 
0427:3 
042733 
0427%3 
043230 
043210 
O434t2 
O43a94 
O44Q%2 
O4data 
044610 
0450!3 
O45a%4 
O453%4 
045530 
046480 
046440 
046520 
046573 


O466%4 


046710 
0469?0 
046910 
046940 
O47484 
O87 620 
047632 
O47 BY 
O4B2t0 
O48 38D 
O4B7 84 
049080 
O49ata 
0492080 
0494380 
04963 
050432 
050230 
O504a%4 
050433 


© 


COMMENT JUST DID FINAL PASS; 


COMMENT RETURN EVERYTHING? 
IF NOT MF THEN 
PCCDOTOPISOCIBS18315] 269112COMsDELeDEL D3 


IF NOT OPTOG THEN 


BEGIN 


POMKSs2sO0e TOUTFILENOT 2) ) 54s FCR) 


‘ea 


BEGIN COMMENT CALL OUTPUT PROCFOURE PASSING END=OF*SORT FLAG} 


END ELSE 


IF AC THEN 
BEGIN ENDQ@ ¢ 43 
P(MKS eB INGOs OsPERFORMGEN ) 


ELSE PCMKSsBINGOsCPRTBASELCPCDUP) I] J>LODsIPFIOXscOC) 


IF NOT AC THEN PCOsOUTFILENOT 2)348%COCsSTO)3 


IF AC.f46%1] THEN 


END ELSE PCMKSs1»MEMsOs0UTPROD3 


END? 


IF NOT MF THEN 
IF OUTCOUNTAINCOUNT THEN PCINCOUNTsOUTCOUNT®s 0» 
CDOTOPENGT 2)1582917eCOM)3 


PC1902COM)3 


% FALL OUT OF BLOCK COM WILL RETURN EVERYTHING 


ENO POLYMERGES 


REAL PROCEOURE DUMPINTCSNsCVsBVe 


VALUE SNe CVeBVs 
REAL SNsCVeBVs 


NAME FIELS&% 


BEGINS 


REAL E=41>% 
VALUEEs+25% 
DHL =43,% 
DHoseded 
LNGTHS+52% 
CSIZES+6 0% 
BCTR=4+7% 

» TEMPs+89% 
NL 349% 

, ] 100% 
TROWS4+ 119% 
COUNTS441 29% 
TARRY#+135% 

N=BVs% 

SINN=933% 

LABEL 

PRINT »% 

PR39% 

BRINs% 

TAs% 

TCP 2% 

TCs% 

IRTNs% 

P2e% 

Pis% 

TBsk 


TIPE» TENS» ALFAsCHARsFIEL sFORMT 5% 
START OF REL SEGMENT# OISK 

TIPEs TENS» ALFAsCHARsFORMTI% 
TIPE*TENS* ALF As CHAR» FORMT 3% 


% COBOL68 


00832300 


00832400 


00833000 
00833100 


00833200 


00833300 
00833400 
00833500 
00833600 
00833700 
00833800 
00833850 
00833900 
00834000 
00834100 
00834200 
00834300 
00834400 
00834500 
00834600 


00900000 


00900100 
00900200 
00900300 
00900400 
00900500 


00900600 © 


00900700 
00900800 
00900900 
06901000 
00901100 
00901200 
00901300 
00904400 
00901500 
00901600 
00901700 
00901800 


06901900 


00902000 


00902100 


00902200 
00902300 
00902400 
00902500 
00902600 
08902700 
00902800 
00902900 
00903000 


T 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
1 


T 


050483 
050483 
050433 
O505%1 
050743 
050833 
O512%4 
051533 
0515%3 
O516%4 
0516!2 
O518%3 
O520%4 
052232 
O524at4 
O524%4 
052433 
O52a7%4 
052910 
O529%2 


SIZE= 0830 


000030 


ADDRESS = 


a a st a A tH 


0000'0 
000040 
000050 
000010 
0000t0 
000010 
000040 
00000 
000020 
000080 
0000'0 
000080 
000010 
000080 
0000%0 
000030 
0000:0 
000070 
000080 
000080 
000080 
000080 
000080 
000030 
000080 
000010 
0000%0 
000010 
000080 
000080 


WORDS 


00197 


TDs% 
P3E» 
TF 9% 
TP2s 
TP3s 
TP2e2 
TPs 
TPB» 
TP5, 
TPL 
TDO1s 
TO2>» 


“TD3» 


TP10 
TPO. 
TP6, 
TP?» 
TP74 


“P 39% 


P3As 
P3L» 
P3ts 


EA % 


EBe% 
EC 2% 
EDs% 
P5,% 
EE 9% 


EFAA 
EFA, 


ERTN 
EFB» 
EFC; 
SWIT 
SWIT 
REAL 
REAL 
NAME 
DEF I 


% 


% 
% 
o% 
% 
% 
% 
ah 
4 
x 
% 
9% 
% 
% 
% 
2% 


z 
% 
% 


0% 
% 
9% 
% 
% 
CH OCSWITCHe TAs TBs TCe TCP TD3% 
CH TIPESWeP3L oP 3EsP3A,P3T5% 
RITEINT=123% 
SELECT=143% 
MaO3% 
NE ISALFA#S% 
SUBROUTINE RITEs% 
BEGIN2 
POCMKSs15020+LNGTHsFIELsRITEINT» 
MKSploOsOe (m1 eFIELSRITEINTs DEL D3 
ENDS2 
SUBROUTINE FINDE 32% . 
BEGIN IF PCVALUEEX@1141000000000000sDUP)#0 THEN% 
BEGIN® 
SINN¢P(DUP202<)3 PCSSPs VALUEEsSNDD3% 
IF PCOsXCHsDIA 3°DIB 42,TRB 6eVALUEE*DIA 2% 
, DIB LsTRB 1912942811571 6 3034761674 yx 5% 
@1154000000000000+4s,E2ISNsDUP)<O THEN GO TO EFB3% 
PCTENS)32 
EFAAtIF P S$ VALUEE THEN GO TO ERTN3GO TO EFC3% 
END3% 
PCDEL)32 
E¢SINN¢O3GO TO ERTNSS 
EFB: PCCHS»TENSs 1lsXCHs/)3 GO To EFAAS 


00903100 
00903200 
00903300 
00903400 
00903500 
00903600 
00903700 
00903800 
00903900 
00904000 
00904100 
00904200 
00904300 
00904400 
00904500 
00904600 
00904700 


00904800 


00904900 
00905000 
90905100 
00905200 
00905300 
00905400 
06905500 
00905600 
00905700 
00905800 
00905900 
00906000 
00906100 
00906200 
00906300 
00906400 
00906500 
00906600 
00906700 
00906800 
00906900 
06907000 
00907100 
00907200 
00907300 
00907400 
00907500 
00907600 
00907700 
00907600 
00907900 
00908000 
00908100 
00908200 
00908300 
00908400 
00908500 
00908600 
00908700 


BAA A tA tt At st At tt a 9 tt st tt ts a a a a 


000080 
000070 
0000!%0 
o000%0 
000010 
0000!0 
000020 
0000%0 
0000t0 
0000t0 
000010 
000040 
a0dat0 
0000%0 
0000!f0 
0000t0 
000040 
000030 
0000%0 
O000tO 
eleleloh ae) 
000070 
000010 
O000!0 
eletelen ae) 
d000tO 
000070 
0c00t0 
000080 
QO00080 
000080 
000020 
0000!0 
0000t0 
000070 
0000t0 
000010 
000080 
O000%0 
000010 
000430 
000410 
0009%3 
000510 
0005 #4 
0006t0 
0007%2 
0008!0 
001080 
001123 
OO13%4 
001589 
001533 
002740 
002140 
0024%4 
0023:0 


eo9eeeeese#etkee0ee8e8e80et6mUmtmUCUHMmUCUCOlmUC WUC MUC OUCUCOUCUCUOULUOULUlUOMClCU 


EFCS EeEelss 
FRINGES 
ENDS % 
SUBROUTINE OUTI#4 
BEGIN FINDEs3% 
PCVALUEEs DHIsISDIs% 
STREAMCPBCOTP7 eS INNA POFLVALUEE] sPSeSINNe PGeOeP 36% 
E+1+SINNsP2¢0 sP1¢BCTRI3% 
BEGINS 
Pe(DpSeLIT™ "93% 
PLEDIZSIepOsDSeP4 DEC SIeP63ST«S1+83% 
DS¢P3 DEC PBHDIFSTePLI Ole P 13% 
P7CIF SC#"O" THEN JUMP REAL TO IA3% 
DSeLIT " "3S TeSI44 73% 
TAtS1TeLOc P4sSteSimisIF Sca"i" THENY 


BEGIN’ 
OleDI-134 
DSeLITtH%5% 
END3& 
ENDSBCTREPSZ 
ENDS% 
SUBROUTINE BLNK#&% 
REGINA 
STREAMCP3¢CSIZEsP24CSIZE DIV 64sPieC(BCTRe*FIEL INX 0) 
YF% 
BEGIN’ 
P2C32¢0Se2 LIT™ "393% 
P3CDSeLIT™ ")3% 
END3% 
ENDS% 
TF FORMT=5 THEN DUMPINT¢*F TEL ELSES 
BEGIN FPC02020 13% 


TF MUMCFIEL INX NOT 2] INx $3,.043%13 THEN’ 
POMKS»OsOsFIEL et sSELECT)&&% 
IF PCMKSslsOQsOeC™1LIsPIELsRITEINT*#DUP)>16 THEN PCDEL»16) 3 
IF PCOUP) <4 THEN PCyxIT)3% 
PCDUP®Bsxe02Q JF BLNKSS 
BRING GO TO GCSWITCHECFORMTJ3% 
TA? STREAMCBCTREACALFA 93 BEGIN DI«BCTRSS 
SI*LOC A3SIeSI+13 DS«?7 CHR ENDS% 
RITEsPCXIT 3% 
TOP’ IF CTEMPeTEMP+1)<5N THENS 
IF PCTEMPrL{eNOTs (OVI a INX*LODIAPCTEMPEN@ 4 eNOTe COV I 9% 
INXeLO00) THEN PCXIT) ELSE GO TO TcPss 


TC: STREAMCBCTRIACALFA 23 BEGIN DIeBCTREZ 
SI*LOC AsSI#SI4143 DSe6 CHRIDSe% 
Lites BCTReDI32% 


END}. BCTReP;% 
VALUEECPCN@™1LeNOT*e LCVIsINXsLOD 3% 
OUT Is% 
TRTNS [eOs% 
Pet IF (Ie I+49<N THENS 
BEGIN3 STREAM(B+O $ BCTRI3% 
BEGIN DSe 41 LIT", "3 BeD!I ENDS BCTREP3Y% 
VALUEEePCN@IT"4,eNOTs CCV] 2 INXelL OD) 3% 
OUTIZ3GO TO P2s ENDS 
P41? VALUER eCv3% 


00908800 
00908900 
00909000 
00909100 
00909200 
00909300 
00909400 
00909500 
00909600 
00909700 
00909800 
00909900 
00910000 


009101400 


00910200 
00910300 
00910400 
00910500 
00910600 
00910700 
00910800 
009140900 
00911000 
00911100 
00911200 
00911300 
00911400 
00911500 
06911600 


00911700 — 


00911800 
00911900 
00942000 
08912100 
00912200 


00912300 — 


00942400 
00912500 
00912600 
00912700 
00912800 
00942900 
00913000 
00913100 
00913200 
00913300 
00913400 
00913500 
00913600 
08913700 
00943800 
00913900 
00914000 
00914100 
00914200 
00914300 
00914400 


a es tt A st st tt a a tt 


0024:3 
002620 
002610 
0026%1 
002710 
002830 
002883 
0030%2 
Q0032%2 
O032%e 
0033323 
0035%4 
0036%e2 
003830 
0039%0 
004920 
004030 
0040'4 
0040%3 
004083 
004142 
004443 
0042:0 
0042130 
004410 
004530 
004510 
004633 
004810 
O04Btt 
004832 
0054%14 
Q052%e 
0056!%0 
005820 
006423 
0063%4 
006630 
006982 
007420 
0072:0 
OO73%4 
Q0075t0 
0079%0 
0080%?2 
008230 
0082:3 
0083%2 
008431 
0086%2 
00880 
008833 
0090%2 
009231 
009333 
009682 
00G8ta 


STREAM(B+Ot BCTR)3% 
BEGIN DSe2 LIT"J="3BeDI ENDS BCTREP3S 
GO TO P33% 


TB? VALUEE+BV32 
STREAMCBCTREALFA 23 BEGIN OL+BCTRIS% 
ST*LOc ALFAsSTe#SI+13 DS¢6 CHRIDNSel LIT*a5% 


. BCTReDI% 
END3 BCTReP3 GO TO P33% 
TD: STREAMCBCTREALFA )3 BEGIN DI+BCTR3% 


SI*LOC ALFASSTe+SI+13 O5¢6 CHRIOSe1 LITE 52 
BCTReDl4Z 
ENDS BCTReP3Z% 
RITE} BLNKIS 
TF: PCCLNGTHx8) DIVCIF TYPEsO THEN 6 ELSE IF TIPE=12% 
THEN 19 ELSE IF TIPE= 2 THEN 9% 
ELSE 14)9#020r02020"DEL» DEL )3% 
PCLTARRYJ&C2xN+1) £89382 10] 3 108% 
TP2! PCO)s% 
TP3: IF CleI+#19<N THEN GO TO TP23% 
1¢O7P(Os.CVeiODIIGO TO TPL3% 
TP22IP COs ,sTEMPeLODeLODI3% 
TP43PC,TEMPsSNDeDIA 8,DIB 38s TRB 1OIFIF CIel4#1)<N THEN’ 
GO-TO. TP223%. 
TPBS TeOsPC.CVst OD) 7% 
TPS: [FCTeL+1)<N THEN 
BEGINS 
PCIsTARRYsCoCslLODIsGO TO TP5% 
ENDs% 
TROWGP? JeO3% 
TPLLEPCJISVALUEE*®TROWIGO TO P3s% 
TOL? IFC JeJ+1)<PCNsDUPs+sTARRY) THEN GO TO TP73%- 
RITEsSBLNK3% 
TO2: RITESBLNK3% 
TO3: PCO». COUNT»SNDI3GO TO TPA3% 
TP1O% IF PON*1e TARRY s2xN=TeTARRY¥s12%-2.5) THEN GO TO TP9O3% 
PCN@TsC TARRY] ¢DUP2COCe le teXCHe¢)4G0 TO TPB3S 
TPOt PCOeN@Te£ TARRY Jeena T 3 
TP6? IFCE*PCi++))8N THEN PCXIT) ELSE GO TO TP103% 
TP7: TE CCOUNT*COUNT+1)4NL THEN GO TO TP113% 
RITES BLNK3% 
TP71:COUNT«O3GO TO TP113% 
P3: GO TO TIPESWETIPE]3% 
P3A: STREAMCBCTREVALUEE)3 BEGIN DIeBCTR3% 


STeLOC VALUEEsST*+SI+13DSe2 LIT" "3 OSe7% 


CHRSBCTReD IFS 
ENDS BCTReP3GO TO P53% 
P33 STREAMCVeVALUEE AND 4:BCTR)3 
BEGIN DS¢6 LIT ™ PALSE*S 
VOplepIe53 pSe5 LIT "TRUE )3 
VODs 
END} BCTReP3GO TO P53% 
P31% IF VALUEE < @7777777777777 THEN 
BEGIN PCVALUEE»s VALUEE* ISN DUP 2 Or <a eSINNeeed 
SSP» .DH2s5ND2@1045753604000000sDIV,% 
DHL 963% 


STREAM(PB¢COSP7@11>P6eLDH1] »PSESINNe PO eds P 368 oP 262% 


PL]OBCTRIZ% 


00914500 
00914600 
00914700 
00914800 
00914900 
00915000 


00915100 
00915200. 


00915300 
00915400 
00915500 
00915600 
00915700 
00915800 
00915900 
00916000 
00916100 
00916200 
00946300 
00916400 
00916500 
00916600 
00916790 
00916800 
00916900 
00917000 
00917100 
00917200 
00917300 
00917400 


00917500 — 


00917600 
00917700 
00917800 
00917900 
00918000 
00918100 
00918200 
00918300 
00918400 
00918500 
00918600 
00918700 
00918800 
00918900 
00919000 
00919100 
00919200 
00919300 
00919400 
00919500 
00919600 
00949700 
00919800 
00949900 
00920000 
00920100 


a st ae a ss te 


009984 
010032 
0102%0 
010232 
Q0103%4 
0104633 
010610 
0104!1 
Q107%2 
010940 
Olio 
011082 
Ol12%4 
011310 
O116ti 
O119%4 
012250 
0125490 
0125%4 
0127432 
0129%2 
0130%2 
013342 
013470 
013584 
013710 
013782 
O139%O 
01.3920 
O1dors 
014133 
0144%3 
014730 
O1a9to 
O150%4 
015434 
O1574¢ 
0159%0 
0161314 
016382 
0166!0 
O167%14 
0170814 
0171423 
017233 
017334 
017432 
O176%1 
O177%4 
0179%1 
017912 
018083 
018432 
0184%0 
018584 
0185%3 
0188%0 


@oeee#eeceeeee#eeeee6eee¢e@6 


P3E: 


ECs 
ED? 


ENO DUMPINTS% 


BEGIN’ 00920200 T 018882 
P2CDSeLIT™ ")3% 00920300 T 0188tp 
PLleDI3% 00920400 T 018933 
ST#P63% 00920500 T 019080 
DS*PA DEC; SI#POsS1eST+8530SeP3 DECIS 00920600 T 019084 
PREDIFSTePLINIePLsy 00920700 YT 019433 
P7CIF SC#"O" THEN JUMP REAL TO IA3% 00920800 T 019232 
DSeLIT " "3 STe#ST41)3% 00920900 T 01940 
TALtSI©LOC P4sSreSImi31F SC="%1" THENY 00921000 T 019530 
REGINS 00921100 T 019610 
DISDI"1SDSELIT 3% 00921200 T 0196%0 
END3% 00921300 T 019633 
ENDSBCTREP$ GO TO P53% 00921400 T 019633 
ENDS% 00921500 yr O200!0 
FINDE3 DH2+03% 00921600 tT 0200%0 
Fe: IF PCVALUEEsE* Lis »DH22+eDUP)<0 THENS 00921700 T 020433 
BEGIN PCCHS»sTENSsMUL)% Go TO ED END3% 00921800 T O0204!0 
PCTENS#/)3 00921900 T 020533 
IF PCDUP) § @7777777777777 THENS 00922000 tT 020631 
BEGINS 00922100 T 020730 
PC.DH1eISN)3% 00922200 rT 020732 
IF PCDUP) 2 PC12"DH2, TENS) THEN 00922300 T O208!0 
BEGIN% 00922400 tT 020982 
PCDEL 3% 00922500 T O210%0 
PC1L"°DH2e TENS» sDHisISN)3 00922600 T O210%4 
Fe E + 13% . 00922700 T 0211433 
ENDES 00922800 T 021350 
PC®1045753604000000r+ IDV» .VALUEEs © )3 00922900 T 021380 
STREAMCPLIOFOLPOCABSCE) pPBECE<O) sP7¢SINNS POGDH2s% 00923000 T O214%0 
P5S*¢(VALUEE] pPA*4=DH2eP3¢8,P2¢2,PL4BCTRISS 00923100 tT 021632 
BEGINS 00923200 tT O218!2 
— PACDSeLIT™ "PSPLODISSIELOC POFSTeSIM#15% 00923300 T O21R%2 
IF SCH%y ty 00923400 T O0220:2 
THEN BEGINY% 00923500 T 022033 
DTeOI 1s OSeL IT 99% 00923600 T 022430 
END?% 00923700 T 022433 
DI*DI+1s3STePSIDSEP4 DECHSLePS3STeSl+83% 00923800 T 022133 
DSe«P3 DEC3% 00923900 T 022384 
POCDOSeLITMOM)3S 00924000 T 022333 
DSeLIT"A";% 00924100 T 0225:0 
SI*LOC P73SreSIw13% 00924200 yr 022532 
IF SC#"1" THEN DSeLIT@=" ELSE DSeL ITH" 3% 00924300 T 022620 
SI*LOC P93DS¢2 DECS PLOSDITZSI+PisSleSl4+13 00924400 T 022783 
DI©PISOSeCHRIOSELIT, M3E 00924500 T 0229:0 
ENDS BCTRePs% 080924600 T 0230!0 
PS: IF FORMTs4 THEN GO To TD13% 00924700 T 023033 
RITES POCXIT)3 END3% 00924800 T 0232%0 
PCDEL)SDH2*DH2413G0 TO EB% 00924900 tT 023384 
END3% 00925000 T 023810 
00925100 7 023810 
SIZE= 0239 wORDS 


PROCEOURE XTOTHELINTCBASE sEXPON* MeL OGs EXP) 3% 


01000000 r 0000!0 
START OF REL SEGMENTS DISK ADDRESS = 00205 


\ 


VALUE BASEsEXPONsMsLOGs EXP 3% 
REAL BASE*EXPONSMs LOGS EXP3% 
BEGIN LABEL ROWSsMORESEXITIS 
REAL CTR=+lsF2=423% 
IF EXPON-* 0 THEN# 
BEGIN BASE © 13 PCXIT) ENDsS% 
IF BASE = 0 THEN PCXIT)3% 
IF EXPON,£3:35] # O THEN% 
BEGIN BASE © PCMKSsBASEsLOG»sMKSeCTReEXPONs Xo EXP) 3% 
PCXIT)3% 
END3% 
PCLsEXPON*BASE*DIA 38% DIB 39*EXPON)3% 
ROWS:8 IF PCOsXCHeFCE 9) THEN 
BEGIN PCDEL)s4 
MORE$3 IF (CTR © CTR*1) = 0 THEN GO TO EXIT3% 
PCMUL 34% 
GO TO MORES% 
22% 
END3% 
PCDELIS% 
IF EXPON THEN 
BEGIN CTR « CTR+13% 
PCDUP)3% 
END3% 
PCDUP»MUL* Os EXPONe TRB 92 ,.EXPONSSND) 3% 
GO TO ROWS3% 
EXITS: IF F2 < 0 THEN PC1*XCHe/)34 
RASE © P3% 
END3% 


PROCEDURE STATUSINT(T»C)# VALUE T»Cs REAL T3 INTEGER Cé 


01001000 


01002000 
01003000 
01004000 
01005000 
01006000 
01007000 
01908000 
01009000 
01010000 
01011000 
01012000 
01013000 
01014000 
01015000 


01016000 


01017000 
01018000 
01019000 
01020000 
01921000 
01022000 
01023000 
01024000 


01025000 


01026000 
01027000 
01028000 
04929000 


01100000 


START OF REL SEGMENT? OISK 


BEGIN PCTsCe28eCOMeDELsRTN) ENDS 


REAL PROCEDURE ABSINT(X)3 VALUE X3 REAL X3% 


01101000 


01200000 


START OF REL SEGMENTS DISK 


BEGIN PCABS(X)eRTN) ENDSS 


REAL PROCEDURE SIGNINTCX)$ VALUE X53 REAL X32 


01201000 


01300000 


START OF REL SEGMENTS DISK 
01301000 T 00000 


BEGIN PCSIGNCX)*RTN) ENDS® 


rT oO0odgFO 
y Q000f0 
T O000%0 
T 000020 
rT O000f0 
rT 000033 
T 0002813 
yT 000343 
y 0005306 
T OO08f0 
T O0008%4 
T O008%4 
T 000923 
T 001033 
Yr QO011%2 
T OO14%4 
y OoLate 
T 001510 
7 001580 
yr 001540 
T 001584 
y 0015%2 
T O0O417%4 
rT. QOO17%2 
T 001782 
T OO19%1 
T 001983 
rT 002133 
y 002234 
S1ZE= 9023 


‘T 000040 
ADDRESS = 
Tr 9000%0 
SIZE= 0002 


T 000030 
ADDRESS .= 
rT ooo0to 
S1zZeE= 0002 


T 0000!0 
ADDRESS = 


SIZE= 0003 


WORDS 


00206 


wORDS 


00207 


WORDS 


00208 


wORDS 


= 


INTEGER PROCEDURE ENTIERINTCX93 VALUE X# REAL X32 
BEGIN ENTIERINT «© x™,5 ENDS% 


REAL PROCEDURE TIMEINT €X)3 VALUE X3 REAL X3% 


BEGIN PCXs1s CUMsRTN) ENDI% 


PROCEQDURE DELAYINTCARRY?* MASK» TIME)3% 


VALUE ARRYs» MASK» TIMEs% 
ARRAY ARRYf*1]3 REAL MASK3 INTEGER TIME3% 


BEGIN POLISHCARRYs MASK» TIME» 31» COMs DEL» DEL» RIN) ENDS% ZWF 


PROCEDURE SQRTINTCX)3 VALUE XS REAL X#¥% 


BEGIN REAL Ye+leZe423% 
LABEL PSsQNE3% 
DEFINE INNER & XCH*# MUL» DUP 2 Ye XCHe /H0% 
ITER = PC +eP5*# INNER) 3% 
IF xX<Q THEN PC42269COM)3 % ARGUMENT CHECK 
IF PCABS¢€X)s0DUP) #4 O THENY 
BEGIN PCONEs +9DUPsOenELs% 
DIA 7s DIB 455 VFI 3 7e Yok 
DIA 2 TRE 1+ ONE +e LOD % 
YesQUPsNIB 3eTRB 6*eXCHse INNER) 3% 
ITERSITERSITERSY 
P(ZemePSexete) 3% 
END 3% 
PORTND 3S 
P5223 @11540000000000003% 
ONE S82 ©177000000000000124 
@©1235560000000000s% 
@1233250000000000s% 
@©4922000000000000,% 
@1221150000000000s% 
#0155560000000000+% 
©0153250000000000s% 
204520000000000002% 
@07{511500000000003% 
ENDs% 


01400000 T Q000%0 
START OF REL SEGMENTS OISK ADDRESS = 


01401000 T 0000:0 
S1Zes 0003 


01500000 tT 000080 


START OF REL SEGMENTS DISK AQDRESS = 
01501000 r o00080 


SIZE= 0002 

WF 01600000 T oO00010 

START OF REL SEGMENT$ DISK: ADDRESS = 
aWF 01601000 tT 000080 

SWF 01602000 yr O00OtO 


01603000 T 0000%0 
SIZES 0003 


01700000 Tr 000080 
START QF REL SEGMENTS DISK ADDRESS = 
01701000 T 000080 


01702000 T 000030 
01703000 T O0000%0 
01704000 F O000t0 
BIA 01705000 rT 000030 
01706000 y 000280 
01707000 rT 0003914 
01708000 r oO00S5t0 
01709000 T 000630 
01710000 T QOQ07%4 
01711000 T 001030 
017412000 T 00160 
01713000 T OO17%4 
017144000 T O017%4 
01715000 T 001782 
01716000 YT 001980 
01717000 tT OQ20t0 
041718000 T 0021%0 
01719000 fT O022t0 
04720000 Y 002310 
04721000 T 0024:0 
01722000 T 002580 
01723000 T 0026!0 
01724000 Tr Q0271t0 
01725000 T 002810 
S1ZE* 0029 


00209 


WORDS 


00210 
wORDS 


o02t1 


WORDS 


00212 


WORDS 


DEFINE SINCOSeODY =% 


PCL)5 


IF X 


IF X 


% 
< 0 THENS 
BEGIN X «© #X# PCCHS) ENDs% 
2 PCPI) THEN’ 
BEGIN PCNQOP)#% 
IF PCX/PCPI)*PCKALF)* DUP)>PCMAXT) 
THEN PCLITERAL*» 26» COM)3 
IF I «¢ POLISH THEN PCCHS)3 


PI 


X © X MOD PCPI)3% 
ENDS% 
IF X 2 PCPIHAF) THENZ 
BEGIN PCCHS)3% 
X @ X=PCPI)3% 
ENDS% 


IF ABSCX) < ,000001 THEN PCZxX#RTN) 3% 


P(XsDUPs%& 


%We 
SWE 
SWF 


xe DUP a Ki eNOP ex eK2n eo TeX eK ote TeX a Kin ms TaX eK Sate Te Xe KOs Mo Te 


Kale De teXexe Ze XCHe Xs RTINIFZ 
$2@ 4£14311037552462103% 


PIHAFS£3@ 114144641766521043% 
HALF 333@ 11540000000000003% 


Kt 
Ke 
K3 
K4 
K5 
K6 
MAXT 
Hi% 


$3@ 12712452344311133% 
r32@ 12532700053206243% 
12356167162011775% 
12164006376341503% 
11742104210411023% 
11512525252525243% 
OOO7T7I7T7777777773% 


as 88 «8 
os we oe te se 
os 2 888 oe 2 
DDD DD 


2 2 


PROCEDURE SININTCX)4 VALUE X$ REAL X32 


BEGIN REAL Te+2sZa413% 


INTEGER I=T3% 

LABEL PI»PIHAF sHALF 3% 
LABEL. Ki sK2 eK 32K4a eK 5s KG} % 
LABEL MAXI3% 

DEFINE LITERAL = 483 
SSINCOSBODY3Y 


ENDI® 


PROCEDURE COSINT(X)3 VALUE X3 REAL X3% 


BEGIN REAL Ta+2sZe413% 


ENDs% 


INTEGER TST3% 

LABEL PIePIHAF »sHALF3% 
LABEL Ki eK2eK32K49K5 9 K65% 
LABEL MAXIT3 


DEFINE LITERAL = 583 


X © X+PCPIHAF snNOPeNGPsNOP)3% 
SINCOSBODY3% 


START 


START 


2WF 


01800000 
01801000 
041802000 
01803000 
01804000 
01805000 
01806000 
01807000 
01808000 
01809000 
01810000 
01811000 
01812000 
01813000 
01814000 
01815000 
01816000 
01817000 
01818000 
018149000 
01820000 
01821000 
01822000 
01823000 
04824000 
04825000 
01826000 
01827000 
01828000 
01829000 
01830000 


OF REL SEGMENTs DISK 


SWF 
2WF 


04831000 
01832000 
04833000 
01834000 
01835000 
01836000 
01837000 
01838000 


01839000 


OF REL SEGMENT3 DISK 


Swe 
SWF 


01840000 
01841000 
01842000 
01843000 


01844000 - 


01845000 


01846900 © 
01847000 — 


01848000 


T 
J. 
T 
T 
T 
T 
is 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
A 
T 
T 
T 
T 
T 
T 
T 
T 
I 


SIZE= 0037. WORDS 


T 


000080 
000030 
000010 
000080 
000040 
0000f0 
00000 
000040 
000080 
000010 


0000%0 


000080 
000080 
0000t0 
000080 
000010 
000020 
000080 
0000t0 
000080 
0000!0 
000030 
000030 
0000!0 
000080 
000080 
0000!0 
000080 
000010 
0000%0 
000040 


DDRESS = 90213 
r §~-900080 


000080 
000040 
o000to 
epelelen ge) 
000080 
0000°0 
003490 


000080 


ADDRESS = 00215 


— 


T 
T 
T 
T 
7 
T 
T 
T 
SI 


0000%0 
0000!0 
0000%0 
000080 
000080 
0000t0 
000030 
0002!0 
0036#0 


ZE= 0039 WORDS 


oeeee3ao3aeo3aeoeeweeweewmeememlcemrmlemlcmmlUlclClchlUlctlCrP 


COMMENT ARCTAN INTRINSIC. FOR ESPOL 2% 01900000 T O00Rt0 

REAL PROCEDURE ARCTANINTCX41)3% 014901000 Tr O0000!0 
START OF REL SEGMENTS DISK ADDRESS = 00217 

VALUE X43 REAL X13% 01902000 T. o0g00%0 

BEGIN REAL Ta+leDePI2eARCy3% 01903000 Tt 90000!0 

LABEL LisQNELsPIHAF sAsBeARCAs ARCB»TENMG3 01904000 T aQ0Q0dgt0 

LABEL KLisK2eK 32K 4 KS ek Oak 73 ¥ 01905000 rt oo00dagtO 

NEFINE ONE = PCONEL #32 01906000 T O000!0 

REAL X3X15% 01907000 T O000%0 

PCDIA 1s0I18 133% 01908000 TFT dO000%0 

IF ¢T ¢€ ABS(X)) > ONE THEN? 01909000 T 000,180 

BEGIN PI2 ¢ PCPIHAFsyxsTRB 193% 019160000 +r 000310 

IF T 2 PCLL) THEN PCX#0)% 01911000 7 000483 

ELSE PCABS(X¢*(QNE/X) 293% 01912000 fT 09006!3 

T « P3% 01913000 T O009%0 

END3% 01914000 tT Q009!%2 

IF T < PCTENM6) THEN POX+PI2eRTND3% 01915000 T 000912 

IF T > PCK1) THEN? 01916000 7 0014:3 

BEGIN IF T < P(K2) THEN PCAsARCA) ELSE PCBsARCB)3% 04917000 T O012%2 

D © PCXsTRBE LseARCYsSNDe TRB 193% 01918000 7 001533 

X © CX*DI/COXxXX4+QNE 2% 01919000 T OQQ17!2 

ENQD34% 014920000 T 0020%4 

PCXsDUPs% 01921000 T O020%1 

Kae TrSND eK ex eKGsto Tox oKSy™oTaXsKinta TeX eK? ome Tl eXs ONE reed 01922000 rT 002033 

Xe Ko tate RInr 3% 01923000 T 0026!2 

ONEL £230 11410000000000003% 01924000 T 002713 

Li £33@ 06310000000000003% . 01925000 T 0029%0 

K4 $220 11512105741756623% 01926000 T 0030:0 

K2 £23@ 1154047010244, 407;% 04927000 T 0034:!0 

K3 $2£3@ 31653544246705533% 01928000 T 003230 

KA £226 11670636343670063% 01929000 T 003330 

K5 228 LISLALL 10473645052 01930000 7 0034%0 

K6 £248 11514631463001263% 01931000 T 0035140 

K7 $92@ £1525252525252353% 01932000 7 0036!0 

PIHAFS23@ 11414441766521043% 01933000 T 003780 

A $23@ 11524626757732233% 01934000 rf 003810 

B Pete £1556377260731713% 01935000 T 0039%0 

ARCA 224@ 115240662756647 232% 04936000 tT 0040180 

ARCB $32@ 1155015457355165 3% 01937000 fr 004130 

TENM6233@ 12320645736405545% 04938000 T O0421%0 

END3% 01939000 T 004310 
SIZE= 0044 WORDS 

COMMENT LN INTRINSIC FOR ESPOL3% 02000000 tT 0000!%0 

PROCEDURE LNINTCX)3 VALUE x3 REAL x3% 02001000 T O000!0 
, START OF REL SEGMENTS DISK ADDRESS = 90219 

BEGIN LABEL Lislh2eL3eKiSekK169K {7 eK182K193% 02002000 rt ad0d0!0 

LABEL KON Kt KO eK 32KG KS aK6aK7 PKB K109K112K129K1 39K 45% 02003000 r 000080 

LABEL MINS 02004000 T 000030 

DEFINE ONE = PCKON) 43% 02005000 TFT 0000%0 


REAL 


3: 


Liss 
L2t 


MIN? 
KONS 
Ki ¢ 
K2.% 
K4& 3 
K3 3 
K5 § 
K6 $ 
K7$ 
K8 $ 
K10% 
K11% 
Ki2t 
K133 
K14! 
K15% 
K16% 
K1i7% 
K18% 
K193 
END} 


IF XS8$Q THEN PCXsO232DUP e+ % ARGUMENT CHECK ZITA 
IF €X © ABSCX+PCMIN)))> P 
IF X < P( K2) THENS 

BEGIN PCOs0)3% 
PCX)3% 
GO TO L2sz% 
ENDS 
POX eC 3St6VAXCLIE22L I +1 2eDUP eK3exeXCHe DUP a +) 9% 
IF ¢X¢X&7602244373) 2 PCK7) THEN BEGIN2 
IF X 2PCK10) THEN SEGIN P¢eKideteK13)3 GO TO LL ENDSS 
BEGIN PCK1i2e+sK11)3 GO TO Li ENDS ENDS 
IF X 2 PCK4) THENZ 
BEGIN PCONEs+sK8)3 GO TO Li END3S 
IF X $ PCK2) THEN GO TO L3s% 
P(KOe+9K5)5% 
POX eX )4% 

PCONE ss DUPs KL asta 
/sDUPsDUPsNOP 2% 

Ke aX SND AKL Saxe KL Oe ee Xa Xela be Xe Ks Ki Gabe Xe xe Ki de ta & 
NaXe kK Lag teXCHexete te RTNs% 

$2@17700000000000013% 

3@1141000000000000i% 

$28114561657574752612% 


mom. 


SPO1412213274360773% 


£3011420737166643203% 
$3@41650531077167265% 
32041454664 26297706763% 
73411540000000000005% 
$2@11433730343555423% 
$$@1415274265 30664 323% 
$2811456022664405573% 
$2@11546217416711133% 
$28114140000000000032 
$2041510522525216773% 
$2@11420000000000003% 
$$@11514066577270334% 
$22115161554210740742% 
$3@1152222224 36661032 
$3@14531463146253775% 
$:211552525252525305% 


% : 


COMMENT EXP INTRINSIC FOR ESPOLS% 
PROCEDURE EXPINTCX) # VALUE X 3 REAL X3% 


BEGI 
REAL 


02006000 
02007000 
02008000 
02009000 
02010000 
02011000 
02012000 
02613000 
02014000 
02015000 
02016000 


02017000 © 


02018000 
02019000 
02020000 
02021000 
02022000 
02023000 
02024000 


02025000 


02026000 
02027000 


02028000 


02029000 
02030000 
02031000 
02032000 
02033000 
02034000 
02035000 


02036000 ° 


02037000 
02038000 


02039000 © 


02040000 
02041000 
02042000 
02043000 
02044000 
02045000 
02046000 


02100000 
02101000 


START OF REL SEGMENTS DISK 


N¥ 
Q = +45 Z sete EX = +25 BeBe YoeSe T = 423% 


LABEL KOsKIsK2sK3eK4eK Se K Oe HALF 3% 
LABEL MAX3 


LE 
IF X 
PC X 


X ¢ PCKO). THEN PCRTIN)33 
>PC MAX) THEN PC3s 262 COM)3 AWE 
eKiexe aXe SnNDe HAL Fe "e+ eZ ISNe CHSeX ate aXe SND od 


DUP eNOPsxeDUPsK2eNOP a xaK Jota ToxeKaatra Ts KS ade TeNOP 2s x0 X% 


02102000 


02103000 
02104000 
02105000 
02106000 
02107000 
02108000 
02109000 


T 900040 
T 000320 
rT QO0aQ5tO 
T O00H8%1 
Ty 0007414 
7 000780 
y ooogRtO 
T 000810 
Tr 001493 
T OO01482 
y Q01740 
T QOO1st4 
T OO019%0 
T 002033 
y 002210 
T 002283 
T 0023%2 
T . 002413 
T 0025323 
T 003092 
T 003923 
T OO0341t0 
T 003810 
T 003610 
T 003710 
7 003810 
ry 003910 
T oo4oto 
T 004480 
y 004310 
T OO43190 
T OG44t0 
T 004830 
tT 004610 
T 0047340 
T 004810 
7 O04910 
T OO50!0 
T 0054!0 
+ 005210 
y: 005340 
SIZE= 0054 


T 0Q00%0 
T 900010 
ADDRESS = 
000080 
000080 
0000!0 
000040 
0000!0 
000433 
0003383 
0007%4 


SS Eee) 


wORDS _ 


00221 


@®eeeeeeee?ese»seeeeeee @ | ee | eo © @ 6 


KOsteXeXesDUPs Bete Bo Qe eNOPa/eDUPeOsDELeP,f 38 
Ze3eDIVets gEX » SNDe P & PLosit1)8ExXl 3342 
Z93s MODsOUPs +e .EXe SND2Os% ) 3% 

IF P THENZ 

BEGIN IF 2 < 90 THEN PC Exe /sCHSsRTN)3% 

P ¢ Ex» x )3 END} P CRIN)3% 


6] 
36 


KOtss @ 3121520000000000 3% 
K4ss3 @ 4141342521662454 32% 
Koss: @ 1135326737175655 3% 
Kate: @ 1102360633500106 3% 
Kai: @ 1075621717466364 3% 
K5i3t @ 41115543241314444 3% 
K6its @ 1072002411247315 4% 
HALRees @ 1154000000000000 32% 
MAX3 22 @ 4122360000000000 3; 


END EXP INT 3% 


PROCEDURE GOTOSOLVERINT CLs XeFeB3% 


VALUE LeXeFeBs REAL LaXeBs ARRAY F*I13% 
BEGIN IF L # 45 THEN 

L © L&CFICIBt 332 151aBL Bs 388 1013% 
ENDs% 


REAL PROCEDURE MAXINTCX)32% 


VALUE X} REAL Xs% 
BEGIN REAL RCW=405 SIZEs+1— JUNK=4+23% 


POLISHCRCWs FCX» CROW] INX NOT 4 INX Os XCHe SUBs Os X)3% SWE 


WHILE SIZE>0 DO BEGIN PCODUP)32 
JUNK © #(PC,X)4#SIZE)3% 
IF POLISH<CJUNK © JUNK) THEN PCDELs ODUP)3% 
SIZE « SIZE13% 
END3% 
POLISHC RIN) 3% 
END MAXINT3% 


REAL PROCEDURE MININTCX)3% 


VALUE X3 REAL X3% 
BEGIN REAL RCWHtOe SIZES+t > JUNKS423% 


&Y 
Js 


C 
% 


POLISHCRCWs FCX»s CROW] INX NOT 1 INX O+ XCH*e SUB» 


WHILE SIZE>0 00 BEGIN PCDUPD3% 
JUNK © #CPOC,XI4#SIZEDF% 
IF POLISH>(C JUNK ¢ JUNK) THEN PCDELs DUP)3% 


001240 


L22c1 35% 02110000 fT 
02111000 T O01781 
02112000 T 9020892 
02113000 Tt 002233 
02114000 T 002243 
02115000 T 002882 
02116000 T O026%4 
02117000 T 002810 
02118000 T 0029%0 
02119000 ~ 003030 
02120000 + 003410 
021421000 fF 003210 
02122000 T 003380 
02123000 T 003410 
02124000 T 003510 
02125000 tT 003610 

SIZE= 0037 


02200000 T 000080 
START OF REL SEGMENTS DISK ADDRESS «& 
02201000 T 000010 
02202000 T 000080 
02203000 fT 900033 
02204000 T 000333 


SIZE= 0004 

“WF 02300000 T o000t0 

START OF REL SEGMENTS DISK ADDRESS = 
“WE 02301000 t 000010 

SWF 02302000 T 000010 
02303000 T O000t0 

SWF 02304000 7 000384 

%WF 02305000 T 000413 

“WF 02306000 T 0006! 

Zwr 02307000 T 0008!4 

SWF 02308000 T 000912 

SWE 02309000 T OO0L0t0 

SWF 02310000 tT O01081 

SIZE= OO14 

Swe 02400000 T 0000%0 

START OF REL SEGMENTS DISK ADDRESS = 
SWF 02401000 T 000080 

SWF 02402000 7 0000!0 

Os X)3% SWF 02403000 T O000!0 
SWF 02404000 T 000384 

SWF 02405000 T 000413 

%WF 02406000 tT 0006t4 


WORDS 


00223 


WORDS 


g0224 


wORDS 


00225 


SIZE © SIZE"13% 
END3% 
POLISHCRTN)3% 
END MININTSS& 


PROCEHURE SUPERMOVERINTCSORCEs DEST» 


aWF 
aWE 
AWF 
aWFr 


AEXP)3% “SWF 


02407000 
02408000 
02409000 
02410000 


02500000 


START OF REL SEGMENTS OFSK 


VALUE AEXP3 INTEGER AEXP3 ARRAY SORCEL*)» DESTC#I1;% SWF 
BEGIN INTEGER T3+13% “wr 
POLISHCSORCE, C8210} DEST.(83103393% SWF 
IF PCQUPI<T THEN PCXGH)2% awe 
IF PCMEL» DUP)>AEXP THEN T © APXP32 %WF 
IF. T>0 THEN Swe 


STREAM(P4¢Ps P3@P(DUP) C3686)» P2eLSORCELOIIIPLeCDEST£O}] )3%WF 


BEGIN SleP23 P3(DS¢32 WHS; 
END SUPERMOVERINT32 


PROCEDURE COBOLFCR> 


BEGIN 
REAL CODE =e43 % 
& 
% 
NAME FLOC =m Op % 
REAL MKSCW == 33 % 
% 
REAL CLOSELOCK ==43 % 
% 
% 
% 
% 
a 
4 
. % 
% PRT DESCRIPTORS 
REAL COBOLCONTROL =23, 2% 
COBOLINDEX =22»s % 
COBOLIO =14» x 
FCR z1i2, 
PERFORMGEN =133 % 
REAL INTINT =53 % 
NAME MEM =23 & 
ARRAY FPB a3C«j]e % 
PGUSE B2aC ne] 3% 
% 
% LOCALS 
REAL REEL % 
ARRAY FIBC*]3 4 
REAL 3 +4 


O8¢32 WDS)3 DS*P4 wOS3 ENDS Swe 


Os INVALID» 1=20PEN INPUTs220PEN REV IN 
‘SROPEN OUTs4=CLOSE*550PEN [*0965SORT 


SWF 


02501000 
02502000 
02503000 
02504000 


02505000 © 


02506000 
02507000 


02508000 


02509000 


02600000 


START OF REL SEGMENT? DISK 


7=CLOSE CRUNCHs1620PEN1Ls17sCLOSE1 
POINTER TO FIB NESCRIPTOR 

= MKSCW !NO REEL*= 1 FOR REEL CLOSE 
= REEL # FOR REEL OPEN, 

HOW TO CLOSE THE FILE 


= 


EMA SNe O 
Hae nn” 


6 
COBOL 


COBOL 


COBOL 
COBOL 
COBOL 
ARRAY 
DUMMY 


REWIND CRETAIN) 

NO REWIND CRETAIN) 

LOCK (SAVE) 

PURGE LOCK CRELEASE + PURGE) 
RELEASE LOCK CRELEASE + LOCK) 
RELEASE (LOOK AT SAVE FACTOR) 


CRUNCH 


61% FOR CALLING USE ROUTINES 
61% FOR CALLING USE ROUTINES 
READ WRITE 

FCR 
68% FOR PERFORMING USE ROUTNS 
BEC INTRINSIC 

DATA DESCRIPTOR 


FILE PARAMETER BLOCK 
USE ROUTINES ARRAY * COB61:413 WOS 


cOB68: 6 WOS 


MUST BE HERE FOR MKSCW DIDOLE 
FILE INFO BLOCK 


INDEX 


+ TEMPORARY 


02600400 
02600110 
02600120 
02600200 
02600300 
02600400 
02600410 
02600420 
02600430 
02600450 
02600470 
02600480 
02600500 
02600510 


02600515 — 


02600600 
02600650 
02600700 
02600800 
02600900 
02600990 
02600994 
02600995 
902601000 
02601100 
02601400 
02601500 
02601600 
02601700 
02601800 


T 
T 
T 
T 

S] 


7 


O00Rtt 
000982 
001010 
Od010%1 
ZE= 0011 


000010 


ADDRESS = 


ae 


T 
t 
T 
T 
- 
T 
T 
T 
SY 


T 


0000f0 
000010 
000030 
000210 
0003%2 
000513 
00062 
Od0gIa 
004433 
ZeEs 0012 


0000%0 


ADDRESS = 


44a ts Ht at a A a tH 


000080 
0000%0 
000010 
000010 
0000%0 
0000%0 
0000%0 
0000f0 
000040 
000040 
0000%0 
000040 
000080 
000010 
000080 
000080 
000080 
000010 
0Q00t0 
000010 
000010 
000080 
000030 
000010 
000010 
000010 
00000 
000040 
000080 
0000'0 


WORDS 


00226 


WORDS 


00227 


@oee53s+weseeeee8eee8e#8#8ee0ee0ee8ee8eee84 


NAME IQ9sI5 
REAL 1X3 
ARRAY LBLC*)3 


% IQ DESCRIPTORS FOR CLOSE 
* INDEX TO FPB 
4L ABEL FOR BUILDLABEL+HEADER FOR CLOSE 


REAL NOTSERL % SET TRUE FOR RANDOM & IO FILES 
INTEGER PUL*sPU2s * USED BY BUILDLABEL + USERS,DONT MOVE 
FULsFua3 % USED BY BUILDLABEL + USERS,DONT MOVE 
REAL RPUL = PUL» % USED BY BUILDLABEL 
RPU2 = PU23 % USED BY BUILDLABEL 
REAL Tes % TEMPORARY 
TEST» % TRUE WHEN CALLING USERS»USERS68 SAYS 
% TEST FOR BEG OR END FILE USE ROUTINE 
SVFIB»s % TRUE IF cOBOL68 FIB IS TO BE SAVED - 
COB683 % TRUE IF THIS IS COBOL 68 
QEF INE 
AF = £12812] 4, % COB68: FILE USE ROUTINE 
ALGOLIOCALGOLIO1)=PCLIQDIJ»ALGOLIO1s112COMsDEL* DEL) 4» 
ARR 2 [36t12]#2 % COB68: REEL USE ROUTINE 
BACKSPACE = PCC@L)*fFLOCE3]) INX Os9e11»COM)#, 
BCOUNT = FIBC6O]4, % BLOCK COUNT 
BF = Cities % COB68! FILE USE ROUTINE 
BOUNDED = FIBLC9O]el2:1i#, % TRUE IF BOUNDED FROM ABOVE 
BREAKFAIL = PCFIBCI5).0C25¢5]5¢T31)x40122COM)#%4BR OUT FAIL 
BUFFERSIZE = FIBC1I8],C3¢15)#> % BUFFER SIZE REQUESTED 
BUFREQ = FIBC133,C1:9}#» % NO, OF BUFFERS REQUESTED 
BUFTOP = FIBLi6]42% COPY OF TOP IQD!POINTS TO BEG BUFFR 
BRR = (24: 12]#, % COB68! REEL USE ROUTINE 
CALLHASHCCALLHASHL) SP CMKSsFLOC,*FIBLB8 I sCALLHASH1! »COC)#, 
CLOSE = Wks 
CLOSED TCFIBES]¢£412 2740) #e%F ILE CLOSED 
CLOSEQHERE = FIBC BJ elitil4, % COB68 CLOSE HERE WAS OONE 
CLOSEDRET = @20#» %& CLOSED RETAINED 
COBOLCLOSE = PCCLOSELOCK&REEL (C2347811-FLOCeCODEs132COMs 
DELsDELseDEL jp #, 
COBOLFILE = FIBC13)4, % ON SAYS FILE IS coBOoL 
COBOLFILBIT = FIBCL3],0C4721 3%, 
COBOLOPENIN = PCREEL*FLOCsCODEs13*COMs, Tet eDELa DEL) #» 
COBOLOPENOUT = PCREEL*FLOCeCODEs 13° COMsDELeDEL » DEL )#> 
COUNT = FIBC12]#» % NOTSERL * NO. OF CURRENT BLOCK 
% SERIAL INCQuT): RECORD COUNT WITHIN BLOCK 
CURRENTREEL = FIBL131],€28:101]#+% CURRENT REEL NUMBER 
OIRECTION = (FIBC13],02584))#2% 1sREVERSE» O=FORWARD 
DISCARDWA = PCMEM OR (C#ROPRT),CFFI)s32COMsDEL) #» 
DISK = FIBL41eC8t4)sqk, 
DISKR = 108» % DISK RANDOM ¢(FPB) 
DISKS S 128, % DISK SERIAL CFPB) 
DISKP = 26H» % DISK PROTECTCFPRB) 
ENDFILE | = FIBE5S)]«C40til#* % RECOGNIZED END OF FILE 
EOF = [27811] #» % EOF Birt IN Io0 
FORF = CA2:6) 4+ % SENTINEL’ 4E£0R OFEF0F 
EQRRERUN = FIBC4].03:2]4,%£0R RERUNS 120UTPUT TAPE» 25SCRCH 
FPBXDONE = FIBC4I].Ci2:il#s» % £13811] IS FPB INDEX 
FCRCLOSECFCRCLOSE1) =PCMKSsFCRCLOSEL* Os fFLOC] »4eaFCR) He 
FCROPENOUT = PCMKSs Teo CFLOC]s 3eF CRI Fs 
FILIO = FIBCL3],022:134. % FILE OPEN 10 
FPBTYPE = FPBCIX+31.043:5)42% FPB FILE TYPE 
GETDISKROW = PCFPBLIX+3) »FPBCIXIJsFPBLIX+1]*°10*LBL» 


Sells COMsnELsDELe DEL» DEL sDELs DEL ts 


02601900 
02601950 
02602000 
02602050 


02602100 


02602150 
02602199 
02602200 
02602250 
02602300 
02602350 
02602360 
02602400 
02602410 
02602430 
02602440 
02602450 
02602455 
02602460 
02602470 
02602480 
02602490 
02602500 
02602510 
02602520 
02602530 
02602550 
02602560 
02602570 
02602575 
02602580 
02602585 
02602586 
02602590 
02602600 
02602610 
02602620 
02602630 
02602640 
02602650 
02602660 
02602670 
02602680 
02602690 
02602700 
02602705 
02602710 
02602720 
02602730 
02602740 
02602770 
02602780 
02602790 
02602795 
02602798 
02602800 
02602805 


AA MAMMA A tt 4 tt st a a tt a se 


000030 
000010 
000030 
000020 
000010 
000010 
0000!0 
0000?0 
000040 
000080 
000050 
000080 
000040 
000080 


0000%0 


000030 
0o00!0 
000040 
000010 
eleleren ge) 
d00010 
islozelon 6) 
O0000t0 
elelelon xe) 
o000f0 
000080 
O0c0r0 
O000t0O 
000010 
0000280 
000040 
000080 
0000!0 
0000t0 
000080 
000010 
000010 
000070 
o000t0 
0000!0 
0000!0 
0000to 
000010 
o000t0 
ell slo ae) 
000080 
ohehelon x0) 
000020 
0000:0 
0000!0 
000030 
000010 
0000!0 
0000!0 
000080 
000080 
0000!0 


HASH 
HEADERPTR 
HNMROWS 


HNMSZRS 
INFILE 
TODONE 
IQOERRCTOERRL) 
LABELED 
LABEQ 
LASTIO 
LBLPTR 
Lock 

LSUBL 
LSUBU 
MABUSE 
MAXR 
MAXREC 
MINREC 

MT 
NMSZROWS 
NOAILT 
NOREW 
NOTCLOSED 
NOTFIRSTREEL 
NOTINANDOPEN 
NUMBUFF 
NUMREC 
QPENIN 
OPENTO 
OPENQUT 
OPTIONAL 
QUTAP 

PRIT 

PRT 
PERFORMUSE 
PRINTFILE 
PURGEREEL 
PURGE. 
RANDOM 
RCQUNT 
RCPRT 
RECSPERBLK 
REDECWA 


RELEASE 
RESETPARITY 
RESETREADBIT 
REWIND 
SEGSPEROW 
SEGSPBLK 


SLEEPCM 


$ POP OMIT 
$ SET OMIT = TIMESHARING 


SORT 
SORTFILE 


ute aan uw aos PUR Ha aoa 


Bona 


tatu bu nf bat au at nou 


ap a 


u 


_ 
- 


3 


CFIBLAIx40)#>» % COB61! HASH ROUTINES PRESNT 
FIBCI4I) ts % DESC. FOR DISK FILE HEADER 
LBLCO]#» % HEADER: NUMBER OF ROWS 

: (DO NOT CHANGE?) 


NOTSERL#» HEADER: SIZE OF ROWS 


FIBL(3],C27:11#»2 % FILE OPEN INPUT 


FLOCLCI+21,.C19sL]#e% DONE BIT ON IN 100 
PCOsFLOCeaTOERRis172COM)#» % CALL IOQERR*=DONT oS 
NOT UNLABELED#s 

FIBCS)¢Ci721)]#2 % LABEL EQUATED FROM DISK 
FIBC13].0C46%11%» & 1SLAST WAS PHYSICAL READ 
FLOCLCAl#s % LABEL. DESCRIPTOR 

Dia 

FIBCLI#s % DISK: LOWER BOUND RECORD NO 
FIBC3]4#>» % DISK: UPPER BOUND RECORD NO 
FIBES)«Cizii#, % USE ROUTINES PRESENT 
FIBC18)£8338:10]#» % MAX REC SZ FOR cCONCATS 
FIBC181],CCFIF % MAXIMUM RECORD LENGTH 
FIBC18],(FFI#, % MINIMUM RECORD SIZE 

Ot» %* MAGNETIC TAPE 
FIBC81e(208281%» % OLSKt NM=C2025)-SZ5(25%23) 
FIBL20],0C3:1]#» % AIT FOR WA WAS DESTROYED 
Lites % NO REWIND 
FIBCSJef41:2]20#2% FILE NOT CLOSED 
FIBCSI+C38ttl#e % =1 TIFF CURRENTREELZIST REEL 
FIBC5)].041°3)4145% FILE NOTCINPUT & OPEN) 
FIBE131],£0108934#, % NO.OF BUFFERS ASSIGNED 


FIBC1i1#» % NO,OF RECORDS PER BLOCK 
tHe 

5a, 

3He 

FIBCS]-C39%1)]42 % REEL OPTIONAL AND ABSENT 
TH? * EQR RERUN ON OUTPUT TAPE 
C2silks % PRESENCE SIT 

THs 


PCMKSsCF IB] sTsOsPERFORMGEN) #s 

FIBL20) #s % CFa1 7S PRINTFILE 

PCLFLOCL3II&P23C CTF) 220e11 eCOMsDELs DEL e DEL 4s 

Shs 

FIBC4)].f29%11#» % RANDOM ACCESS IS THE GRDER 

FIBL71#>» % NO.OF RECORDS INTO FILE 

FIBC20],CFFI#, % PRT OF DESC POINTING TO REC 

LBLC0}74£308121%,. % HEADER: RECORDS PER BLOCK 

PCMKS*#RCPRT*MAXRECeLeteLsINTINT #s % DECLARE 
% SAVE ARRAY FOR WORK AREA 

THs 

FLOCCL3]e© C*#PC DUP) )&0£28%228%134%, % RESET PARITY 


OL24124s4] #, % USED TO TURN OFF READ BIT 
O#s» 
LBLE STF» % HEADER:SEGMENTS PER ROW 


LBLCO]¢C42:6)#2 % HEADERS SEGMENTS PER BLOCK 


$ SET OMIT = NOTCTIMESHARING) 


36>COM#» ® SLEEP COMUNICATE 


6k» 
CFIBC41,£7%1) OR FIBCI8I. C131) Fe 


02602810 
02602820 
02602830 
02602831 
0260284) 
02602850 
02602860 
02602865 
02602870 
02602880 
02602885 
02602890 
02602900 
02602910 
02602920 
02602930 
02602945 
02602950 
02602952 
02602955 
02602960 
02602965 
02602970 
02602980 
02602985 
02602990 
02603000 
92603010 
02603020 


02603025 


02603030 
02603040 
02603050 


02603051 . 


02603055 
02603060 
02603070 
02603080 
02603090 
02603100 
02603110 
02603115 
02603120 
02603130 
02603140 
02603200 
02603202 
02603205 
02603210 
02603220 
02603230 
02603232 
02603235 
02603236 
02603237 
02603240 
02603250 


et at a a tt tt 


000010 
000010 
000080 
000010 
0000!0 
000080 
0000t0 
0000%0 
000080 
000080 
000010 
000080 
000010 
000010 
000080 
000080 
0000t0 
0000!0 
000010 
000010 
0000t0 


000010. 


000010 
0000?0 
000080 
0000t0 
0000!0 
000050 
Q000t0 
000020 
000080 
0000%0 
000080 
000080 
000080 
000040 
000020 
0000t0 
000080 
0000%0 
000040 
000080 
00000 
000080 
000010 
000010 
0000t0 
000080 
0000*0 
000080 
Q000%0 
000070 
0000270 
000080 
0000380 
0000!0 
000080 
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SZF = (8210) #, 

TECH = FIBCS1¢(4622i#s 

TECHR = 2Hs % TECHNIQUE B 

TECHC = 3s % TECHNIQUE C 

TERMCTERML) = PCLisFLOCe TERMI 917eCOM)#s % TERMINATE ON IO ERR 
TIP 2 FLOCE31#, % TOP 100 

UNITYPE = (FIBC4],0824])#» ZASSNO INTERNAL HARDWARE TYPE 
UNLABELED = FIBC4]«C2:1)4, % UNLABELED FILE 

WAITIO = PCLFLOCLI+211,@2000000000sSLEEPCM» DEL + DEL He 
WORDSLEFT = FIBLI7IJ#s % NO.OF WORDS LEFT IN BLOCK 
WRITEPARITY s FIBCS)e€£3:1]4, % INDICATES FORCED REELSWITCH 
WRITBACK => FIBC131,€23:1]%» % WRITE BLOCK BACK ON 10 
WRITEAFTEREOF = FIBL131],044:27#3 


LABEL LINVALIDsLOPENIN»sLOPREVINsLOPENOUTSLCLOSEsLOPENIOsLSORT, 


LOPENL»+LCLOSE Ls STARTLsEXITs TSTBRKsBSTPS% 


SWITCH TYPE «© LINVALTOsLOPENINs LOPREVINsLOPENOUTSLCLOSEsLOPENTO, 


LSORTSI% : 
SUBROUTINE BUILDLABEL?% 
BEGINS 
Le IX3% 


FLOCCLI*FLAGCISCIF FPALT+3).043:5351 THEN 19 ELSE FLOCC13.£8810 
VHAVCSP3BILOIRCFLOC INX 19£188332153))3% 
PCFLOCEC1IJ*0*COCsDEL 3% 
FLaOctLJeCe INX FLOCCLIDSCFLOCL17,082103"4)(8238310)5% 
STREAMC A © FUZGPCOs1eCOM)sBeFIBLC G4] sCelPutL) 23% 
BEGIN Sl¢ LOC ASSI*SI+350S*#20CTIDNS+30CTIS 
Stel OC Bs ST*SI+5% DS*30CTS ENDIZ 


FULECPUZ¢PUZ+FUL4+3649 MOD 3654(PU2 DIV 3654PUL"10)x1000613% 
AY THIS POINT FUL CONTAINS PURGE. DATECBINARY) AN FU22DATECDECIMAL 4% 


STREAMCK¢OPAeCURRENTREEL sB8¢FPBrl42))3 BEGIN? 
DI*LOC KSSI*LOC ASDS*3DECHSlelL oc BISIeSI+33NS"5CHR ENDS 
IF (RPUL]PI0£1217]20 THEN 
IF CRPUL+FPBE1T42)),01817350 THEN RPUL,CI724I)¢13 
IF RPU1Le£18#30]50 THEN RPU1.C18%30]¢FU23 
IF CRPUGSSFPBELI+33),0125720 THEN RPU2,(58ij)iat; 
STREAM(KeOPPULISBEGIN OLleLOC KeSreLOc PULIOS©30CT ENDS% 
REEL¢P3 CURRENTREELSREELS 
STREAMCAG¢(FPBL1I]],BePULsCePU2sDeFULS% 
QeIF CTeFPBLCI+33,£4325))=40 OR T=12 OR T#26 THEN 
PCCHEADERPTRIsLODs7sCOceds+) ELSE 0» 
GeFLOCLiI,(CEI10178%% 
FelF REELZL THEN FIBC4)].0451)] ELSE OsESFLOctij)s 
BEGIN OS*8LIT™ LABEL “3% 
SI©A# OSe2 WOS3 SI*LOC B3 DSeWDSs SL*LOC C32 
DL:sDI+1s0St= CHRE SytelLOc D3 DSt=5 MECH 
DSeLIT"O"; XSENTINALS 
NSeS5LIT"O"s3% BLOCK=COUNTY 
SleLOc QsO0S*7DEC; SREC@COUNTS 
SIeLOC FsSleSI+740SeCHR3 % MEM=DUNP KEYS 
DSeSLIT"ONS % PHYSICAL TAPE NQ,% 
NSe6LITMONSS 
GCOS*SLIT™ "73% 
END. END3% 
SUBROUTINE GNUSE3% 
BEGIN 
COBOLINDEX © T.el26%10]3% 
PC MKS* T,038310]s (CCOBOLCONTROLI)3% 


02603260 
02603270 
02603280 
02603290 
02603300 
02603310 
02603330 
02603340 
02603360 
02603370 
02603375 
02603380 


02603385 - 


02603390 
02603395 
02603400 
02603450 


02603500 


02603600 
02603700 
02603800 
02603900 
02604000 
02604100 
02604200 
02604300 
02604400 
02604500 


02604600 | 


02604700 
02604800 
02604900 
02605000 
02605100 
02605200 
02605300 
02605400 
02605500 
02605600 
02605700 
92605900 
02606000 
02606100 
02606200 
02606300 
02606400 
02606500 
02606600 
02606700 
02606800 
02606900 
02607000 
02607100 
02607200 
02607300 
02607400 
02607500 
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0000!0 
000080 
000080 
000080 
000010 
00000 
00000 
000010 
000080 
00000 
000030 
000080 
000080 
0000t0 
0000#0 
0000!0 
000080 
000020 
000410 
0001%90 
000423 
0006384 
0010%2 
O01291 
001733 
002034 
002144 
002284 
002810 
002810 
003410 
0032%3 
OO3at4 
0039%2 
004330 
OOA73 
00500 
005310 
005432 
00590 
006230 
0064t0 
00684 
006912 
007013 
0074%3 
007294 
007394 
007333 
007482 
0075%2 
0076%2 
O07ato 
0080!0 
008030 
008010 
008484 


ENDS% 
SUBROUTINE CALLGOUSES 


| er oe 2 ee ee 


BEGIN 
IF 
REGIN 


END3 


I OR TEST THEN 
IFC T*¢PGUSELITI],£ 1223124 0 THEN GOUSES 
IFC TePGUSECIJ.£24:241)#4 0 THEN GOUSE; 


END CALLGOUSE; 
SUBROUTINE CALL GOUSERS 


BEGIN 
IF 
BEGIN 


ENDS 


1 OR TEST THEN | : 
IF (TeFIBLIJe¢ 1123724 0 THEN GOUSES 
IF (TeFIBL1}.£24324))% 0 THEN GOUSES 


END CALL GOUSER; 
SUBROUTINE USERS; 


BEGIN 


I « Pugs 


IF 


Ie FUL3 


IF 


CALLGOUSES 
Cl*PU2)>0 THEN CALLGOUSE3 
CALLGOUSER? 
CT*FU2Z)>0 THEN CALLGOUSERS 


END USERS3 
SUBROUTINE GOUSE683 

BEGIN PERFORMUSES ENDS 
SUBROUTINE USERS683 


REGIN 
IF 
BEGIN 


IF 
if 
IF 
IF 
ENDS 


TEST THEN 

%® CHECK FOR FILE USE ROUTINES 
(CTeFIBCFUL],8F940 THEN GOQUSE683 
CT+FIBEFULI,AF) 40 THEN GQUSE683 
CTePGUSECPUL].BF)#0 THEN GOUSE683 
(TePGUSELPUL],AF)#0 THEN GOUSE683 


PU2>0 THEN 

& NOT DISK? CHECK FOR REEL USE ROUTINES 
CTeFIBCFUL],8RR)40 THEN GOUSE68} 
CTeFIBCFUL].ARR)#40 THEN GOUSF468} 
CT+PGUSELPU1],.B8RR)Z0 THEN GOUSE68; 
(TePGUSELPUL],ARR)40 THEN GOUSE683. 


END USERS683 


es we koe 
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REEL « IF PCMKSCWsTOPsXCHs DEL) THEN MKSCW ELSE 033% 
COB68 «+ (FIB+*FLOC).,SZFF223% . 
IF CODES18 THEN BEGIN CODE:=43 SVFIpisis ENDS 
IF NOT FPBXDONE THEN FIBL4)],0C12%12] + % 
CCFIBLSI, C1281 2.1 xXETRLNGI€L £362472475% 
IF NOT COB68 THEN 
IF REEL>9 THEN’ 


BEGIN 


® CONVERT REEL NO«TO OCTAL 


STREAMCK¢OSL *REEL 93% 
BEGIN SfleLoc Ls Sle#Sr+5 3% 


DI*LOc Ks DS¢3 OCTI® 


END 3% 
REEL © P3% 


END?% 


IX ¢ FIBC4Jef13%#1133% INDEX To FPB 


02607600 
02607700 
03607800 
02607900 
02608000 
02608100 
02608200 
02608300 
02608310 
02608320 
02608330 
02608340 
02608350 
02608360 
02608370 
02608400 
02608500 
02608600 
02608700 
02608800 
02608900 
02609000 


02609005 


02609006 
02609010 
02609020 
02609030 
02609040 
02609050 


02609060 


02609070 
02609080 
02609090 
02609100 
02609110 
02609120 
02609130 
02609140 
02609150 
02609160 
02609170 
02610150 
02610200 
02610300 
02610310 
02610400 
02610500 
02610550 
02610600 
02610700 
02610800 
02610900 
02611900 
02611100 
026414200 
02611300 
02611370 
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O08et2 
008213 
008310 
008330 
008313 
0088!0 
009230 
009250 
009284 
009330 
009380 
009343 
009880 
010210 
010210 
010284 
010330 
010380 
0105%0 
010810 


011040 


O0113%O 
O113%1 
011410 
011573 
O0116%0 
011610 
011604 
011633 
012080 
012440 
0128%0 
013280 
013280 
013233 
013341 
013710 
014130 
014510 
014910 


014980 


O149%4 
O149%4 
0156%o2 
015920 
016133 
O0164%2 
016893 
016934 
017082 
O171%0 
OL7 2% 
017233 
O17 3at4 
017319 
O174%t0 
017480 
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IF CODE CLOSE THEN 
IF (T¢FPBTYPE)SpISKR OR TsDISKP OR CODE=OPENIO THEN 
BEGIN IF ¢€T=OISKR OR TspDISKP) AND NOT COB68 THEN 
BUFREQ¢13 NOTSERL« TRUE; 
END ELSE 
IF 7<3 OR Ts11 OR (CT GE@ 7 AND T<10) THEN 
IF FIBC83,£20'5)>0 THEN % HAS BEEN LABEQ FRM DISK 
BEGIN NMSZROWS¢Q3 LABEQ « TRUES END3% 
IF CODE=SORT THEN GO TQ LSORT?% 
IF CODEZCLOSE THEN 
REGIN 
FIBC13],019:5] «O;% 
IF T=DISKR OR T=ODISKS OR T#OISKP THEN® TECH B & C NOT 
IF TECH>1 THEN TERM(C30)3 % VALID ON DISK ‘%cyc 1031 
IF COB68 THEN IF TECHZTECHC THEN MINRECeMAXRECS 
ENDS % 
NUMBUFF ¢ BUFREQS% 
STARTL#% 
IF CODE>5 THEN IF CODEs16 THEN GO TO LOPEN1 ELSES 
IF CODE#17 THEN GO TO LCLOSE1 ELSE TERM(25)3% 
GO TO TYPECCODEI3% 


LOPENIO#% 

CODE « OPENIN}S 

FILIO « {3% 

GO TO LOPENING’ 
LOPREVIN!2 | 

IF CCTeTECHISTECHC) OR CTSTECHR AND NUMRECZ1) THEN TERM(5)3 
LOPENING% 


IF NOTCLOSED. THEN TERMC2xCODE=1)3% 
IF REEL#O THEN REEL ¢« CURRENTREEL ELSE CURRENTREEL ¢ REELS 
IF CTeFPBTYPEYSDISKR OR TaDISKS OR T=DISKP THEN 
BEGIN’ ; 
NMSZROWS © OF % SINCE ITS INPUT 
IF LSUBUZO THEN % UPPER BOUND 
BEGIN LSUBU © #pP(DUPJ#413 BOUNDED « TRUES ENDS 
IF LSUBL#0 THEN LSUBL © *PC(DUP)=13% 
WRITEAFTEREOF « 03% 
BCOUNT «© IF CRCOUNT*LSUBL)=0 THEN O ELSE % STARTING 
CRCOUNT=1) DIV NUMREC + 13 % BLOCK 
ENDS % 
COBOLOPENING % STORE BOOLEAN RESULT IN I? TRUE FOR 
% LABELED ANn NOT SORT FILE ON OPEN IN 
IF COB68 THEN 


BEGING 
IF NOAIT THEN% 
BEGIN? 
REDECWAs% 
NOAIT © O3% 
ENDs% 
END3% 
IF OISK THEN? 
BEGINS’ 


IF NOT COB68 THEN 
IF RANDOM THEN TIP © 4 INX TIP3*% DISK ADOR IN wWRD 4 


BUILDLABEL3% 
IF MABUSE OR NOT COB68 THENS% 
BEGIN & BEGINNING INPUT/IO FILE 


02611390 
02611400 
02611410 
02611430 
02611440 
02611450 
02611480 
02611490 
02611495 
02611500 
02611510 
026141610 
02611620 
02611630 
02611675 
02611680 
02611700 
02611800 
02611900 
02612000 
02612100 
02612200 
02612300 
02612400 
02612500 
02612600 
02612700 
02612800 
02612900 
02613600 
02614200 
02644300 
02614400 
02614500 
02614600 
02614700 
02614750 
02614800 
02614900 
026145000 
02615100 
02615105 
02615110 
02615115 
02615120 
02615125 
02615130 
02615133 
02615135 
026151440 
02615170 
02615200 
02615250 
02615300 
02615400 
02615500 
02615600 
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O175%2 
O17694 
O181it4 
018424 
0188!0 
018840 
O192%4 
O194?4 
019983 
020180 
0204:3 
O202%1 
020433 
0207%2 
O214t1 
021643 
021633 
022020 
022010 
Q222%0 
022580 
N229%2 
0229%2 
023034 
023283 
O233%4 
O233%14 
023994 
O239%4 
0243322 
O249%t 
025333 
025434 
025683 
025783 
026233 
026614 
026833 
027212 
O275%4 
O275%4 
027782 


O277%a 


027733 
O278!4 
O279%4 
027983 
028384 
028583 
028513 
028513 
0287384 
028783 
028814 
029320 
029410 
029533 
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FUL© OF TEST «+ 15 PU2 ¢« FU2 « 413 
TF COB68 THEN BEGIN PUL © 4xFILTO32 
USERS683 ENDS 
ELSE BEGIN PUL © 1OXFILIO3 USERSS ENDS% 
END#% 
IF COQB68 THEN 
BEGIN 
BCOUNT «© CIF RANDOM THEN NOT O 
ELSE RCOUNT DIV NUMREC)3 
COUNT*©BCOUNT * CNUMBUFF® LISFIBCSICLI4GG133 


END ELSE 
BEGIN IF NOTSERL THEN &TR 1476 
TIP © (BUFFERSIZE + 42 INX TIP & MAXR3 &TR 1476 
COUNT * IF NOTSERL THEN ©1 ELSE 93 %TR 1476 
RESETPARITY3 aTR 1476 
END 3 aTR 1476 
GO TO EXITss% 


END DISK$% 
IF HASH THEN IF NOT WRITEPARITY THEN CALLHASHC2)3 
IF NOT OPTIONAL THEN 
IF CMABUSE OR NOT COB68) AND I THEN % LABELED AND NOT SORT 
IF NOT WRITEPARITY THEN 
BEGIN. % BEGINNING INPUT FILE/REEL 
PUL ¢€ FUL «© O3 TEST ¢« CURRENTREELS12% 
PU2 © FU2 © 13% 
IF COB68& THEN USERS68 ELSE USERS3S% 
ENDIS 
GO TO TSTBRK3% 


LOPENOUT!% 


IF NOTCLOSED THEN TERM(C693% 
IF CLOSEDHERE THEN BEGIN CLOSEDHERE*Os GO LOPENL$ END3% 
IF REFL#ZO THEN CURRENTREEL*REELS% FIXES OPEN OUT REEL DATA*NAME 
IF (TeFPBTYPE)=5 OR T=8 OR T=9 % UNLABELED SPEC UNIT» PT» OR MT 
THEN UNLABELED « 13% 
IF TSON1SKR OR T=0LSKS OR T=DISKP THEN 
BEGIN 
IF LSUBUZO THEN BEGIN LSUBU © *P(DUP)=15% 
BOUNDED © TRUES ENDS 
IF LSUBL#¥0 THEN LSUBL © #PCDUP)=13% 
BCOUNT. ¢ (RCOUNTe*LSUBL) DIV NUMREC3% 
IF COB68 AND NMSZROWS =.0 THEN % DISK DEFAULT 1S 
IF NOT DISK THEN % (LBL EQU ONLY) 
NMSZROWS © {00820f20843:5)3 % 20 ROWS 100 RECS 
END% 
ELSE IF LABELED THENY 
BEGINS 
BUILDLABEL$% 
IF NOT SORTFILE THENY 
BEGIN IF HASH THEN CALLHASH(2)3% 
IF MABUSE OR NOT COB68 THENZBEG OUT FILE/RL 
BEGIN TEST ¢ REELF13 FUL © OF PU2 ¢ 53 
IF COB68 THENS 
BEGIN Pule2s USERS683 ENDY 
FLSE BEGIN PUL|4sFUZ41 3 USERSJENDS 


END3% 
END$% 


02615700 
02615800 


02615900 
02616000 
02616100 
02616140 
02616160 
02616180 
02616200 
02616220 
02616240 
02616260 
02616300 
02616400 
02616450 
02616470 
02616500 
02616600 
02616700 
02616750 
02616800 
02616850 
02616900 
02617000 
02617100 
02617200 
02617300 


02617400. 


02617500 
02617600 
02617700 
02618500 
02618550 
02648600 
02618650 
02618700 
02618750 
02616800 
02618900 
02619000 
02619004 
02619005 
02619006 
02619010 
92619020 
02619100 
02619200 
02619300 
02619400 
02619410 
02619420 
02619430 
02419500 
02619600 
02619700 
02619800 
02619900 
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0296! 
gage 


030230 
030310 
030730 
030740 
030724 
030783 
030983 
0312%2 
0317140 
031720 
031733 
032332 
0326%2 
0329%4 
O329%4 
032923 
032933 
033423 
033630 
0338:3 
034042 
03414480 
O344t4 
034592 
034910 
034920 
0349%2 
O349t2 
0352:3 
O357%4 
036410 
036580 
036a%2 
O374%1 
037143 
O375%4 
037733 
0381%1 
O384t2 
0366t2 
0384833 
039223 
0399383 


(039432 


039510 
039640 
0398t2 
O40at) 
040410 
040633 
O407%2 
041040 
041340 
04130 
041340 


eoeee#ees5#ees#e#eees8s+ee5eovse#eeee8e#e8e#ee6 


COBOLOPENOUT;% 
IF GOB68 THEN % MOVE WA TO BUF.+SAVE WA ADORe POINT PRT TO BUFF 
BEGIN 
IF NOAIT THEN&S 
BEGINS 
REDECWAS% 
NOAIT © O3% 
END3% 
IF NOT CDISK) THEN 
BEGIN WORDSLEFT «© BUFFERSIZE3 
PRINTFILE © PCDUPsLODs (FIBLA] «(8241 2» 
PCDUP 215 PCXCH®DUP)S7ePCXCHI A120 0Rs0R2CCK)3 
END UNDISK;3 % 13LPs 7=PBT» 125P8D 
END COB6RBINGS 
IF DISK THENY 
REGINZ 
IF RANDOM THEN 
IF COB868 THEN BCOUNT ©* NOT O 
ELSE TIP « 1 INK TIP3 
BUILDLABELS% 
LBL « *£HEADERPTRI32% 
LBLO7] © =13% 
IF MABUSE OR NOT COB68 THEN 
BEGIN % BEGINNING OUTPUT FILE 
FUL © O03 TEST © 13 PU2 © FU2 «© #43 
IF COB68 THEN BEGIN PU1 ¢ 23 USERS683 END 
ELSE BEGIN PUL + 43 USERS END 


END3% 
IF NOT COB68 THEN 
BEGIN 
RESETPARITY3&% 
TF NOTSERL THEN? 
BEGIN’ 
IF UNITYPE #4 AND NOT UNLABELED AND NOT SORTFILE THEN ZTR=90 
TIP ¢ (BUFFERSIZE + 14) INX TIP & MAXR} STR 1476 
BUFTOP © C*PCQUP)) & 10243473133— @TR 1476 
END ENDS 


END DISK3% 
IF NOT COB68 THEN COUNT « IF NOTSERL THEN =1 ELSE NUMREC3 
TSTBRK32 
IF CTeEORRERUN) ZO AND CURRENTREEL#Z1 THEN IF BREAKFAIL AND OUTAP 
THEN BEGIN PURGEREELS GO TO STARTLS END % TRY BREAK AGAIN 
ELSE PCDELI3% 
GO TO EXIT#4& 
LCLOSE?% 
IF OPTIONAL THEN % EQF ON ABSENT OPTIONAL FILE 
BEGIN FIBE5] * C*#PCDUP))&4 [398422633 % MARK CLOSED RLSD 
PCXIT)3% 
END3% 
IF NOT SORTFILE AND CLOSED THEN BEGIN IOERR(12°F18(5),£4321))3 
GO TO EXIT END; 
IF INFILE THEN 
IF €COB68 AND MABUSE AND nISK) THEN &% END INPUT/IO FILE 
BEGIN FUL©23 PU2e"13 TEST#Ls PUL]L+4xFILIO3% 
USERS6832% 
END ELSE% 
ELSE IF (LABELED AND NOT SORTFILE) THEN% 


02620000 
02620010 
02620015 
02620020 
02620030 
02620040 
02620050 
02620060 
02620065 
02620070 
02620075 
02620080 
02620085 
02620090 
902620100 
02620200 
02620250 
02620300 
02620350 
02620400 
02620500 
02620600 
02620800 
02620810 
02620900 
02621000 
02621100 
02621200 
02621220 
02621230 
02621250 
02621300 
02621310 
02621320 
02621325 
02621330 
02621335 
02621340 
02621350 
02621360 
02621364 
02621365 
02621370 
02621371 
02621375 
02621380 
02621400 
02621500 
02621600 


02621700 


02621750 
02621800 
02621810 
02621820 
02621830 
02621840 
02621900 
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041330 
041530 
O415%4 
044523 
041683 
O17 sy 
042033 
O42 zt 
O423%4 
042413 
O42784 
042984 
O432%2 
043340 
043370 
O434t2 
043520 


043620 


0437%3 
O44eto6 
044380 
OAbatys 
044523 
O447to 
OA44810 
045430 
045480 
045610 
0454630 
045639 
0457!0 
045983 
0460380 
O460%2 
0466%4 
047210 
Oa7ata 
O47 ate 


O474te 
047883 


047823 
048533 
049020 
049013 
049484 
O491t4 
049330 
049630 
O4G6F 4 
049614 
0503%2 
0504%0 
050510 
0509813 
O514%4 
051580 
0515:0 


IF DISK THEN 
BEGIN % MOVE RECORD COUNT FROM HEADER TO LABEL 
STREAMCA*PCLHEADERPTRI] sLODs7sCOCo tet), 
Be 5 INX LBLPTR)3% 
BEGIN SI*Loc As’ DIeDI+53 DS¢7 DEC3 ENDI% 
IF MABUSE OR NOT COB68 THEN% END OUTPUT FILE 
BEGIN FUle23 TEST¢13 PU2ZeFU2e"13 
IF COB68 THEN BEGIN PU1¢33 USERS6&; END 
ELSE BEGIN PU1e6; USERS} ENDS% 


END3% 
END % NOT DISK 
ELSE BEGIN % MOVE BLk & RECORD COUNTS FROM FIB To LBL 


IF HASH THEN CALLHASH(1)3% 
STREAMCA*BCOUNTsBeRCOUNTsCeS INX LBLPTRI3% 
BEGIN Sle*LOc A’ DS*5 DECS OSe7 DECs ENDS 
LBL © LBLPTR3% 
LBLC4],EQRFe REEL 407% 
LBL ¢ O03 FILE cLOSE FORGETS LABELS=SO CLEAR PTR 
IF REEL THEN CLOSELOCK ¢ LOCK3s% 
IF MABUSE OR NOT COB68 THEN% END OUTPUT FILE/RL 
BEGIN FUlLe2s TEST « REEL=OS Pu2 « 73 
IF COB68 THEN BEGIN PULe33 USERS683 END 
ELSE BEGIN PU1«6s FUuZe33 USERSS END3 
END} % 
ENDS % OF NONDISK 
IF DISK AND LABELED AND NOT SORTFILE THEN 
BEGIN% 
LSUBL © *PC( DUP) 413% 
IF BOUNDED THEN & IF UPPER BOUND 
BEGIN LSUBU © *PCDUP)413 BOUNDED*FALSE; END 
ELSE IF COB68 THEN LSUBU ¢« 03 
LBL «© *CHEADERPTRI3% 
HNMSZRS ¢#((CSEGSPEROWXRECSPERBLK) DIV SEGSPBLK) 
& HNMROWS £20243!5])3% NM*SZ ROWS FR HEADER 
NMSZROWS ¢ OF % ZERO FIB NMsSZ ROWS 
IF NOT COB68 THEN IF RANDOM THEN WOROSLEFT©Q3 
END 3% 
IF UNITYPE=MT AND NOT REEL THEN 
BEGINS 
IF CLOSELOCK=REWIND AND NOTFIRSTREEL THENY 
 ChLOSELOCK ¢« LOCK 
NOTFIRSTREEL « FALSES% 
END3% 
T ¢ CURRENTREEL3% 
TF REEL AND UNITYPE=PBT THEN FIBCO].(121] © 13 
COBOLCLOSE3% 
IF HNMSZRSeCl4211 THEN 
BEGIN? 
NMSZROWS © ABSCHNMSZRS)32% 
HNMSZRS «& 03% 
WRITBACK « FALS@% % RANDOM OUTPUT AND yO 
ENDs% 
IF REEL THEN 
BEGIN &¥ REEL SwITCH 
REEL © T+13% 
CODE © 3° C2xINFILEX#DIRECTIONS% 
IF CODE=OPENOUT THEN CURRENTREEL ¢« REEL? 


02622000 
02622010 
02622020 
02622030 
02622040 
02622050 
02622070 
02622100 
02622200 
02622300 
02622400 
02622500 
02622600 
02622700 
02622800 
02622900 
02623000 
02623100 
02623200 
02623300 
02623400 
02623500 


02623600 


02623610 
02623620 
02623700 
02623800 
02623900 
02624000 
02624100 
02624200 
02624300 
02624400 
02624500 
02624600 
02624610 
02624700 


02624800 © 


02624900 
02624910 
02624920 
02625000 
02625100 
02625105 
02625110 
02625200 
02625210 
02625220 
02625225 
02625230 
02625240 
02625250 
02625255 
02625260 
02625265 
02625268 
02625270 
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052030 
052230 
052212 
O524a%2 
0526214 
O527%4 
052980 
0532390 
053570 
0537:0 
053710 
053710 
O537%2 
054083 
054323 
054433 
054684 
O54011 
055080 
0554%2 
O55394 
0556%2 
055910 
056210 
056270 
056330 
056753 
0568%4 
O57 014 
0571424 
057624 
0578%3 
O580to 
0582320 
058510 
05871%2 
059494 
059484 
OS93%2 
05940 
059610 
O5972%4 
0599%3 
059933 
060181 
O606%4 
0609%4 
061020 
0610%2 
0613484 
0614!0 
0416329 
061632 
061633 
061724 
O6laia 
062284 


NOTFIRSTREEL « TRUE 
GO TO STARTL#% 
END% 
FLSE CURRENTREEL ¢ O32 
IF NOT SVFIB THEN 
IF COB6B AND CLOSELOCK>1 THEN IF (CTeFIB£L2019<0 THEN 
% THROW AWAY FILE TANKs RE*INITIALIZE TYPE™2 SEGMENT DESC 
PCFLOCsDUPsFCXs 3eCOMsFLAGCO & T C2328310] & T 
(828310) & 9 C384484)) 2 SSNeXCHee )3 
PCXIT)3 
LINVALIDGS 
TERM(25)3% 
LCLOSE1:% 
IF NOTINANCOPEN THEN TERMC12"F7BL5)].043411)3% 
IF ENDFILE THEN BEGIN I © 13 GO TO BSTP? END3% 
FOR I « 1 STEP 1 UNTIL NUMBUFF DO 
BEGIN % WAIT UNTIL ALL TO*S ARE DOQNES 
IF NOT JODONE THEN WAITIO#% 
IF FLOCCI+2]-EC0F THEN GO BSTP3% 
ENDS 
I «© NUMBUFFS% 
BSTP3% . 
BACKSPACES .% BACKSPACE I BLOCKS 
TIPeEQF ¢ ENDFILE3% 
CLOSEDHERE * COB683% 
FIBLC52,£4026] © CLOSEDRETI% 
GO TO EXIT#4% 
LOPENL?% 
IF FIBCS]~C40%6) CL OSEDRET THEN TERMC6)3% 
FIBLS3.,£40%6} © O3% 
BUFTOP ©C*PCDUP))& RESETREADBITI£ 
INFILE © OF &% MAKE IT QUTPUT 
LBLPTR «C*PCDUP))& RESETREADBITS% 
IF TIP,EOF THEN& 
BEGIN % HAD READ EOF BEFORE BACKSPACE 
WOROSLEFT « BUFFERSIZE3% 
TIP,EOF « OF % RESET EOF 
COUNT « NUMREC3 % # RECS LEFT IN BUFF = WHOLE BUFF 
BUFTOP. CCF) «© TIP,CCFI3% 
ENDS 
ELSE BEGIN % NO EQF # OPEN IN PLACE 
RCOUNT © *PCDUP)=43% BACK UP BECAUSE WE 
BCOUNT ¢« *PCQUP)*13% WERE READING 
WORDSLEFT ©¢ BUFFERSIZE*C(TIP.CCFI=BUFTOPe(CFI)3% 
COUNT « WORDSLEFT OIy MAXREC3 % # RECS LEFT IN BUFF 
ENDI% 
FOR T « 4 STEP 1 UNTIL NUMBUFF DO% 
FLOCLCT+2] © FLAGCBUFTOP&FLOCET+2I]°CTC]23 %& CHANGE TO WRITE 
GO TO EXIT#s 
LSORT?2% 
IoD « (TIPI]#% 


IF CLOSELOCK=NOREW THEN % FCR CALLED WITH THESE PARAMS 


BEGIN ZIF 10 COMPLETE BUT NOT PRESENT 
IF NOT C*IOD) «EOF % NOT EOF IMUST HAVE BEEN PARITY 
THEN TERMC19) % TERMINATE ON PARITY 
ELSE % MUST HAVE BEEN EQF OR EOR 


BEGIN ALGOLIOC11)3% READLAREL 


02625280 © 


02625300 
02625400 
02625500 
02625510 
02625600 
02625650 
02625700 
02625800 
02625950 
02626000 
02626050 
02626100 
02626150 
02626200 
02626250 
02626300 
02626350 
02626400 


02626450 © 


02626500 
02626550 
02626600 
02626650 
02626660 
02626700 
02626750 
02626800 
02626850 


02626900 © 


02626959 
02627000 
02627050 
02627100 
02627150 
02627200 
02627250 
02627300 
02627340 
02627350 
02627400 
02627450 
02627500 
02627510 
02627600 
02627650 
02627700 
02627750 
02627800 
02627850 


02627860 


92627870 


02627880 — 


02627890 
02627900 
02627910 
02627920 
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062620 
062832 
0629%0 
062920 
063240 
063232 
063684 
Q636%4 
063934 
OC64ea%4 
064982 
0642%2 
064434 
O644 4 
O649%2 
0652034 
065633 
065683 
0662120 
066453 
066740 
0668%2 
0668:2 
0671430 


067412 


0677320 
0679%2 
068010 
068020 
068324 
068543 
068834 
069023 
069389 
069540 
069532 
Q697%2 
O700%1 
070433 
070810 
070810 
O705%2 
O707%2 
070982 
O714%2 
O71714 
O717%4 
072443 
072612 
072710 
072740 
O72884 
072910 
0729182 
073072 
O732%2 
O7 3232 


LBL ¢ LBLPTR#& , 
IF LBLU4S],EORFSO THEN PCisRTNIJZXRETURN EOF 


REEL « CURRENTREEL+13%REEL SWITCH ON INPUT 
T ¢ COBOLFILBITs % REMEMBER IF COBOL FILE 
FCRCLOSECPURGE)3 
FIBCi3]eC#PCOUP)&REELC28:38'10]% NxT REEL 
&O (472472133 % MAKE IT LOOK ALGOL 
ALGOLIOCO)3% OPEN INPUT NEXT REEL 
FIBL13] *+c¢*PCDUP))OR T3% RESTORE COBOL BIT 
PCOs,RTN)S % RETURN EOR 
END3% 
END NOREW3% 
IF CLOSELOCK=REWIND THENS% 
BEGIN % REEL SWITCH ON OUTPUT 
LBL ¢« LBLPTR3&% 
LBLC4],E0RF «© 13 %& FOR 
LBL ¢ OJ%FILE CLOSE FOGETS LABEL SO PTR MUST BE CLRD 
T «© CURRENTREEL 415% 
FCRCLOSECRELEASE)3 % CLOSE RELEASE CURRENT REEL 
CURRENTREEL ¢ REEL ¢ T32%WITH NO REEL SWITCH=DONE HERE 
IF COBOLFILE THEN FCROPENOUT ELSE ALGOLIOCO)32NXT RL 
PCXIT)3 % OPEN OUT CALGOL OR COBOLINxT REEL 
END3% 
IF CLOSELOCKSLOCK THEN 
BEGIN 
T « IF CURRENTREEL=1 THEN REWIND ELSE RELEASES 
FGRCLOSECT)3 % CLOSE REWIND FIRST REEL» 
PCXIT)3 % CLOSE RELEASE ALL OTHERS 
END3% 
EXIT23% 
END COBOLFCR;% 


02627930 
02627940 
02627950 
02627960 
02627970 
02628000 
02628050 
02628100 
02628150 
026286200 
02628250 
02628300 
02628310 
02628320 
02628330 
02628340 
02628350 
02628360 
02628370 
02628380 
02628390 
02628400 
02628450 
02628500 
02628510 
02628520 
02628550 
02628600 
02628700 
02628800 
02628900 


PROCEDURE COBOLATT? BEGIN % INT # = @ 165 ¥CUC 1031 02650000 
START OF REL SEGMENTS DISK 

COMMENT INTRINSIC FOR COBOL ATTRIBUTES . CYC 1031 02650100 
CALLING SEQUENCE IS ; CJC 103] 02650110 
MKS ; XCYC 103] 02650120 

LITC OPERATION zCUC 1031 02650130 

LIT¢e FILEFIB . CWC 1031 02650140 

DESC 10 CC 1031 02650145 

LITC ATTRIBUTENUM ZCUC 1031 02650150 

LITC WORD=OFSET %CYC 103! 02650160 

DESC DATAWORD CJC 103] 02650170 

*CUC 1031 02650180 
ORERATIONS ARES CJC 1031 02650190 
1 = MOVE CWC 1031 02650200 

o = SET COR CHANGE ATTRIBUTE VALUED acJC 1031 02650210 

ZCcyc 1031 02650220 

ATTRIBUTENUM HAS THE FOLLOWING VALUESS CJC 1031 02650230 

QO = EOF eCJC 103] 02650240 

4 = DQ NOT USE *CYC 1031 02650250 

2 = 00 NOT USE CYC 1031 02650260 

3 = SAVEFACTOR ZCyc 1031 02650270 


T 
T 
T 
T 
T 
Hs 
T 
7, 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
SI 


T 


ADDRESS = 00253 


Aa ss 


073482 
073610 
O?738%a 
O74Q9%2 
074230 
O743%2 
O?44t3 
074710 
O74g%2 
0750%2 
075440 
075120 
075450 
075423 
O7S5a%4 
0753:%3 
O756%4 


075780. 


075930 
07 60%2 
0763%2 
076723 
O76at0 


076880 


076823 
O769%4 
077283 
O774at4 
O77 HS 
O77 442 
077530 
ZE= 0776 


0000%0 


0000%0 
000010 
000080 
oo00t0 
0000t0 
000030 
000010 
0000t0 
000080 
0000+ 
o000t0 
000010 
000010 
000010 
000010 
000010 
000010 
0000%0 
0000%0 


WORDS 


ENDOF <COMME 


NAME 
REAL 
NAME 
REAL. 


ARRAY 
ARRAY 


ARRAY 
LABEL 


SWITCH 


REAL 
DEFINE 


COMMENT 


4 = AREAS 
§ = AREASIZE 
6 = MFIO 
7 = FID 
g = REEL 
9 = DATE 
10 = BUFFERS 
14 = TYPE 
12 = BLOCKSIZE 
13 = MAXRECSIZE 
14 = FILE INFORMATION BLOCK 
15 = FILE PARAMETER BLOCK 
16 = LABEL €8 WORDS ONLY) 
17 = EU NUMBER ¢€0 THRU 19) 
18 = DISK SPEED (C1=FAST»2=SLOW) 
19 = TIMELIMIT CPROTECT FILES) 
20 = TOSTATUS (PROTECT FILES) 
24 = SENSITIVE 
NTS3 
ITEM = "43 % COMP AREA FOR VALUE 
ATTNUM = 23 % ATTRIBUTE NUMBER 
FLOC = 3) % POINTER TO FYB) 
OPCODE = 4} % QPERATION O=SET 1=MOVE 
FPB = 3f*}3 * FILE PARAMETER BLOCK 
FIBE*]3 
LBLC«ls 
EOF eT OERRs SAVEFACTORs AREAS» 
AREASIZE+MFID,FID*REELSDATEs BUFFERS» 
TYPEs BLOCKSIZE»sMAXRECSIZE* ATTEXIT? 
FIBWORDSsFPBWORDS»sLABELWORDS» 
EUNUMs DSKSPEED, 
TIMELIMITs TOSTATUSs 
SENSITIVE,» 
DUMMY3 
ROUTINE ¢ EOF sICERR»sIOFERR sSAVEFACTOR*AREAS» 
AREASIZEsMFIDeFID»REEL*DATEs BUFFERS» 
TYPE *BLOCKSIZE»MAXRECSIZE? 
FIBWORDS>sFPBWORDSsLABELWORDSs» 
EUNUMsDSKSPEED, 
TIMELIMITsIOSTATUSs 
SENSITIVEs 
IQERR#s 
XT*TEMPeUNITYPES 


GETFROMITEM = PC*¥CITEMJ)#, 
STOREINTOITEMC(CSTOREINTOITEM1) # 
PCSTOREINTOITEMIs CITEM]s¢) #» 


IGERROR¢TOERRORY) = 


PCLeFLOCsIOERROR1s17,COM) 4} 


I/O ERRORS ARE AS FOLLOWS: 
40 = FILE WAS OPEN WHEN SETTING THE ATTRIBUTE 
4, = SETTING A READ ONLY ATTRIBUTE 


CJC 
CJC 
acd¢ 
acdc 
acyc 
aCAC 
acc 
aCJC 
acdc 
aCJC 
acCJc 
acJc 
acc 


CIC 
BCIC 
acdc 
ace 
acdc 
acJc 


BCC 


ace 
acyc 
acJC 
acdc 
CJC 
ecue 
aCdC 


CJC 
BCC 
BCC 


%CYC 
auc 
aC AC 
%CJC 
ZCuc 
ents 
RCC 
ZCUC 


BCC 


aCJC 
aC JC 


1031 
103] 
1031 
1031] 
1031 
1031 
1031! 
1031] 
1031 
1031 
103] 
1031] 
103] 


1031 
1031 
1031 
1031 
103] 
103] 
1031 
1031 
1031 
1031] 
103] 
1031 
103] 
1031 


1031 
1031 
1031 


1031 
1031 
1031 
1031 
1031 
103] 
1031 
103] 
1031 
1031 
1031 


02650280 
02650290 
02650300 
02650310 
02650320 
02650330 
02650340 
02650350 
02650360 
02650370 
02650371 
02650372 
02650373 
02650374 
02650375 
02650376 
02650377 
02650378 
02650380 
02650390 
02650400 
02650500 
02650600 
02650700 
02650800 
02650900 
02651000 
02651100 
02651110 


02651300 


02651400 
02651410 
02651500 
02651510 
02651520 
02651530 
02651590 
02651595 
02651600 
02651610 
02651700 
02651710 


02651720 


02651730 
02651740 
02651799 
02651800 
02651900 
02652000 
02652100 
02652150 
02652200 
02652250 
02652251 
02652252 
02652253 
02652254 
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000010 
00000 
000030 
000010 
000080 
0000!0 
0000t0 
000080 
0000%0 
0000%0 
000010 
000040 
0000°0 
0000°0 
00000 
0000tO 
0o00t0 
000040 
000050 
000010 
00000 
00000 
0000%0 
00000 
000010 
0000!0 
0000?0 
000010 
0000t0 
000040 
000010 
000080 
00000 
000030 
0000!0 
000080 
000040 
000010 
000080 
0000%0 
000010 


000080 


000080 
0000t0 
00000 
00000 
00000 
000040 


000080 


000030 
000080 
000010 
000080 
0000!0 
00000 
000040 
000080 
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42 = SETTING AN ATTRIBUTE TO AN ILLEGAL VALUE #CUC 

43 = CHANGING # OF BUFFERS OF A NON*SFERIAL FILE %CUC 

44 = INCREASING # OF BUFFERS CJC 

AS = CHANGING BLOCKSIZE TO A VALUE WHICH IS NOT CJC 

A MULTIPLE OF RECORD SIZE aCUC 

46 = CHANGE TO BLOCKSIZE WHEN FILE IS OTHER THAN %CyC 

TAPEs PAPER TAPE OR SERIAL DISK %CUC 

47 = ACCESSING "LABEL” WHEN FILE IS NOT OPEN %CUC 

4g = THIS FILE MAY NOT HAVE “TYPE™ CHANGED CJC 

49 = ILLEGAL ATTNUM VALUE ZCJC 

END OF I/0 ERRORS; BCAC 
ZCUC 

START HERE “CWC 
FIB «© *FLOC3 #cuc 

IF FIB(5].C44:2)] = O THEN LBL «© FLOCLIV CJC 

IF NOT FIBC4).012!1] THEN FIBC4].£12%12] «© “Cc 
CCFIBC4],C12212] -1) x ETRLNG) & 103684751738 C5C 

XD-¢ FIBE4S],013914)3 CJC 

IF QPCOQDE = 0 AND FIB>53.641:2] = 0 THEN acc 


TOERRE! 


EOFs: 


AREAS? 8 


ICERRORC40)3 % SET AN ATTRIBUTE ON A FILE %eye 


% WHICH IS OPEN. 
GQ TO ROUTINELATTNUMI3 
TOERRORC49)$ % ILLEGAL ATTNUM 


IF OPCODE = 0 THEN IQERROR(C41)3 

% €0F 1S READ ONLY 
STOREINTOITEMCFIB(5].£40%141)3 
GQ. TO ATTEXIT; 


IF OPCODF = O THEN 


aC JC 
aCJC 
ac JC 
*CJC 
aC JC 
ACC 
acuc 
acc 
RCIC 
aC IC 
acJC 
ac JC 


IF (TEMP © GETFROMITEM) < 1 GR TEMP > 20 THEN %CJC 


AREASIZE2 8 


MFIO#3 
Fide: 


IOERROR(42) ELSE % OK VALUES 1*20 “CWC 
FIB£8],02015)] « TEMP ELSE wCUC 
STOREINTOITEM(FIBL81.£20951)3 aCJC 
GQ TO ATTEXIT: acyc 
zCUC 

*CJC 

IF OPCODE = 0 THEN ; %CJC 
IF (TEMP © GETFROMITEM) < 1 THEN ecuc 
IOERROR(C42) ELSE % MUST HAVE 1 OR MORE aCIC 
FIBC8),C25:23] ¢ TEMP ELSE CNC 
STOREINTOITEMCFIBL8].[25223) )3 acc 
GO TO ATTEXITS wC UC 
zCJC 

&CUC 


IF OPCODE = 0 AND FIB (5],.£42'1] = 0 THEN 
IF CCUNITYPE*FPBEXI+3].04325))= 10 OR UNITYPE = 
OR UNITYPE = 13) THEN % DISK FILE IS NOT CLOSED WITH RELEASE 


IQOERROR€40)3 % CANT CHANGE MFIN/FID 


xCJC 
12 | 


ATTNUM «© ATTNUM = 63 ZCUC 
IF FIBC4),£2:1)] = 0 THEN &% TF LABELED acdc 
tF OPCOne = 1 AND FIBE£51,¢64123) = 1 THEN acuc 
BEGIN % IF "MOVE" AND FILE OPEN INPUT PICKUP ZCUC 
% MFID AND ID FROM LABEL IN CASE OF "IL", *CNC 


1031 
1031 
103] 
1031 
1031] 
1031 
1031 
103] 
1031 
1031 
1031 
103] 
1031 
103] 
103] 
1037 
1031 
1031] 
1031 
1031 
1031 
103] 
103] 
103] 
1031 
103] 
1031 
1031 
1031 
1031 
1031 
103] 
1031 
103] 
1031 
103] 
1031 
1031 
1031 
1031 
1031 
1031 
103] 
1037 
103] 
103] 
1031 
1031 


103] 
103] 
1031 
1031 
1031 


02652255 
02652256 
02652257 
02652258 
02652259 
02652260 
02652264 
02652262 
02652263 
02652264 
02652290 


02652300 


02652400 
02652500 
02652550 
02652600 
02652700 
02652800 
02652900 
02653000 
02653100 
02653200 
02653250 
02653300 
02653400 
02653500 
02653600 
02653700 
02653800 
02655500 
02655600 
02655700 
02655800 
92655900 


02656000 


02656100 
02656200 
02656300 
02656400 
02656500 
02656600 
02656700 
02656800 
02656900 
02657000 
02657100 
02657200 
02657300 
02657310 
02657320 
02657330 
02657340 
02657400 
02657405 
02657410 
02657420 
02657430 
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000080 
00000 
000020 
000030 
0000!0 
000030 
0000'0 
000010 
000030 
0000!0 
000040 
000080 
00000 
000030 
O002%, 
0005%3 
000a%2 
001283 
O0L4t4 
001673 
0018%2 
0018%2 
003420 
O032%4 
O032%4 
003330 
0Q35t2 
003542 
003720 
0037%2 
003732 
003890 
003833 
004423 
004332 
004642 
0048%2 
004930 
004920 
004980 


004913. 


005483 
0053!2 
00S6%2 
005ai2 
005910 
0059 %0 
005930 
005940 
0064%2 
006423 
006632 
0068%4 
O069%2 
007180 
007410 
O074t2 


® 


STOREINTOITEMCLBLCATTNUM + 43,062423)3 
GQ TO ATTEXIT; 
END; 
IF OPCODE = O THEN 
FPBCXI] + ATTNUM].€6342] © GETFROMITEM ELSE 
STOREINTOITEMCFPBECXI + ATTNUM),(6#421)3 
GQ TO ATTEXIT: 
% NOTE THAT MFIO MUST BE ATTRIBUTE 6 AND FID MUST 
% BE ATTRIBUTE 7 TO MAKE THE ABOVE WORK, 


BUFFERS$3 


IF OPCODE = 0 THEN 
IF FIB8041.02783] ¢ 0 THEN IOERROR(43) ELSE 
% CHANGING # OF BUFFERS ON NON@SERIAL 
IF (TEMP ¢ GETFROMITEM) > FIBC132,0139] THEN 
IOERROR(44) ELSE % INCREASING # GF BUFFERS 
IF TEMP < 1 THEN TOERROR(42) ELSE 
FIBL13).C139] « TEMP ELSE 
STOREINTOLTEMCFIB(1314£189)3 
GO TO ATTEXIT 


BLOCKSIZE?: 


Be Bl BL De Be 


IF OPCODE = 4 THEN 
BEGIN STOREINTOITEMCFIB£18}.033151)3 
GO TO ATTEXIT3 
ENDs> 
THE FOLLOWING WILL "SET" BLOCKSIZE$ 
IF (TEMP ¢ GETFROMITEM) MOD FIBE183,£33815] z# 0 
THEN IQERROR(45)3 
T/O ERROR 45 IF NOT MULTIPLE OF RECORD LENGTH 
IF NOT CCUNITYPE © FPBCXT + 33,04335]) = 2 
OR UNITYPE = 7 OR UNITYPE = 8 
OR UNITYPE = 9 OR UNITYPE = 12) THEN 
IOERROR(46)3 
I/O ERROR 46 UNLESS FILETYPE IS MAGTAPEs PAPERTAPE 
OR SERTAL DISK. 
AT THIS POINT THE CHANGE TO BLOCKSIZE IS VALID 
A CHANGE TO TECHNIQUE (FIB(51.046:21) AND RECORDS 
PER BLOCK CFIBC112) IS TAKEN INTO CONSIDERATION, 
FIBC18],03215] « TEMP; 
FI8C11] «© TEMP OIV FIBC181,03321533 
FIBCS]«C46%2) ¢ CIF FIBC11) = 1 THEN O ELSE 193 
GO TO ATTEXITS 


MAXRECSTZE2: 


TYPES: 


IF OPCODE = 0 THEN IOERROR(C41)3 

% MAXRECSIZE IS READ ONLY 
STOREINTOITEMCFIBL£18)],0333153)3 
GO TO ATTEXIT; 


IF QPCODE = 1 THEN 
BEGIN STOREINTOITEMCFPBCXI + 33,043351)3 
GQ TO ATTEXIT3 
ENDS : 
IF (TEMP © FPBEXI4+3),04335]) > 9 AND TEMP « 15 
OR TEMP = 19 OR TEMP = 26 


aCUC 
ACIC 
CJC 
*CUC 
BCIC 
acc 
acy 
acdc 
acyc 
‘CJC 


aCC 
BCISC 


BCC 
%CJC 
SCC 
ZCJC 
¥CUC 
xCUC 
“CJC 
%CYC 
ACJC 
RCuC 
BCU 
RCJC 
*CJC 
acJc 
acdc 
OC 
%CUC 
%CUC 
ZCUC 
‘eJC 
%CUC 
SCUC 
cue 
SCC 
%CUC 
ZCJC 
ACJC 
%CUC 
¥CNC 
KCNC 
#cJc 
%CUC 
aCUC 
SCC 
ZCUC 
%CUC 
aCJC 
*CUC 
CJC 
%CJC 
tcuc 
BCJC 


103] 
1031 
1031 
103] 
103] 
103] 
1031 
1031 
1031 
103] 
1031 
103] 
1031 
1031 
1031 
103] 
1031 
1031 
103] 
1031 
1031 
1031 
1031 


103] 


103] 
103] 
1031 
1031 
1031 
1031 
1031 
1031 
1031 
103] 
1031 
1031 
1031 
1031 
1031 
103] 
103] 
103] 
1031 
1031 
103] 
10317 
1031 
103] 
1031 
1037 
103] 
1031 
103] 
1031 


02657440 
02657450 
02657460 
02657500 
02657600 
02657700 
02657800 
02657900 
02658000 
02658100 
02658200 
02658300 
02658400 
02658500 
02658600 
02658700 
92658800 
02658900 
02659000 
02659100 
02659200 
02659300 
02659400 
02659500 
02659600 
02659700 
02659800 
02659900 
02660000 
02660100 
02660200 
02660300 
02660400 
02660500 
02660600 
02660700 
02660800 
02660900 
02661000 
02661050 
02661100 
02661200 
02661300 
02661400 
02661500 
02661600 
02661700 
02661800 
02661850 
02661900 
02661990 
02662000 
02662010 
02662020 
02662030 
02662040 
02662050 
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0074t2 
007784 
007723 
007733 
007B12 
O0Baty 
0085!2 
0086t0 
0086:0 
0086!0 
0086t0 
008610 
0086:3 
0090%2 
009082 
OO93t4 
009520 
009RtO 
010140 
010370 
010322 
0103%2 
010430 
010483 
010623 
O1O7%4 
O10784 
O107%4 
010913 
011183 
011433 
01140 
011583 
Oltgi2 
O120%4 
0120314 
012074 
O120%4 
012024 
012024 
0122%3 
QO125%4 
013030 
O130%2 
0130%2 
013420 
Q133%e2 
O133%2 
013540 
Q135%2 
0135%2 
013630 
013633 
013934 
013933 
0139%3 
O142%2 


THEN IQERROR(C48)3 
% 1/0 ERROR 48 = FILE TYPE NOT ALTERABLE 
FPBECXIT + 31,€43%5] «© TEMP * GETFROMITEMS 
IF TEMP = Q % CARD 
OR TEMP > 19 AND TEMP < 26 THEN %PUNCH BACKUP 
IF FIBC18).032153 < 11 THEN GO TO ATTEXIT 
ELSE IQERROR(42)3 % AND BLOCK < 14 WORDS 
IF TEMP = 1 OR TEMP = 4 OR TEMP = 6 
OR TEMP > 14 AND TEMP < 19 THEN &% PRINTERS 
IF FIBC183.£3815] < 18 THEN GO TO ATTEXIT 


ELSE TOERRORC42)3 % BLOCK < 18 WORDS 
IF TEMP = 2 % MAG TAPE 

OR TEMP = 7 % PAPER TAPE 

OR TEMP = 8 % PT UNLABELED 

OR TEMP = 9 THEN &% MT UNLABELED 

GO TO ATTEXITS 

IOERROR(42)3 


SAVEFACTOR?: REEL?: DATE?: 
IF OPCODE = 0 THEN % “SET™ ATTRIBUTE 
BEGIN STREAMCK*LTEMP]s LeLITEM3)3 
BEGIN SI] « Ls DI ¢ K} DS © 8 DEG} 
END} ae 
IF ATTNUM = 9 THEN & "DATE" 
FPBIXI + 2],018%230] « TEMP ELSE 
IF ATTNUM = 8 THEN &% "REEL" 
FPBCX] + 21,01:17] « TEMP ELSE 
FIBL4].£30318] « TEMP; 
GO TO ATTEXIT3 
ENDF a 
IF FIBC4),£02:1) = 1 THEN 7ORRRORC47)3 
STREAMCK © IF FIBC53,£41:22)] #4 O THEN 
IF ATTNUM = 9 THEN FPBCXI+2],018:30) ELSE 
IF ATTNUM = 8 THEN FPBEXI+2),01!171] ELSE 
FIBC4)],£30218) ELSE 
IF ATTNUM & 9 THEN LBLO3).018%30] ELSE 
IF ATTNUM = 8 THEN LBLO37.f1%17) ELSE 
FIBL4],€30218]» L © fFITEM))3 
BEGIN SI*LOc Ks OleLs nses OcTs 
END} 
GO TO. ATTEXIT3 


FIBWORDS?? 
IF OPCODE = 0 THEN IQERROR(41)3 
% FIB 1S READ ONLY 
STREAMCA¢ECFIBLO])], BetITEm}])3 
BEGIN SI © AZ DI © BJ DS © 20 WDS3 
ENDS 
GO TO ATTEXITS 


FPBWORDS!$ 
IF OPCODE = 0 THEN IOERRORC41)3 
% FPB YS READ ONLY 
STREAMCACECFPBEXIJ]» BelLITeEM))3 
BEGIN ST ¢« AF} DI © BS DS « 5 WDS3 
END} 
GO TO ATTEXIT; 


acdc 
aC UC 
aC UC 
aC YC 
acJc 
AC UC 
acdc 
aCJC 
acdc 
acJc 
acdc 
aC JC 
acyc 
acdc 
acyc 
CJC 
acyec 
aCJC 
aC UC 
acJc 
aCJC 
CJC 
aC UC 
eC YC 
CJC 
aCJC 
acdc 
acJC 
aCUC 
aC JC 
eCUC 
ecuc 
aC JC 
acc 
aCe 
CIC 
acJc 
CWC 
acdc 
acJc 
aCJC 
acyc 
ac Jc 
acyc 
acdc 
zCyCc 
ac JC 
HCUC 
Bec 
acJc 
ACC 
acc 
aCe 
aCJC 
CJC 


103] 
1031 
1031] 
1031 
1031] 
1031 
103] 


1031 


1031 
1031 
103] 
1031 
103] 
103] 
1031 
1031 
1031 
1031 
103] 
1031 
403] 
103] 
1031 
1031 
1031 
1031 
1031 
103] 
103] 
103] 
1031 
1031 
1031 
103] 
103] 
1031 
1031 
103] 
1031 
1031 
103] 
1031 
103] 
1031 
1031 
1031 
103] 
103] 
1031 
103] 
1031 
103] 
1031 
1031 
1031 


02662060 
02662080 
02662100 
02662200 
02662300 
02662400 
02662500 
02662600 


02662700 | 


02662800 
02662900 


02663000 © 


02663100 
02663200 
02663300 
02663500 
02663600 
02663700 
02663800 
02663900 
02664000 
02664100 
02664200 
02664300 
02664400 
02664500 
02664600 
02664800 
02664900 
92665000 
02665050 
02665100 
02665200 
02665300 
02665350 
02665360 
02665370 
02665400 
02665500 
02665600 
02665700 
02665800 
02665900 
92666000 
02666400 
02666200 
02666300 
02666400 
02666500 
02666600 
02666700 
02666800 
02666900 
02667000 
02667100 
02667200 
02667300 
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01442 
014720 
014710 
0150:3 
015444 
0153:2 
015532 
0157!%4 
0159%2 
016220 
016410 
0416973 
0166%4 
0167320 
0168%0 
0169%2 
O170%4 
O174%2 
017152 
017210 


017233 


O174%4 
047530 


OL75%4 


017610 
0179!90 
018023 
O18 4% 4 
OLS7 841 
0187143 
0187%3 
0194740 
019283 
0196%2 
0199%3 
020434 
020470 
020683 
020881 
020980 
020981 
0209483 
020933 
021080 
O212%2 
021282 
021323 
O2l4te 
021483 
021531 
021534 
021680 
02182 
O21ate2 
021933 
0220%2 
022033 


eececevcececeeceeoeeececeo eee ee ee 


a 


a 


LABELWORDS:: 


% 1/0 ERROR 47 = ACCESS TO LABEL WHEN FILE NOT OPEN 


EUNUMS$ 


DSKSPEEDS$ 


TIMELIMIT?: 


$ SET OMIT. 


$ SET OMIT 


IOSTATUSS? 


$ SET OMIT 


SENSITIVEs: 


ATTEXYT33 


IF OPCODE = 0 THEN IOERROR(41)3 
% LABEL IS READ ONLY 
IF FIB(53,041%2] 4 0 THEN LOFRRORC47)3 


IF FIBl4).C2t1] = 1 THEN TOERRORC4793 
STREAMCAGELBLEOJ]» BeLITEM))3 

BEGIN SI *¢ A$ DI * B3 DS * 8 WDS; 
END 

60 TO ATTEXITS 


&CIC 
ACC 
aCJC 
aCJC 
acJc 
acdc 
RCC 
acc 
acc 
eCUC 
acc 


IF FIBES1,£4122] = 0 AND OPCODE#O THEN GO TO ATTEXIT? 


IF OPCODE = 0 THEN 
FPBECXI+3).018sS522:=GETFROMITEM+1 ELSE 
STOREINTOLTEMCFPBEXI+31,01885I]"1)3 
GO TO ATTEXITS 


IF FIB[5].€4122] = 0 AND OPCODE=0 THEN GO TO ATTEXIT3 


IF QPCODE = © THEN 
FPBCXI+3],01682]23GETFROMITEM ELSE 
BEGIN 


TEMP $= IF CTEMPSSFPBCXI+3),016%2])=1 THEN 


1 ELSE IF TEMP=2 THEN 2 ELSE 03 
STOREINTOLTEMCTEMP)3 
END3 
GQ TO ATTEXITS 


IF OPCODE = 90 THEN 

NOT SHAREDISK 

ELSE 

BEGIN 

NOT SHAREDISK 
STOREINTOITEMCTEMP)3 

ENDS 

GO TO ATTEXITS 


IF OPCODE = 0 THEN IODERROR(441)3 
% IOSTaATUS IS READ ONLY 
NOT SHAREDISK 
STOREINTOITEMCTEMP)3 
GQ TO ATTEXITS 


IF OPCODE=Q THEN 
FPBEXI+33e01581)22GETFROMITEM ELSE 
BEGIN 
TEMPtsFPBCXT4+33eC15%113 
STORE INTOLITEMCTEMP )3 
END3 
GQ ATTEXIT3 


PCXIT)3 


END OF COBOLATT3 


1031 
1031 
1031 
103] 
103] 
103] 
10317 
1031 
1031 
1031 
1031 


02667400 
02667500 
02667600 
02667700 
02667710 
02667720 
02667730 
02667800 
02667900 
02668000 
02668100 
02668200 
02668300 
02668400 
02668500 
02668600 
02668700 
02668800 
02668900 
02669000 
02669100 
02669200 
02669400 
02669500 
02669600 
02680000 
02680400 
02680200 
02680299 
02680500 
02680600 
02680699 
02680900 
02681000 
02681100 
02681200 
02681300 
02681400 
02681500 
02681599 


02681800 


02681900 
02682000 
02683000 
02683100 
02683200 
02683300 
02683400 
02683500 
02683600 
02683700 
02685000 
02686000 
024687000 


mn 
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02213 

o22tti 
022220 
Q224%2 
022412 
022733 
022733 
023140 
O230T4 
023310 
0233%1 
0233:3 
O2371t4 
0238!0 
O2daty 
O245t4 
024543 
O249%4 
025040 
025373 
O254t1 
025623 
0260:3 
026442 
0264%2 
0262°0 
026220 
026210 
026243 
026233 
026334 
026323 
026323 
0264%2 
O264t2 
026510 
026840 
026510 
026782 
0267%2 
026742 
O0268%4 
0268!3 
0268%3 
026823 
026933 
027312 
O274t0 
027610 
0276'3 
027633 
0277 %4 
027731 
027834 

ZE= 0279 WORDS 


PROCEDURE COBOLOCs 


sINTEGER 


_ALOCALS 


BEGIN 
REAL, 
NAME 
REAL 


REAL 
REAL 
REAL 
ARRAY 
REAL 
NAME 
ARRAY 
ARRAY 
NAME 
ARRAY 
REAL 
REAL 


REAL 


DEFINE 


REAL 
REAL 
REAL 
INTEGE 
INTEGE 


ARROW 


BADKEY 
BCOUNT 
BINARY 
BOUNDE 
BREAK 

BREAKQ 


BUFFNU 
BUFFSI 
BUFF SZ 
BUFSTA 
BUF TOP 
BUILDS 


CHECK ¢ 
ONERR 


CLEARS 
CLOSEA 


R BS * X13 
R RT ® X23 


2) 
UT 


M 
ZE 


TUS 
TATNWD 


CHECK) 
CONERR1) 


TATUS 
NDOPEN 


au aoa 


How 


gu naa 


nu 


% INTRINSIC NUMBER 167 


cape = 13 4% 
DLOQC = 23 % 
NUMWOS = 3s % 
KEY = Ae x 
EXPSTATAR = 4, z 
CHNNL = qs» % 
LINES = 95% 4 
TIMEOUT maw, 4 
SKIPAFT = 6 z 
STATN = 6,» % 
TUNR =z "73 % 
COBOLCONTROL=233 % 
COBOLINDEX 2223 % 
DEST 3 % 
FIB Cx]; 4 
FILECTRE sla 3 % 
FLOCS % 
FPB = 3{#]3 % 
Woe 3 % 
MEM = 23 % 
PGUSE=24[*]3 % 
RTOGs % 
T? % 
TECHCOFLO3 % 
UNITYPES % 
X43 % 
K2> % 

% 

% 


H 


4 
FIBCi3].01 
FIBL6)#» 
FIACQ} C2: 


TFCRCQOUNT 


02690000 


START OF REL SEGMENTS DISK 


OFREADs 12WRITE* 22=SEEKs 6OFWRTBLK? 
POINTS TO BUFFER I/0 DESC 

# WoS TO BE WRITTEN 

RANDOM RECORD ADDRESS OR CARRAGE RTN 
AREA TO EXPAND STATUS INTO 

LP CHANNEL SKIP 

# LINES TO BE SPACED 

UNTIL PORTION OF DATA COM 

1=SPACE AFTER PRINT 


DATA COMM STATION (BUFFER) 
DATA COMM TERMINAL UNIT 


FOR LINKAGE BY USE ROUTINES 

FOR LINKAGE BY USE ROUTINES 
DESTINATION IN RANDOM MOVE 

FIB ARRAY 

USED TO CALL COBOLFCR 

POINTER TO FIB 

FILE PARAMETER BLOCK 

DISK FILE HEADER 

DUMMY DATA DESC 

PROGRAM USE ROUTINES 

4121/0 DONE THIS ROUND 

TEMPORARY 

USED FOR TECH=c OVER FLOWS 

STORE UNIT TYPE FOR MANY TESTS 
*DOeNOT*#SEPARATE X41 & X2 THEY ARE 
USED IN CONJUNCTION FOR TECHC OFLOWS 
USED IN COMPUTING DISK ADDR 

USED IN COMPUTING DISK ADOR 


PCOsNOTeNUMWDS*> TIPS INX ee he 


THIS INSERTS THE GROUP MARK 
924]4#» % BAD KEY RANDOM DISK 
% BLOCK COUNT 


FIBCI31,C24213#2 % LREBINARY*SOSALPHA 


134, % TRUE IF BOUNED FROM ABOVE 


FIBC9] # 0 # » & BREAKOUT RESTART POINT 


MOD FIBL9])=0 THEN 


PCOrs0e12*COM*DELsDEL I #2% CALL BREAKOUT 


FIBC1A] #, 
FIB C16]#. 


FIBC13].C1:9] #, & # OF BUFFS REQUSTED 
FIBL18].03:153#, % BUFFER SIZE CREQUESTED) 
FIBCIS8lr 8: 


8210)#, % SIZE FOR CONCATINATES 
% STATUS AFTER SEEKOC 
% USED ON I*0 AND RANDOM 


=P(CSTATNeSKIPAFT)& % BUILD STATION WORD FOR DC 


PCQUPICI4£ 4424 7&8 CTUNRETUNRILC9OS 4424) Fs 


ONERRi «4 
% 


SPCOsTIPse)# 


=PCMKSe 1a QeF 
MKSsFLOCs 


IF PCDUPIZ(CHECKL) THEN PCCHECK1sO0sFLOCa4#> 


7FeCOMeDEL DEL eDEL a DEL 23 PCDELI#s 
THE ABOVE ARE USED ON BLOCK+REC CHKS 
’ % CLEAR BUFFLO] FOR WRITE 
LOC,4SsFILECTRL» *#CLOSE NO RWOD 
LeoFILECTRLD#s % OPEN [NPUT 


02690020 
02690040 
02690060 
02690080 
02690100 
02690120 
02690140 
02690160 
02690180 
02690200 
02690220 
02690240 
02690260 
02690280 


02690300 
02690320 


02690340 
02690360 
02690380 
02690400 
02690420 
02690440 
02690460 
02690480 
02690500 
02690520 


02690540. 


02690560 
02690580 
02690600 
02690620 
02690640 
02690660 
02690680 
02690700 
02690720 
02690740 
02690760 
02690780 
02690800 
02690820 
02690840 
02690860 
02690880 
02690900 
02690920 
02690940 
02690960 
02690980 
02691000 
02691020 
02691040 


02691060 © 


02691080 
02691100 


7 0000:0 
ADDRESS = 
o00ntO 
0000!0 
0000%0 
000030 
000080 
000080 
0000!0 


000010 
000010 
oo0o0to 
0000!0 
0000%0 
000010 
0000%0 
000030 
000010 
000010 
000010 
o000to 
000010 
000080 
0000t0 
000010 
0000!0 
o00gto 
0000!0 
0000t0 
0000!0 
0000! 
000010 
o000t0 
0000!0 
000010 
000010 
o000t0 
000010 
000080 
000010 


00000 
0000%0 
000010 
0000%0 
000080 
000040 
000040 
0000'0 
000080 
000010 
0000t0 
00000 
000030 
000080 
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000030. 
00000 


0000!0 


60263 


ee ee ee ee ee ee ee er ee ee ee ee ee er er a a a | 


ENOF ILE 
ENDPROCESS 
ENDREEL 

EQF 

FOREVER 
EXPAND 
EXPANDSTATUS 


GETSEG 


HASH 


HASHTQOT 
HOWOPEN 


INVALIDUSER 
IQERRCIOERR 1) 


IOMASK 
LABEQ 
LASTNONE 
LASTIO 
LBLPTR 
LINEPRINT 


LSUBL 
LSuBU 
MAXR 
MAXREC 
NONSTD 
NUMBUF 
NUMBSPC 
NUMREC 
NXTREEL 


OPENTO 
OPTIONAL 
PARITY 
PRESENT 
PROPER 
PUNCH 
PURGE 
RANDOM 
RCOUNT 
READER 
READLBL 


RECPERBLK 


Hon 


wou bn one 


=CC*DLOC) C2721) #, 
=(NOT 0349239] #> 


4 
- 


= 


~ 
- 


FIB(12] #. | % USED FOR BLOCKING TECH*AsB 
PCNUMBUFsDLOC,165 % DATA COMM BUFFER RELEASE 

LisCOM*DELspELsOEL)#s 
TIP,CZ2031] #> THIS ALLOWS ONE CYCLE DELY 
TIP,E1934) 4s 1= 10 COMPLETED 
CUNITYPE=4) #, OISK IS UNIT TYPE OF 4 
FIBCA].CI3211 14%, FILE NAME INDEX IN FPB 
FIBES)«C40%1) #, ALREADY PASSED EOF 
FIBC51e(39% 2] Hs SEE OPTIONAL AND ENDFILE 
X2 tes USED ONLY ON READ 
FIRST EOF OR EQT 
UNTIL END TIME 
*PCEXPSTATAR) fe EXPAND CELL CHECK 
PCTIPs0s0sEXPAND» EXPAND STATUS WORD 

27 eCOMsDEL»DEL»sDELsDEL )#» 
PCFPBLCBS©FNAM)4+3]-FPBC(BSJ]sFPB(BS+1 12 

ToHs Mell» COMsDELsDELsDEL*DELs DEL» DEL) #» 


Be Te FE FL Je FE Be SE BE ae ae 


sIF NOT OISK THEN IF FIBLBI>0 THEN 


PCMKSsFLOCs*FIBE 8] 532COC)#s 
% ABOVE CALLS ROUTINES FOR HASH ACCUMULATON 


=IF FIBC8] >0 THEN IF PCMKSsFLOCs*FIBI8120*C0C) 


= 


i tt H Hon 


ee eee ee 


HO WoO 


ZCCHOLOC) £21174» 


THEN ITOERR(C18)#02% CHECKS HASH TOTALS 

FIBC5],C41331] #» % 1S0PEN INPUTSO= OPEN OUTPT 
*’ 1 > CLOSED 
FIBI5S1]<0#> % INVALIO USER NOT PARITY 
PCOsFLOCeIOERR1s17eCOMsDEL eDEL eDELD #e 
% ABOVE CALLS JOERROR ROUTINE 
DEST #4, % HAS TOMASK TO SAVE C*#REL 
FIBCSJef1791) #. -¥ LABEL EQUATED FROM DISK 
FIBC13],02131) #. & NOT OF LAST OPERATION DONE 
FIBCL13],04621]#- %SLAST WAS PHYSICAL READ 
FLOCLII &, % LABEL POINTER 
UNITYPE=1 OR UNITYPE=7 OR UNITYPES12 #4, 
’ 47 LP « 7 = PBT » 12 * PBO 

FIB C1] #» % LOWER BOUND FOR RANDOM 
FIG C3] #, % UPPER BOUND FOR OISK REC 
FIBL18)£8%38:1014%s% MAX REC SZ FOR CONCATS 
FIBC1i8],C33%15]#, MAX REC $Z 
FIB €C5],016% 114, NON*STANDARD LABELS 
FIBCL3].£10% 9]#, NUMBER OF BUFFERS ASSIGNED 
HE9],C43t5 14» ROWS SPECIFIED 2CUC 020 
FIBL11] #» RECORDS PER BLOCK 
PCMKSs2eteFlL cade THIS NOES REEL SWITCHING 

FILECTRL) 4,» 
FIBEI3I,£22:114» 
FIBC 51,039%1 14%» 
TIP,C28:1) 4s 


12 OPEN INPUT™OUPUT CDISK) 
OPTIONAL FILE NOT PRESENT 
PARITY BIT ON DESC 
CHECKS PRESENTSBIT 


Be aR Be ae FL Be DR |e Be |e ge 


S21+CODE+CODE+REVERSE#s% GENERATES PROPER IQERR 


UNITYPES6#5 % UNIT IS CARD PUNCH &TR 830 I 
TIMEQUT.CFFI%0%s % TRUE IF LINE TO BE PURGED 
TECHCOFLO#>» % 1 = RANDOM DISK 

FIBC7] #» % RECORD COUNT 


=CUNITYPE MOD 11370)#*% OFREADER 11=PSUDOREADER 
=PCDLOC INX Oslislt % THIS READS THE LABEL. 


sCOMsDELeNEl xs % 
HLO].C30%12) #e % RECORDS PER BLOCK 


02691120 
02691140 
02691160 
02691180 
02691200 
02691220 
02691240 
02691260 
02691280 
02691300 
02691320 


02691340 © 


02691360 
02691380 
02691400 
02691420 
02691440 
02691460 
02691480 
02691500 
02691520 
02691540 


02691560 


02691580 
02691600 
02691620 
02691640 
02491660 
02691680 
02691700 
02691720 
02691740 
02691760 
02691780 
02691800 
02691820 
02691840 
02691860 
02691880 
02691900 
02691920 
02691940 


02691960 - 


02691980 
02692000 
02692020 
02692040 
02692060 
02692080 
02692100 
02692120 
02692140 
02692160 
02692180 
02692200 
02692220 
02692240 


AAA AM At a tt tt st A tt a ht st a a 


0000%0 
000080 
000010 
0000%0 
oo00to 
000010 
000010 
000010 
000080 
0000%0 
000030 
000010 
000030 
000010 
000030 
000080 
000010 
0000!0 
000030 
000010 
000080 
000080 
0000t0 
0000%0 
000080 
0000%0 
000010 
0000t0 
0000%0 
000080 
000040 
000010 
000080 
000080 
000080 
000080 
000080 
000010 
oo00tO 
000010 
000030 
0000%0 
0000!0 
0000!0 
000080 
0000%0 
000010 
000080 
000030 
000080 
o000t0 
000010 
0000!0 
000080 
000080 
0000!?0 
000010 


2 2 Sr Se Se a i ie | 
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REMOTEIO 


REMOTEREAD 
REMOTEWRIT 


RESETPARITY 
RESETREANDBIT 
REVERSE 
ROTATEBUF 


ROWLGTH 
SANDBKEY 
SEEKNC 


SEEKEY 

SERTAL 
SEGPERBLK 
SETPRESENTSHIT 


nonoun 


=P(BUFFSIZEs»DLOCe % READ & WRITE BATCH SYSTEM 
FOREVER CIF COnpE THEN LINES ELSE 1)» %FOR 
KEY=OeCFX»TIPsCODEs 36s COM> REMOTE OR 
DEL*sDEL*DEL»DEL*DELsisSUBsRTN) #e2TYPE 19 FILES 
=P(BUFFSIZEsTIP,0» % READ FOR TSS 
C™13)2COMsOesRTNI#e % 
Z=PC(TIPsNUMWOS x8» & WRITE FOR TSS 
LINESs KEY sCFXs Oe C™1L es COMsDELeRTINI Fs 
DLOCLCOJ+TIPROC28f28311#+SRESET PARITY BIT DISK 
OC24t24ti)#, % USED TO TURN OFF READ BIT 
FIBCS]e«(l4434] #2 % tsREVERSE 
PCNUMBUP sDLOCs13014 % ROTATES BUFFERS WITH 
sCOM*DEL*DEL»pEL )#s% NQ 140 
HCil#s % ROW LGTH FROM HEADER 
FIBCi31.01932] #2 % SEEK AND BADKEY 
=PCORNUMWDSEL1424424)] % DATA COM SEEK AND xIT 
RCHNNL [O8AGt Al sPLOCe Sait sCOMsxITi Hs 
FIBC13],C20%11#, % SEEK WAS DONE 
FIBC4]e£2723)20 #5 % FILE ACCESS = SERIAL 
HOO},(42%6) #, % SEGMENTS PER BLOCK 
=PC(TIP OR MEM »sOLOCs¢)#2% SET PRESENCE BIT 


ou 


ioHou 


$ SET OMIT = NOTCTIMESHARING) 


SLEEP 
$ POP OMIT 


= 36 4s 


$ SET OMIT = TIMESHARING 


TAPEE 

TECH 

TECHA 

TECHC 
TERMCTERM1) 
TIP 
TOTREC 
UNLABELED 
UT 

WAITDC 


WAITIO 
WORDSLEFT 


WRITEAFTEREOF 
WRITBACK 


= TIP.C7°1] #s % 42 TAPES OFALL ELSE 
= FIBLCS)].(46°2] #» TECHNIQUE 
=(FIBC5S]eC46t2]21) #2% TECHNIQUE=A 
S(CFIBL(5].£4622]23) #2% TECHNIQUE"C 
PCLsFLOCeTERM1s17»COM)#e%TERMINATE I/Q ERROR 
(*DLOC) #, % LOAD 170 DESC 
HO73 He % TOTAL RECORDS ON FILE 
CFIBE4],0C221))4» % UNLABELEO FILE 
CFIBC4] CASA] Fs % HARDWARE TYPE 
PCDLOC* IOMASK,» ; THIS SLEEPS ON 1/0 COMPLE 
% 
ah 


ae 


gunn PH 


SLEEP» COMss)#, AND LEAVES A FALSE ON STK 
= PCOLOCs TOMASK, THIS SLEEPS ON 1/0 
SLEEP sCOMsDEL*spEL)# WAITING FOR A COMPLETE 
FIBLI7I#s % WORDS LEFT IN BUFFER 


= FIBC131,044:214%#, % 
= FIBC13].023%1]4#3 & FLAG TO SAY WRITE BACK 


LABEL = LPRETURN»TOUTs START» LODONE» RANDOMLBLs SEEKRTNs SETUPS 
LABEL  IMPROPER»DCPRLsFIXSTATNWOsDIDDLE*DIDDLEWRTs SERIAL IOs EOFSETCK 


LABEL DATACOMsRANDOMIQ; 


START 3: 


CUBE XIX I 


FIB « ¥(FLOC © CNOT 2) INX DLOC)3 
IOMASK « @2000000000; 


IF CODE THEN 


BEGIN 


ENDS 
IF 
BEGIN. | 
FIXSTATAWD? 


ENDS 


% DC WRITE 
RTQG © ("4)3 % SET ALGOLIO FOR COBOLDCWR 
CLEARSTATUS} 

GO TO FIXSTATNWD3 


BUFSTATUS=0O THEN 


RTOG ¢ 43 % SET ALGOLIO FOR READC 
BUILDSTATNWDS 


GO TO DCPRL;3 


02692260 
02692280 
02692300 
02692320 
02692340 
02692360 
02692380 
02692400 
02692420 
02692440 
028692460 
02692480 
02692500 
02692520 
02692540 


02692560 


02692580 
02692600 
02692620 
02692640 
02692660 
02692680 
02692700 
02692720 
02692740 


02692800 


02692820 
02692840 
02692860 


02692880 © 


02692900 
02692920 
02692940 
02692960 
02692980 
02693000 
02693020 
02693040 
02693060 
02693080 
02693100 
02693120 
02693140 
02693160 
02693180 
02693200 
02693220 
02693240 
02693260 
02693280 
02693300 
02693320 
02693340 
02693360 
02693380 
02693400 
02693420 


a a a a a tes tee st 


000030 
0000!0 
0000%0 
000080 
0000:0 
0000!t0 
000030 
000020 
000010 
000070 
000010 
000010 
000010 
000080 
000080 
000070 
000080 
000080 
000030 
000090 
0000:0 
000010 
0000%0 


Q000%0. 


000080 
000040 
000010 
000010 
000040 
000010 
000070 
000040 
000010 
000010 
000040 
000080 
00000 
go0ato 
000080 
000080 
000040 
000040 


000040 


000080 
eleleren a8) 
0002%2 
000413 
0005%2 
000583 
000734 
oo0dai{ 
001080 
001020 
001130 
O012%4 
001542 
001630 
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PROCEDUR 


SINTEGER 


ZLOCALS 


IF DELAY THEN % THIS IS USED TO INHIBIT BUFFER 
DCBUFRLS3 % ROTATION ON 1ST READ 02693460 
IF TIMEOUT < © THEN % UNTIL END READ 02693480 
BEGIN WAITOCS % THIS LEAVES 0 ON STACK 02693500 
DLOCLOJ«© TIP&1062024721)3 % SET DELAY 02693520 
END ELSE BEGIN 02693540 
PCBUFSTATUS)3 % SET ALGOLIO FOR READSOUGHT 02693560 
DCPRL? PCIF TIMEQUT < 09 THEN FOREVER ELSE TIMEQUT. CCF] 02693580 
KGORCPURGEILLSA7& 1) eXCHsDLOCs15*RTOGsiieCOMs 02693600 
DELsDEL+OELsi+#)3 %THIS LEAVES 1 OR O ON STACK 02693620 
END3 ZDEPENDING ON HOW IO WAS. 02693640 
IF EXPAND # 0 THEN EXPANDSTATUSS 02693660 
PCPRESENTsNOT®OR)3 ZTHIS ORS RESULTS OF ABOVE WITH 02693680 
SETPRESENTSBITS %* PRESENTS BIT AND IS RETURNED TO 02693700 
% PROGRAM, 02693720 
PCRTN)3 02693740 
END COROLDCS 02493760 
E cOBOLIO; 02700000 
START OF REL SEGMENTS DISK 
BEGIN 02700100 
REAL CODE = 13 % OFREAD*S LEWRITEs 2=SEEKs 63WRTBLKs 02700200 
NAME OLOC = =23 % POINTS TO BUFFER I/G DESC 02700300 
REAL NUMWDS = 93>, % # WoS TO BE WRITTEN 02700400 
KEY = Ay % RANDOM RECORD ADDRESS OR CARRAGE RTN 02700500 
EXPSTATAR = “dp % AREA TO EXPAND STATUS INTO 02700600 
CHNNL = dy % LP CHANNEL SKIP 02700700 
LINES =z 85, % # LINES TO BE SPACED 02700800 
TIMEOUT = #5, % UNTIL PORTION OF DATA COM 02700900 
SKIPAFT = #6 % t=SpPACE AFTER PRINT 02701000 
02701100 
STATN = ob, % DATA COMM STATION CBUFFER) 02701200 
TUNR = =7} % DATA COMM TERMINAL UNIT 02701300 
ARRAY MKSCWS"4( «13 . 02701310 
02701400 
REAL COBOLCONTROL=233 % FOR LINKAGE BY USE ROUTINES 02701500 
REAL COBOLINDEX =223 % FOR LINKAGE BY USE ROUTINES 02701600 
REAL DEST 3 % DESTINATION IN RANDOM MOVE 02701700 
ARRAY FIB (¥]3 % FIB ARRAY 02701800 
REAL FILECTRL #12 3 % USEQ TO CALL COBOLFCR 02701900 
NAME FLOC3 % POINTER TO FIB 02702000 
ARRAY FPB = 3f%]3 % FILe PARAMETER BLOCK 02702100 
ARRAY HOL*]3 % DISK FILE HEADER 02702200 
REAL IOMASK3 % TO SAVE CTREL CALL 02702250 
NAME MEM = 23 % DUMMY DATA DESC 02702300 
ARRAY PGUSE=24C*]3 % PROGRAM USE ROUTINES 02702400 
REAL RTOG: —% 4s1/0 DONE THIS ROUND 02702500 
REAL T3 % TEMPORARY 02702600 
REAL TECHCOFLO: % USED FOR TECHec OVER FLOWS 02702700 
REAL UNITYPE3 % STORE UNIT TYPE FOR MANY TESTS 02702800 
REAL X13 % *DOxNOT*SEPARATE X14 & X2 THEY ARE 02702900 
REAL Xx2s %¥ USED IN CONJUNCTION FOR TECHC OFLOWS 02703000 

% 


INTEGER BS & X13 USED IN COMPUTING DISK ADDR 


02693440 


02703100 


T 9041680 
T OO1720 
ry od20%1 
y 002130 
T 002233 
rT 002473 
T QOO025%4 
T 002513 
T O028%2 
T 003382 
T 003423 
T 003433 
T 003931 
yr 004013 
y O048%4 
T OO4P%,1 
T OOdato 
SIZEs. 0043 


T O000%0 
ADDRESS = 
0000%0 
elelelen ae) 
00000 
Q000%0 
elelelon ae) 
00000 
000080 
00000 
0000%0 
000080 
elel ston ae) 
000030 
000030 
og00!tdo 
oo00%0 
0000170 
elereleE ae) 
00000 
0000t0 
000010 
o000!r0 
000010 
o000t0 
0000f0 
000030 
0000!0 
Q0000'O 
000010 
0000!0 
000080 
000020 
0000%0 
0000!0 


Se ie ee Ree ee ee ee ee 


WORDS 


09265 


DEFINE 


INTEGER RT = X23 
$ SET OMIT = NOT SHAREDISK 


ARROW 
BADKEY 


BCOUNT 


BINARY 
BOUNDED 
BREAK 
BREAKOUT 


BUFFNUM 
BUFFSIZE 
BUFF SZ 
BUFSTATUS 
BUF TOP 
BUILDSTATNWD 


CHECK CCHECK1) 
ONERRCONERR1) 


CLEARSTATUS 
CLOSEANDOPEN 


COUNT 
OCBUFRLS 


DELAY. 


DONE 


DISK 

FNAM 

ENDFILE 
ENDPROCESS 
ENDREEL 

EOF | 
FOREVER 
EXPAND 
EXPANDSTATUS 


_GETSEG 


HASH 


HASHTOT 
HOWOPEN 


INVALIDUSER 
LOERRCTOERRI) 


LABEO 
LASTDONE 
LASTIO 
LBLPTR 
LINEPRINT 


wou al A at iN 


Hooft 


howou 


HOU 


SPCOseTIP se #2 


% USED IN COMPUTING DISK ADOR 


PCOsNOTsNUMWDSsTIPe INXe@ ) 42 
% THIS INSERTS THE GROUP MARK 

FIBCI3].CA9t1 1%» % BAD KEY RANDOM DISK 
FIBI6)#» % BLOCK COUNT 
FIBCL3].0C2481}]#s & L2BINARY*OSALPHA 
FIBCO]«C2:i]#, % TRUE IF BOUNED FROM ABOVE 
FIB[9] #0 # » % BREAKOUT RESTART POINT 
IFCRCOUNT MOD F1IBL9))#0 THEN 

P(Os09129COMsDEL es DEL #9% CALL BREAKOUT 
FIBC13)«Ci:9)] #e & # OF BUFFS REQUSTED 
FIBC181,03:151]#» % BUFFER SIZE CREQUESTED) 
FIBLIBILBEBt10)]4#s» % SIZE FOR CONCATINATES 
FIBCi4] #4, % STATUS AFTER SEEKOC 
FIB C16)4#>, % USED ON I*O0 AND RANDOM 


PCCSTATNeSKIPAFTI& % BUILD STATION WORD FOR OC 
PCDUPILCI4? 448 a RCTUNRETUNR)C9OPGGS4) DK,» 


IF PCDUPJ4(CHECK1) THEN PCCHECK1is02FLOCe 4» 
ONERR1I si 7 oCOMSDELsDEL sDELsDEL DS PCDELI #4» 
% THE ABOVE ARE USED ON BLOCK+REC CHKS 
% CLEAR BUFFEOJ FOR WRITE 


SPCMKSsleOsFLOC,4sFILECTRL» ZCLOSE NO RWD 


ou on Ht a non uot 


noun 


CC HDLOC) «CO721) He 
CNOT 030f9139) He 


MKSsFLOCeLsFYLECTRL)#* % OPEN INPUT 
FIBC12] #, % USED FOR BLOCKING TECH*AsB 
PCNUMBUFsDLOC,16+ % DATA COMM BUFFER RELEASE 
11sCOMsDELs»pELsDEL 4» 
TIP, C2081) ts % THIS ALLOWS ONE CYCLE DELY 
TIP, CASSL1 Fe % 4%. 10 COMPLETED. 
CUNITYPESA) #, % OISK IS UNIT TYPE OF 4 
FIBC41,013%111%2 %& FILE NAME INDEX IN FPB 
FIletSi+C40:1] #e % ALREADY PASSED EOF 
FIRC5S1-039% 2) #8 % SEE OPTIONAL AND ENDFILE 
X2 #» % USED ONLY ON READ 
* FIRST EOF OR ENT 
% UNTIL END TIME 
*PC,ZEXPSTATAR) #» % EXPAND CELL CHECK 
PCTIPsOsOsEXPANDs % EXPAND STATUS WORD 
27» COMsDEL,DEL» DEL s DEL 4» 
PCFPBL(BSt=FNAM)+3]sFPBLBSJsFPBLBS+1]> 
TeHe Sold sCOMeDELsDELs DEL es DEL» DEL» DEL da, 


=IF NOT DISK THEN IF FIBE£8]>0 THEN 


PCMKSsFLOCe*FIBEB]532COC)#, 
% ABOVE CALLS ROUTINES FOR HASH ACCUMULATON 


sIF FIBC8) >0 THEN IF PCMKSsFLOCs*FIB(8)202C0C) 


aoa. 


ou of ft 


THEN. TOERR(18)#e% CHECKS HASH TOTALS 

FIBCSJeC41:3)#s  % teOPEN INPUTsO® OPEN OUTPT 
%¥ 1 > cLoSED 
FIBIS5]<0#> % INVALID USER NOT PARITY 
PCOsFLOCe2IOERRIis 17s COMsDEL e DEL osDEL) Hs 
% ABOVE CALLS IOERROR ROUTINE 

FIBLS32C17:1) #. % LABEL EQUATED FROM DISK 
FIBLi3],C21#11 #s % NOT OF LAST OPERATION DONE 
FIBCL33,.046%174%, %LAST WAS PHYSICAL READ 
FLOCEL1] #, % LABEL POINTER 
UNITYPE=1 OR UNITYPES7 OR UNITYPE#12 #» 


02703200 
02703204 
02703300 
02703400 
02703500 
02703600 
02703700 
02703800 
02703900 
02704000 
02704100 
02704200 
02704300 
02704400 
02704500 
02704600 
02704700 
02704800 
02704900 
02705000 
02705100 
027052900 
02705300 
02705350 
02705351 
02705400 
02705500 
02705600 


02705700 


02705800 
02705900 
02706000 
02706100 
02706200 
02706300 
02706400 
02706500 
02706600 
02706700 
02706800 
02706900 
02707000 
02707100 
02707200 
02707300 
02707400 
02707500 
02707600 
02707700 
02707800 
02707900 
02708000 
02708200 
02708300 
027083590 
02708400 
02708500 


AH AAA Ht Ht A tt a 8 A A tt AA tt a tt 


000010 
0000!0 
000080 
000080 
0000t0 
000030 
000070 
000010 
0000:0 
000070 
0000t0 
000080 
0000%0 
000020 
00000 
0000%0 
0000%0 
000040 
000040 
000040 
0000!0 
O000fd 
o000f0 
000040 
000040 
000080 
0000%0 
000010 
00000 
000010 
000040 
000040 
000030 
0000%O 
000020 
000010 
000080 
000030 
000040 
000080 
000010 
00000 
00000 
000010 
00000 
000080 
000080 
000010 
000080 
000080 
000030 
0000t0 
0000%0 
000080 
000080 
000080 
000010 
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LSUBL 
LSUBU 
MAXR 
MAXREC 
NONSTD 
NUMBUF 
NUMBSPC 
NUMREC 
NXTREEL 


OPENIO 
OPTIONAL 
PARITY 
PRESENT 
PROPER 
PUNCH 
PURGE 
RANDOM 
RCOUNT 
READER 
READLBL 


RECPERRIK 
REMOTETO 


REMONTEREAD 
REMOTEWRIT 


RESETPARITY 
RESETREADBIT 
REVERSE 
ROTATEBUF 


ROWLGTH 
SANDBKEY 
SEEKDC 


SEEKEY 

SERIAL 
SEGPERBLK 
SETPRESENTSBIT 


a 


% 1= LP » 7 = PBT » 12 2 PBD 
FIB (13 ts % LOWER BOUND FOR RANDOM 
FIB £3] #, % UPPER BOUND FOR DISK REC 


= FIBL18]£8:38340]#»% MAX REC SZ FOR CONCATS 

= FIBC18],C33¢1514#, MAX REC SZ 

= FIB (53,0163? 1]#s % NON#=STANDARD LABELS 

= FIBCL3II.£010% OF, NUMBER OF BUFFERS ASSIGNED 
= H(9),C43t51#> ROWS SPECIFIED aCJC 020 
= FIBC11] #e RECORDS PER BLOCK 

= PC(MKSs2eleoFLOCs 4» THIS DOES REEL SWITCHING 


FILECTRLD#s 
FIBC131,022:1)#, 


FIBC S1J,C39t1I)#» 


f= OPEN INPUT*OUPUT CDISK) 
OPTIONAL FILE NOT PRESENT 
TIP,CL28%ij) 4, PARITY BIT GN DESC 
=(C*OLOC),C2%1) 28> CHECKS PRESENTSBIT 
S2L+CODE+CODE+REVERSE4s% GENERATES PROPER IQERR 
= UNITYPEs6#»5 % UNIT IS CARD PUNCH 4TR 830 I 
TIMEQUT,CFFI]4o#s % TRUE IF LINE TO BE PURGED 
TECHCOFLO#,> % 4 = RANDOM DISK 
FIBE7) ks % RECORD COUNT 
CUNITYPE MOD 1120)4e% OFREADER 11=PSUDOREADER 
=PCOLOC INX Osttet1 %& THIS READS THE LABEL. 
sCOMPDELeDEL) #s a 
= HEO}].030%12] #s %- RECORDS PER BLOCK 
=PCBUFFSIZE»0LOc=s % READ & WRITE BATCH SYSTEM 
FOREVER CIF CODE THEN LINES ELSE 1)» ZF OR 
KEYsOeCFRXeTIPecODEs 362COMe ZREMOTE OR 
DEL sDEL*DEL*sDELesDELes1»SUB»sRTNI#s+%TYPE 19 FILES 
SPCBUFFSIZEsTIP 1+ % READ FROM TSS 
Chess COMetseSuBbseRTNI As & 
SPCTIPsNUMWOS x80 4 WRITE FOR TSS 
LINES# KEY oCFXe Qe Cll) sCOMsDELeRTN) Bs 
DLOCCOJ+TIPROL288 2831 1#,4RESET PARITY BIT DISK 
OL2At 2a les % USED TO TURN OFF READ BIT 
FIBC5S).C4424)] #e -% 1BREVERSE 
PCNUMBUF eDLOCs143011. ® ROTATES BUFFERS WITH 
sCOMs DEL e DEL eDEL 42% no I/0 
HLil#,s % ROW LGTH FROM HEADER 
FIBC13]7,019%21 #» % SEEK AND BADKEY 
=PCORNUMNDS(14%4484] % DATA COM SEEK AND XIT 
&CHNNL C9OP44t Al eOLOCe Seite COMexIT) 4» 
FIBLC13],C208114» % SEEK WAS DONE 
FIBC4].-£2723320 #+ % FILE ACCESS = SERIAL 
HLO}.£42%6] #, % SEGMENTS PER BLOCK 
SP(TIP OR MEM eplLOCre¢)#e% SET PRESENCE BIT 


Hou 4 


FE BL Fe FE Be Be ge BL BQ Be |e 


a 


nud 


uoat at on 


“on 


ion 


$ SET OMIT = NOTCTIMESHARING) 


SLEEP 
$ POP OMIT 


‘= 36 bs 


$ SET OMIT = TIMESHARING 


TAPEE 

TECH 

TECHA 

TECHC 
TERMCTERM1) 
TIP 

TOTREC 

UNL ABELED 


= TIP.C7%1) #, % 1= TAPES OFALL ELSE 

= FIBCS1.€C4622) &#» ZTECHNIQUE 
S(FIBC5S]-C46:2}=1) #2% TECHNIQUE@A 
=(FIB(S)+C46%21=3) #29% TECHNIQUE*C 
PC1lsFLOCs TERMI s17sCOM)#s%TERMINATE I/0 ERROR 
C*DLOC) #, ® LOAD 1/0 DESC 

HO7) 4s % TOTAL RECORDS ON FILE 
CFIBCAI].CA811 Fs % UNLABELED FILE 


ono 


02708600 
02708700 
02708800 
02708900 
02709000 
02709100 
02709200 
02709300 
02709400 
02709500 
02709600 
02709700 
02709800 
02709900 
02710000 
02710100 
02710150 


02710200 © 


02710300 
02710400 
02710500 
02710600 
02710700 
02710800 
02710900 
02710950 


02711000 


02711100 
02711200 
02711300 
02711400 
02711500 
027411550 
02711600 
02711700 
02711800 
02711900 
92712000 
02712100 
02712200 
02712300 
02712400 
02712500 
02712600 
027142700 
02712800 
02712900 
02712950 
02713000 
02713200 
02713250 
02713300 
02713400 
02713500 
02713600 
02713700 
02713800 


a a sn st ss a ts st A tt 


000010 
000030 
000030 
o000t0 
000080 
000010 
0000%0 
0000%0 
000030 
000040 
000030 
000080 
000080 
000010 
000010 
000080 
000080 
000010 
000010 
0000%0 
000080 
000040 
0000%0 
000020 
000070 
000010 
g000t0 
000080 
000070 
000010 
Q0008O 
000080 
000010 
0000%0 
000080 
000040 
000080 
000010 
000080 
000080 
Q0008O 
Q000t0 
000080 
0000!%0 
000010 
000070 
0000%0 
0000%0 
000040 
000080 
0000%0 
000010 
0000%0 
000080 
000010 
0000!0 
000080 


UT = (FIBC4],0C8%4])#» * HARDWARE TYPE 
WATTOC = P(DLOCs IOMASK, % THIS SLEEPS ON I/0 COMPLE 
SLEEP sCOMs=)#s % AND LEAVES A FALSE ON STK 

WAITIO = PCDLOC*IOMASK, * THIS SLEEPS ON 1/0 

SLEEP sCOM*DELs DELI #s% WAITING FOR A COMPLETE 
WORDSLEFT = FIBCI7 14s % WORDS LEFT IN BUFFER 
WRITEPARITY = FIBCS)«C3sti#, % INDICATES FORCED REELSWITCH 
WRITEAFTEREOF = FIBCi3],Cadsayes, & 
WRITBACK = FIBEC13)],023313#3 & FLAG TO SAY WRITE BACK 


LABEL LPRETURN®* JOUTsSTARTs TQDONE*sRANDOMLBL» SEEKRTN® SETUPS 
LABEL IMPROPER» DCPRL oF IXSTATNWDs DIDDLEs DIDDLEWRTs SERIALIOsEOFSETCKE 
LABEL DATACOM*RANDOMIG*sRERE AD 
SUBROUTINE GOUSE3 @ THIS CALLS USE ROUTINES 
BEGIN COBOLINDEX « T,£26310]3 
PCMKSsT, £38810} sCCOBOLCONTROL1)3 ®THIS EXECUTES THE 
END GOUSEs % CODE SEGMENT 
SUBROUTINE MAYBEPARITY3 
BEGIN 
SETPRESENTSBIT3 
IF (CT ¢RT ¢PGUSELCDISK AND OPENIO)x34+934012231)40 
THEN GOUSE 3 
IF (T¢FIB £€157.01:23)) 40 THEN GOUSE3 
$ SET OMIT = NOT SHAREDISK 
IF RTOG THEN 
IF ¢7T OR RT) = O THEN IOERR(19)3 
END MAYBEPARITY3 


SUBROUTINE MOVREC3 BTHIS MOVES RECORDS TO&FROM WORK AREA 


BEGIN IF CODE # 4 THEN 
PCBUFTOP INX¢€BS*CNUMWDS *X CRCOUNT MOD NUMREC))41)) 
ELSE 


PCXCH)3 &PICK UP VALUE LEFT FROM SERIALIO 
PCBUFTOP INX C(BUFFSIZE + 2))3 %FIND END OF BUFFER 
DEST t= IF CODE THEN P (XCH) ELSE P3 
STREAM CFROMS=PiNUMWDS+ES=NUMWDS,C3686]* XX$sDEST)3 
BEGIN 
SI*FROM$ EC DS*32WDS3D0S¢32WDS)3 DS*NUMWDS WODSS 
END3 
IF CODE THEN DEST t= P 
ELSE BEGIN 
PCDEL)3 | 
IF CODESO AND PARITY THEN 
BEGIN 
$ SET OMIT = NOT SHAREDISK 
MAYBEPARITYS 
ENDS 
END 
DLOCLO] © TIP& DESTL33233%15) 
| END MOVRECS 
SUBROUTINE DIDDLEREC? % THIS ROUTINE GETS THE NEXT RECORD 
BEGIN : % FOR ALL SERIAL FILES CREAD & WRITE) 
WORDSLEFT « T 3 
DLOCLO) «© NUMWDS INX TIP3 
REDUNT © *PCOUP) + 13 
IF BREAK THEN BREAKOUTS 
IF PARITY THEN MAYBEPARITYS 
END DIDDLES 
$ SET OMIT = NOT SHARFDISK 


02713900 
02714000 
02714100 
02714200 
02714300 
02714400 
02714410 
02714450 
02714500 
02714600 
02714700 
02714800 
02714900 
02715000 
02715100 
02715200 
02715300 
02715400 
02715450 
02715500 
02715600 
O2715700 
02715709 
02715800 
02715900 
02716000 
02716100 
02716200 


02716300 


02716400 
02716500 
02716600 
02716700 
02716800 
02716900 
02717000 
02717100 
02717200 
027147300 
02717400 
02717500 
02717510 
02717519 
02717530 
02717540 
02717600 
02717700 
02747800 
02717900 
02718000 
02718100 
02718200 
02718300 
02718400 
02718500 
02718600 
02718604 


AA AANA BAMA A A tt tt tt st tt tt st 


0000%0 
Q000d8o 
olelelen ae) 
Q000!t0 
0000%0 
ag000%0 
0000!%0 
0000%0 
0000!0 
00000 
000010 
0000%0 
o00nto 
000120 
GO02t, 
0003!%2 
000333 
000410 
000410 
000522 
0010%1 
001210 
001630 
0014640 
OO164 
002082 
0020:3 
0024!0 
002423 


0025%2 


002533 
0026%2 
0028:3 
003043 
003213 
003233 
0034:3 
003510 
003523 
003623 
003780 
0039:0 
0039%2 
0039%2 
004440 
004480 
004480 
004433 
004923 
0043!0 
0043120 
004414 
0045143 
004733 
005320 
00546t0 
00856%4 


e 


SUBROUTINE PREL3 % THIS DOES ACTUAL I/0 
BEGIN 
IF NOT CRT LSS 0) THEN 
BEGIN 
PC TIPspLOC)3 
IF WRITBACK THEN % OG SPECIAL WRITE*IO 
BEGIN WRITBACK ¢ FALSES  &% TURN OFF READ BIT 
DLOCCO]* TIP&RESETREADBIT#% TO MAKE WRITE 
END3 
P(PRL»DEL D3 % 00 I*0 
END} 
BCOUNT © *PCDUP) + CRTOG*1)3 %COUNT BLOCK&SET IarTOG 
IF CODE = 2 THEN GO TO SEEKRTN3 
RCOUNT ¢ *PCDUP) + 13 
IF NOT DONE THEN 
$ SET OMIT = NOT SHAREDISK 
WATTIO; 
IF BREAK THEN BREAKOUT} 
END PREL} ‘% ON NEW DESC 
SUBROUTINE REFLECTCHECKER 3 % WRITE PARITY ROUTINE 
BEGIN 
IF NOT EOF THEN %TAPE WRITE PARITY OR BLANK TAPE 
BEGIN 
IF OPENIO AND OYSK THEN IFCT*PGUSEC12],(1223))#0 
THEN GOUSE ELSE ELSE 
IF (TePGUSEL9].£24:24])40 THEN GOUSE3 
IF (TeFIBCIS)].01%23]) # 0 THEN GOUSES 
TERM(20)3 
END} 
SETPRESENTSBIT3 % MAKE DESC PRESENT 
IF NOT DISK THEN NXTREELS% REEL SWITCH 
FND RELECTCHECKERS 
SUBROUTINE SKIPPER} % THIS DOES SKIPPING ON LINE PRINTER 
BEGIN NUMBUF © 43 % INHIBIT BUFFER ROTATION 
IF CHNNL # 0 THEN LINES #2 143 
DLackO] « TIP &@ 1 Cigs4731} 
RCLO#CHNNI) £278424613 
FOR Te2 STEP 2 UNTIL LINES 00 
BEGIN 
PREL3 
IF NOT PRESENT THEN IF EOF THEN SETPRESENTSBIT 
ELSE REFLECTCHECKERS 


% COUNT RECS 


END; 
IF LINES THEN 
BEGIN 
DLOCLOJ+ TIP & C2™C2XCCHNNL40)))£27346:2)3 
PREL3 
If NOT PRESENT THEN IF EOF THEN SETPRESENTSBIT 
ELSE REFLECTCHECKER3 
END; 
NUMBUF « BUFFNUMS & RESTORE BUFFER FOR ROTATION 
END SKIPPER} 
SUBROUTINE REVREAD3 ® THIS DOES A READ REVERSE 
BEGIN DLOCECO)] + FLAG CFIB f£16))3 
PRELS 
FIBL146),033215)]« TIP; 
WORNSLEFT « MEM [1 [NX TIP]3 


02718700 
02718800 
02718900 
02719000 
02719100 
02719200 
02719300 
02719400 
02719500 
02719600 
02719700 
02719900 
02719950 
02720000 
02720100 
02720109 


02720150 © 


02720200 
02720300 
02720400 
02720500 
02720550 
02720570 
02720600 
02720605 
02720610 
02720620 
02720650 
02720670 
02720700 
02720800 
02720900 
02721000 
02721100 
02721200 
02721300 
02721400 
02721500 
02721600 
02721700 
02721800 
02721810 
02721900 
902722000 
02722100 
02722200 
02722300 
02722400 
027224140 
02722500 
02722600 
02722700 
02722800 
02722900 
02723000 
02723100 
02723200 


a se a ts a a a 


005634 
00570 
0057:0 
005733 
O0Sati 
005910 
0060!0 
0063!0 
006510 
0065%0 
006533 
006593 
006814 
0069t2 
007482 
007233 
0072%3 
007413 
0080%0 
008084 
008130 
00810 
O00B2t4 
008283 
0086%3 
008932 
009410 
O09at0 
009934 
0090TY 
010083 
0103%2 
010333 
010410 
010682 
010a%2 
O109t4 
Q112%0 
0113%0 


011380 


011430 
011833 
012010 
O122%1 
012232 
012310 
012632 
012820 
0132383 
013480 
013420 
O137%4 
0137%2 
0138:0 
0139%4 
014020 
O142%4 


eo 


oo 7 7 -{ Saeed tate = eos wate ees ee erate, 3 Gist noe ones * poe 


NOS 
SURROUT INE READREV3 % THIS HANDLES A READ REVERSE 
BEGIN IF NOT TECHA THEN 
BEGIN 
REVREADS 
DLOC £0] © NOTCWORDSLEFT#2) INX TIP3 
END 
ELSE 
IF CWORDSLEFT t= T) LEQ@ 0 THEN 
BEGIN 
REVREAD3 
NOLOCCLO] «© CNOTCMAXREC = 2 )INX TIP)&MAXRS 
END 
ELSE BEGIN 
DLOCELO]* NOTCNUMWDOS*4)INX CTIP 
RCNOT TIP) C2%2824))3 
RCOUNT © *PCDUP) + 13 
END 3 
IF NOT PRESENT THEN 
BEGIN 
SETPRESENTSBITS 
IF EQF TREN 
BEGIN 
ENDFILE * TRUE 
HASHTOTS 
P ClsRTN)3 
END# 
IF (T «PGUSECL9OIQFIBC15)] £€25:213231)40 THEN GOUSE; 
IF RTOG THEN IORPRR (29935 
ENDs 
END READREV3 
SUBROUTINE ERRORS 
BEGIN IF FOF THEN 
BEGIN 
RBCOUNT + *P(DUP) © 43 
RCOUNT © *P(DUP) * 13 
ENDFILE «© TRUE; 
SETPRESENTSBITS 
IF READER THEN PCL»eRTNDS 
IF NOT UNLABELED THEN 
BEGIN 
ENOREEL t= FALSE; 
IF NOT OISK THEN 


BEGIN 

READLBL3 

STREAMCSENT#OsBCeOsRCHOewPedsLeLBLPTR)3 
BEGIN % THIS RETRIVES END 


pI « LOC SENTS® OF REEL SENTINALs 
OI « DI +73 % BLOCK & REC COUNT 
SI ¢ Lo & SIT «S1+393 

nS « CHR3DSeS OCTIDSe7 ocT; 

OI + O1+73 OS © CHR; 


E 
IF P=1 THEN WRITEPARITY © TRUES 
CHECKCRCOUNT) ONERR(16)3 
CHECKCBCOUNT) ONERR(C17)3 
ENDREEL ¢ P 3 % THIS STORES SENTINAL 


02723300 
02723400 
02723500 
02723600 
02723700 
02723800 
02723900 
02724000 
02724100 
02724200 
02724300 
02724400 
02724500 
02724600 
02724700 
02724800 


02724900 © 


02725000 
02725100 
02725200 
02725300 
02725400 
02725500 
02725600 
02725700 
02725800 
02728900 
02726000 
02726100 
02726200 
92726300 
02726400 
02726500 
02726600 
02726700 
02726800 
02726900 
02727000 
02727100 
02727200 
02727300 
02727400 
02727500 
02727600 
02727700 
02727800 
02727900 
02728000 
02728100 
02728200 
02728300 
02728310 
02728400 
02728410 
02728500 
02728600 
02728700 


a a es a a 


0145:0 
O14584 
014640 
014722 
014810 
014930 
015182 
015182 
O15t¢%2 
015323 
015431 
015510 
0159314 
0159%4 
015923 
O164%4 
Q16332 
0165!2 
016542 
016633 
O167%4 
016833 
016913 
Q170814 
017243 
017832 
017940 
017980 
018320 
018523 
018543 
O0186%0 
0186%0 
018750 
0487%90 
018982 
0191%2 
0194130 
0195ta2 
019783 
01991%0 
019989 
020081 


0201490 


020442 
O0203%2 
020630 
020684 
02062 
020633 
0207 %4 
020880 
020882 
020833 
O212%1 
021623 
O224%1 


Se Sr a ey i i i ie ir; 


_ 


$ SET OMIT 


IF NOT WRITEPARITY THEN 
BEGIN 


HASHTOT3 
IF (TePGUSEL3),0 1223))% 0 THEN GOUSE; 
IF CT+PGUSEL3],£24324])2 0 THEN GOUSE; 
END? 
END 
ELSE STREAM CRECTOTe TOTREC + 1» 
LABL «¢ LBLPTR)} 
BEGIN 
SI « Loc RECToT 3 
DI « DI + 453 
OS « 7 DEC; 
END; 
IF NOT ENDREEL THEN 
IF PGUSECBS+(DISK AND OPENTO)x942)%0 
THEN BEGIN : 
IF CTePGUSELBS1,£ 18233920 THEN GOUSE3 
IF (TePGUSECBS),£24124])40 THEN GOUSE3 
END3 
IF NOT OISk THEN % END OF REEL USE ROUTINES 
IF NOT WRITEPARITY THEN 
BEGIN 
IF (TeFIB €3),€ 112312940 THEN GOUSE3 
IF (TeFIB £31,£24:24])40 THEN GOUSE3 


END ; 
IF NOT ENDREEL THEN 
BEGIN 


IF (Te FIB (23,0 15232)70 THEN GOUSE3 
IF (Te FIB £2),024%24]9%0 THEN GOUSE; 
PC LsRTN)3 
END; 
ENDS 
IF NONSTD THEN 
BEGIN 
ENDFILE 35 FALSE} 
CLOSEANDOPEN3 
PC1sRTN)3 
END3 
NXTREELS 
PCDELsDEL)3 ZDELETE BRANCH RETURNS 
WRITEPARITY «© FALSE} 
GQ TO START; 
END3 
MAYBEPARITY3 
ND ERROR; 


EN 
SUBROUTINE DISKADDRESS; THIS COMPUTES THE DISK ADDRESS READ & WRIT 


TF CODE THEN RT ¢ SEGPERBLK x BCOUNTS 
IF PCRT DIV ROWLGTHsDUP) GEQ NUMBSPC THEN 
BEGIN 
NOT SHAREDISK 
PCtsRTN)3$ 
END: 
IF €T¢ P + 10) LSS 10 THEN Te10; 
IF (BS ¢ HET]) = THEN 
BEGIN 


02728710 
02728720 


02728800 


92728900 
02729000 
02729010 
02729100 
02729200 
02729300 
02729400 
02729500 
02729600 
02729700 
02729800 
02729900 
02730000 


02730100 


02730200 
02730300 
02730400 
02730500 
02730510 
02730600 
02730700 
02730800 
02730900 
02731000 
02731400 
02731200 
02731300 
02731400 
02731500 
02731600 
02731700 
02731800 
02731900 
02731950 
02732000 
02732100 
02732200 
02732300 
02732310 
02732400 
02732500 
02732600 
02732700 
02732705 
02732710 
02732715 
02732716 


02732717 © 


02732718 
02732724 
02732722 
02732723 
02732725 
02732730 


T 
7 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Mi 
T 
t 
T 
T 


T 
t 
T 
T 
T 
T 
T 
y 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
r 
T 
T 
T 
T 
T 
T 
T 
T 


022133 
022310 
0223%2 
022934 
0232t2 
0236314 
023730 
023730 
023833 
0240!0 
024080 
024034 
024032 
024033 
024110 
024182 
024533 
Q246%3 
025010 
025344 
0254%0 
025483 
O256!2 
025710 
026140 
026520 
026530 
0265!2 
0266!0 
027010 
027480 
O274t2 
O274te2 
027432 
027532 
027680 
027832 
02810 
028439 
0281!2 
028340 
0283%2 
028680 
028632 
0286%2 
0288°0 
O288t1 
028910 
0289%0 
029210 
O294t2 
029510 
029510 
02952 
0295%k2 
029884 
029983 


GETSEGs 
IF INVALIOUSER THEN 
BEGIN 
MAYBEPARITY3 
ENO3 
IF HOWOPENZO THEN IF NOT OPENIO THEN IOERR( 2273 
BS ¢ HET)}3 
ENDS 
STREAMC A © BS « BS + RT MOD ROWLGTHe 
BeTeBUFTOPe(CFJ"CIF CODE THEN QO ELSE WRITBACK))3 
BEGIN SfteLOC As DS*8 DEC? END; 


$ SET OMIT = NOT. SHAREDISK 


END DISKADDRESS:3 


SUBROUTINE WRITS % THIS WRITES A RECORD 
BEGIN IF TECHC THEN 
BEGIN 
; STREAM (A © TIP, B © EX1] )3 
BEGIN 


SI © As DI ¢ DI +43 DS © 4 CHR} 
DI © DI +43 DS © 4 CHR} 
ENDé 
TECHCOFLO ¢18TIPL183321578NUMWDS( 323321593 
NUMWDS ¢ *WORDSLEFT *+CWORDSLEFT ¢ BUFFSIZE)3 
gt oer ons FLAGCFIBL16] & NUMWDS£8338210))3X%TRB40 
NO 
ELSE BEGIN 
COUNT © NUMRECS 
NUMWOSe CWORDSLEFT ¢ BUFFSIZE) * T 3 
IF PUNCH THEN FIBC16).£32%1] © CHNNLS &%TR 830 I] 
IF DISK THEN 
BEGIN 
LASTIO ¢« 03 
%¥THIS COMPUTES THE AMT OF DISK USED IN ROWS 
IF CRCOUNT+1) DIV RECPERBLKxSEGPERBLK DIV 
ROWLGTH GE@ NUMBSPC THEN 
IF CRCOUNT + OPENTIO) DIV 
RECPERBLK x SEGPERBLK DIV ROWLGTH 
GEQ NUMRSPC THEN 
BEGIN 
IF OPENIO THEN RCOUNT «© *PCDUP) + CSERIAL)3 
COUNT « 03 
PC1eRTN) 
END ELSE 
IF SERIAL THEN COUNTe¢O ELSE BADKEYe TRUE; 
DLOCLO] «© FLAGCBUFTOP & RESETREADBIT)3 
PCCODE)3 
CNDE « 1; 
DISKADDRESS3 
CODE « P3 
$ SET OMIT = NOT SHAREDISK 
END 
ELSE IF LINEPRINT THEN 
BEGIN 
IF NOT SKIPAFT THEN 
BEGIN 
SKIPPER; 
LINES « CHNNLe Of 


02732740 
02732742 
02732744 
02732746 
02732748 
02732750 
02732760 
02732765 
02732770 
02732775 
02732780 
02732784 
02732795 


02732800 © 


02732900 
02733000 
02733100 
02733200 
02733300 
02733400 
02733500 
02733600 
02733700 
02733750 
02733800 
02733900 
02734000 
02734100 
02734150 
02734200 
02734300 
02734350 
02734400 
02734500 
02734600 
02734700 
02734800 
02734810 
02734820 
02734830 
02734835 
02734840 
02734900 
02735000 
02735100 
02735200 


02735300 


02735400 
02735450 
02735599 
02736100 
02736200 
02736300 


02736400 - 


02736500 
02736600 
02736700 


a ee mes ta a At Ht HH ONO NOH 


030084 
03070 
0308:0 
030832 
031010 
031030 
0315:3 
031633 
031683 
031930 
0323%2 


032494 


032434 
Q32412 
0325%0 
032632 
0327!0 


032851- 


O328%4 
032980 
032982 
032933 
O33a%1 
033533 
0338:0 
033850 
Q0338%2 
0340130 
034330 
034643 
0347!%2 
034870 
0350%2 
035032 
035420 
035410 
0358%1 
036130 
036233 
036384 
O367%4 
036944 
0369%3 
036983 
0376%2 
0378:3 
037930 
037933 
038110 
0384!2 
038482 
038182 
038433 
038541 
Q0385%3 
O386%1 
QO3878O 


eeeoeeeee8eee8eee0ee8e88e00808080 4 


GQ TO SETUP; 
END: 


IF CCHNNL 40) OR (LINES $ 2) THEN 
SETUPS DLOCLOJ« FLAGCFIBLIGIS&LINES (2734784) 
&LINES [2834624] 
&CHNNL €29:24424)) 
ELSE BEGIN 
PLOCLO] © FLAGCFIBL16]8@20 £27%42:261);3 
PRELG 
IF NOT PRESENT THEN REFLECTCHECKER3 
LINES ¢ LINES = 23 
SKIPPER3 
GO TO LPRETURNS 
END3 
ENO LINEPRINTER 
ELSE DLOCLO] © FLAGCFIBLI6GIENUMWOSLB%238310))3 
END; 
IF TAPEE THEN IF NOT BINARY THEN ARROW3 
IF DISK AND BS < 100 THEN TERM(C49)3 
PREL 3 . 
LPRETURN? FIBE167,.033#15) « TIP 
DLOCLO] * ¢DISK) INX TIP & MAXR3 
IF TECHCOFLO THEN . 
BEGIN 
sSTREAM CI © [CXL ]eAeNUMWDSeTECHCOFLO,( 3215] 
Bo TECHCOFLO«e£18815]» K ¢NUMWDS.C36!%6]>» 
X @ TIP OR MEM 93 
BEGIN 
SI ¢ ps 
K(DS « 32 WOS3DSe 32 wHoSs)s 
DS ¢ a WOS3 
SI © 73 DI © xX} ST e#S]+43 
DS¢4 CHRS SIeS1I+43 OS « 4 CHR} 
ENDS 
TECHCOFLO ¢ 03 
DLOCELO) ¢ NUMWOS INX TIP3 
WORDSLEFT © WORDSLEFT = NUMWDS3 


END 
IF NOT PRESENT THEN CJC 021 
BEGIN 
$ SET OMIT = NOT SHAREDISK | 
REFLECTCHECKERS 
END ELSE 
RESETPARITYS 
END WRITS 
SUBROUTINE WRITEADUUSTS % THIS ADJUSTS BLOCK+REC PTRS 
BEGIN 
T. $m 03 
PCNUMWDS)3 “SAVE OFF NUMWDS 


BCOUNT t= *PC(DUP) = 13 ZBACK UP BECAUSE WE 

RCOUNT t= *P(DUP) = 43 WERE READING 

WRITS 

BCOUNT t= *P(DUP) + 43 SUP GRADE SO IT CAN STILL 

RCOUNT t= *PC(DUP) + 1% &% THINK THAT WERE READING 

NUMWDS3= P3 

WORDSLEFT && *P(DUP)=NUMWDSSZD0NT LOSE LAST REC 
END OF WRITEADJUST3 


02736800 
02736900 
92737000 
02737100 
02737200 
02737300 
02737400 
02737500 
02737600 
02737650 
02737700 
02737800 
02737900 
02738000 
02738100 
02738200 
02738300 
02738400 
02738500 
02738600 
02738700 
02738800 
02738900 
02739000 
02739100 
02739200 
02739300 
02739400 
02739500 
02739600 
02739700 
02739800 
02739900 
02740000 
02740100 
02740200 
02740300 
02740400 
02740500 
02740510 
02740519 
02740530 
02740540 
02740550 
02740600 


02740700 


02740800 
02740900 
02741000 
02741100 
02741200 
02741300 
02741400 
02741500 
02741600 
02741700 
02741800 
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O388%4 
038823 
0388%3 
0390%9 
039433 
039223 
039333 
039533 
039734 
039970 
040280 
040384 
O404to 
04048%o2 
040482 
040432 
040724 
0407%4 
041224 
041533 
0414750 
O419%4 
O422%2 
042283 
O42354 
042530 
042533 
042723 
042743 
042810 
042934 
0429%3 
0430%2 
O434%4 
O434%2 
O430%4 
043313 
043923 
043533 
043730 
043722 
043782 
04390 
0439%0 
044482 


“QO44423 


044270 
O442t0 
044213 
044310 
0445120 
044730 
044880 
0450!0 
045280 
045282 
045482 
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SUBROUTINE REED? © % THIS READS A RECORD 
BEGIN IF DISK THEN 
BEGIN LASTIO « 43 
IF RCOUNT > TOTREC OR BADKEY THEN 
BEGIN 
DLOCLO]e TIP &10278473113 
WRITEAFTEREQF © 33 
IF OPENTO AND SERTAL THEN 
RCOUNT © *PCDUP) +13 
ERROR; 
END} 
OLOCLOI© FLAGCFIBEL163)3 
RT « CBCOUNT+¢( Te CNUMBUF 4) ))XSEGPERBLK3 
RT = SEGMENTS READ +» TRBUFFERS 
IF CT¢CTXRECPERBLK)+RCOUNT) GTR TOTREC OR 
CT >LSUBU AND BOUNDED) THEN 
BEGIN 
IF WRITBACK THEN 
BEGIN 
WRITEADJUSTS 
gO TO OUTS 
END3 
DLOCLOVeTIPSLC2S7TIEA7TIAISOL 294784433 
ROTATEBUFS &THIS FLAGS ERROR DESC 
RT * =13 & THIS INHIBITS PRL 
END 
ELSE BEGIN 3 
PCCODE)} COnE « O03 
DISKADDRESS3 
. COME ©« P3 
$ SET OMIT = NOT SHAREDISK 
END END 
ELSE BEGIN 
IF NUMWDS<14 AND RCOUNT >O THEN TERM(26)3 
DLOC £0] © FLAG CFIBL161)3 
ENO; 
IF CODE=2 THEN NUMBUF ©2323 
PRELG 
IODONE: WOROSLEFT «© IF DISK THEN % DISK KAS NO SHORT BLOCKS 
. IF (BS¢TOTREC™RCOUNT+2)2RECPERBLK THEN 
- BUFFSYTZE ELSE (BSxMAXREC) ELSE 
MEM ECNOT © ) INX TIPI3 
IF NOT PRESENT THEN 
BEGIN 
$ SET OMIT = NOT SHAREDISK 
ERROR} 
END ELSE 
BEGIN RESETPARITY3 
$ SET OMIT = NOT SHAREDISK 
ENg3 
IF RANDOM THEN GO TO RANDOMLBL3 
FIBC16),.£3315] « TIP? 
DLOCCOJ*© CDISK) INX TIP & MAXR$ 
$ SET OMIT = NOT SHAREDISK 


TOUT: END REED 3 
SUBROUTINE SEEK3 % THIS CHECKS FOR PRESENTS OF BLOCKS IF NOT IT REANS 
BEGIN 


02741900 
02742000 
02742100 
02742200 
02742300 
02742400 
02742420 
02742450 
02742460 
02742500 
02742600 
02742700 
02742800 
02742900 
02743000 
02743100 
02743200 
02743300 
02743400 
02743500 
02743600 
02743700 
02743800 
02743900 
02744000 
02744100 
02744200 
02744300 
02744400 
02744500 
02744599 
02744800 
02744900 
02745000 
02745100 
02745200 
02745300 
02745400 
02745500 
02745600 
02745700 


02745800 


02745900 
02745905 
02745909 


O2745975 


02745980 
02745985 
02745989 
02745995 
02746000 
02746100 
02746200 
02746249 
02746300 
02746400 
02746500 
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045423 
045570 
045523 
045883 
046424 
046433 
0463%3 
046684 
046920 
0474:2 
0473140 
0473%0 
O47 4h4 
047843 
047833 
O482%4 
048433 
O485t4 
O486%4 
048633 
O4B880 
O4BBia 
O4BBF2 
O494%2 
O49 gty 
049584 
O495%4 
049583 
049633 
049820 
O49Rt2 
049812 
Oa49ata 
049940 
0502!3 
0504!0 
050410 
0507:3 
050930 
O5i0t! 
O544%4 
O518%4 
0520%3 
052240 
0522%2 
O522%2 
052410 
052420 
0526%2 
0526%2 
052632 
O527%t2 
052943 
053330 
0533%0 
053331 
O534:0 
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IF (CCKEY © KEY@1)<LSUBL 2 OR CKEY >LSUBU AND BOUNDED) 
THEN BAOKEY ¢ TRUE 
ELSE BEGIN 
BCOUNT © CRCOUNTe«KEY) DIV NUMREC3 
IF BCOUNT #4 COUNT THEN 
BEGIN 
REREADS 
IF NUMBUF=2 THEN 
BEGIN 
ROTATEBUFS | 
IF NOY NONE THEN 
$ SET OMIT = NOT SHAREDISK 
WAITIOS 
NUMBUF «13 
OLOCLO] « DLOcCli33 2CJC O18 
END3 
IF CODE=2 THEN DLOCCile TIP: 
IF RCOUNT ¢ TOTREC THEN REED 
ELSE IF BCOUNT =C(TOTREC DIV NUMREC) THEN 


BEGIN ABOVE CHECKS FOR LAST BLOCK 
RCOUNT © TOTRECS 
REEDS 
END} 
SEEKRTN: RCQUNT ¢ KEY3 


IF RTOG THEN . 
COUNT « BCOUNT « *PCDUP) =» 413 
$ SET OMIT = SHAREDISK 
ENDS 
$ POP OMIT 
$ SET OMIT = NOT SHAREDISK 
BADKEY « FALSE3 
END3 
SEEKEY + (CODE=2)3 
IF CODE = 2 THEN PCX1T)3 
END SEEK3 
LLELELUYEYLEESTART HERE XS SLLLLALELLHLELY LLL LALA LLL LKLS 
START $ 
FIR * * CFLOC « (NOT 2) INX DLOC)s *SET UP IDS 
IF FPBCFNAM+31.042:61]543 THEN | % DUMMY 
IF CODE=0 THEN GO EQFSETCK ELSE 
IF PCMKSCWsTOP»XCHsDEL) THEN PCXIT) 
ELSE PCOsRTN)3 
IOMASK &%= @20000000003 
IF CUNITYPE*UTI=4 THEN % DISK 
BEGIN 
H « * (FIBCi4]]3 % LOAD HEADER 
IF RCOUNT > LSUBU AND BOUNDED THEN 
IF CODE THEN 
IF CRCOUNT*C(COPENIO AND (SERIAL)) 
P(4»RTN) ELSE ELSE BADKEY « TRUE 
NOT SHAREDISK 
IF COME«f£1%1] THEN 
BEGIN CODE+*ABS( CODE) 
NOT SHAREDISK 
ENDS 
END; 
IF NOTCENODPROCESS=0 OR CODE) THEN GO TO EQFSETCK3 


) > LSUBU THEN 
} 


il 


$ SET OMIT 


$ SET OMIT 


H 


02746600 
02746700 
02746800 
02746900 
02747490 
02747200 
02747250 
02747300 
02747400 
02747500 
02747600 
02747609 
02747650 
02747700 
02747800 
02747900 
02748000 
02748100 
02748200 
02748300 
02748400 
02748500 
02748600 
02748700 
02748750 
02748800 
02748899 
02748900 
02748901 
02748909 
02749000 
02749100 
92749200 
02749300 
02749400 
02749500 
02749600 
02749700 
02749710 
02749720 
02749730 
02749740 
02749800 
02749900 
02750000 
02750100 
02750200 
02750300 
02750305 
02750310 
02750314 
02750325 
02750330 
02750334 
02750400 
02750450 
02750500 
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0534:0 
O537%14 
054084 
054240 
0545140 
O54631 
054683 
054683 
054844 
054833 
055142 
055213 
055213 
055413 
055744 
055a%3 
0558%3 
056473 
056434 
056712 
0568:°0 
056932 
05710 
O574%0 
OS7ats 
057282 
057630 
057610 
057620 
057620 
057610 
O578%2 
O57ato 
0581:2 
0583!0 
O583%4 
O583%4 
058633 
O589%4 
059280 
O593%4 
059523 
059623 
O597i2 
O599%0 
06000 
O604%4 
060323 
060a%a 
060934 
061570 
0615170 
061593 
OG1784 
061734 
0647%4 
O617%1 
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IF CODE>4 THEN % OTHER THAN READ OR WRIT 
BEGIN 
IF CODE=2 THEN % SEEK 
BEGIN 
IF HOWOPEN>1 THEN GO TO IMPROPER; 
TF DISK THEN SEEKS 
$ SET OMIT = TIMESHARING 
TERM(28)3 %IMPROPER SEEK 


ENDS 
IF CODE*6 THEN % WRITE BLOCK 
IF OISK THEN *CUBE XIX I 
& SET OMIT = NOT SHAREDISK 
IF OPENIO aNp %CUBE XIX I 
FIBC4],6°273:3] = 1 THEN SCUBE XIX I 
60 TO RaNDOMIO CUBE XIX I 
ELSE TERM(35) ZCUBE XIX I 
FLSE % THEN IT IS TAPE CUBE XIX I 
IF FIB(5}],044:4] # 0 THEN CUBE XIX I 
% TERMC34) WHEN WRITE BLOCK ON INPUT OR ON ZCUBE XIX I 
% REVERSED OR ON UNQPENED FILE, *CUBE XIX I 
TERMC34) ELSE “CUBE XIX f 
BEGIN T t= WORDSLEFT3 ZwRITE BLOCK 
IF TSBUFFSIZE THEN %TR 857 
PCOXITIS%ZNULL BLOCKSTR 857 
WRITS 
RCOUNT © *PCDUP) = 13 
P(XIT)3 
END WRITE BLOCK3 
TERM(25)? % UN RECOGNISED CODE 
ENDS 
IF (€1"CODE) #HOWOPEN THEN % CHECK USE VS HOW OPEN 
IMPROPER? IF HOWOPEN>1 THEN TERM (31+CODE) ELSE %CLOSEN 
IF NOT OPENIO THEN TERMCPROPER? ZUSAGE 


IF UNITYPE #10 OR UNITYPE #13 THEN GO TO DATACOM3 

TF SERIAL THEN 
BEGIN 
T ¢ WORDSLEFT =(NUMWOSeNUMWDS)% COUNT WORDLEFT 
IF OPENIO THEN GO TO SERIALIO3 


IF CODE THEN % CODEs1 ON WRITE 
BEGIN 
IF NUMWDSey THEN TERM(36)3 
HASH} 
TF TECHC. THEN 
BEGIN 


IF NUMWDS > MAXREC THEN 
T ¢ WORDSLEFT*(NUMWDS*¢MAXREC)3 
IF T> MAXREC THEN DIDDLEREC ELSE WRIT; 
END 
ELSE IFE€COUNT © *PCOUP) = 4)>0 THEN 
OIDDLEREC ELSE WRIT3 
IF NOT DISk THEN 
PCX1T)3 
IF (CT*RCOUNT*"1) > TOTREC THEN TOTREC ¢ T3 
PCO*sRTN)3 
END3 
ZCODEsO ON READ 
IF REVERSE THEN READREV ELSE 


02750600 
02750700 
02750800 
02750900 
02751000 
02751100 
02751200 
02751400 
92751500 
02751600 
02751610 
02751614 
02751620 
02751630 
02751640 
02751650 
02751660 
02751670 
02751680 
02751690 
02751700 
02751800 
02751830 
02751850 
02751900 
02752000 
02752100 
02752200 
02752300 
02752400 
02752500 
02752600 
02752700 
02752800 
02752900 
02753000 
902753100 
02753200 
02753300 
02753400 
02753450 
02753500 
02753600 
02753700 
02753800 
02753900 
02754000 
02754400 
02754200 
02754300 
02754400 
02754500 
02754600 
02754700 
02754800 
02754900 
02755000 


A AMA A A A A a A a tt tt ta tt 9 a hh st ss a A 


061923 
0620%2 
0621:0 
062423 
062284 
062484 
062730 
062780 
0628%14 
0628%4 
062910 
063024 
0630%14 
063423 
063332 
063332 
0635%2 
0635%2 
0637%2 
063732 
063782 
063984 
064023 
064284 
0643120 
06440 
064610 
0646%4 
064644 
O64739 
064739 
0649390 
0653133 
069982 
066240 
066372 
066410 
066620 
066733 
0668!0 
066812 
0671%0 
06752 
0677140 
06772 
067940 
0681%2 
068684 
0687!0 
069030 
069480 
06943 
069522 
069919 
070010 
O700%0 
O700%0 


e 


IF TECH = 0 THEN REED ELSE aTR 899 
IF T < 1 OR BADKEY THEN REED ELSE 

IF NUMWOS<1 THEN GO TO EOFSETCK ELSE 
DIDDLEREC; 

HASH; 

P €O*#RTN) 

END} 


ZRANDOM AND RANDOM I*Q HERE ON 


RANDOMIOS 


$ SET OMIT = 


$ SET OMIT = 


$ SET OMIT = 


RANDOMLBLS 


FIBCI33,.C44t1)] « 03 ZCUBE XIX I 
IF SEEKEY THEN KEY e«RCOUNT ELSE SEEKS 
IF BAQKEY OR CKEY > TOTREC AND CODE=0) THEN 
“BEGIN 
SANDBKEY © Q3 ARESET SEEKEY&BADKEY 
IF WRITBACK THEN %RESTORE THE ADDRESS 
RCOUNT © CCBCOUNT « COUNT) x NUMREC)3 
NOT SHAREDISK 
PC{sRTN)3 
END3 
IF SEEKEY THEN 
BEGIN IF NUMBUF & 2 THEN 
BEGIN ROTATEBUF; 
IF NOT DONE THEN 
NOT SHAREDISK 


WAITIO; 
NUMBUF ¢13 
END} 
SEEKEY*FALSES 
NOT SHAREDISK 
RTOG*RANDOMeTRUES 
GO TO ITQDONE 
END? , 
IF INVALIDUSER TREN 
BEGIN 
MAYBEPARITY3 
ENDS 
T «RANDOM © FALSES 
IF CODE = 6 THEN IF wRITBACK THEN SCUBE XIX I 
BEGIN PCBCOUNT)3; CUBE XIX I 
WRITS SCUBE XIX I 
PCCBCOUNTJ]s,¢)3 ZCUBE XIX I 
RCOUNT. © KEY3 ZCUBE XIX I 
PCXIT)3 *CUBE XIX JY 
FND ELSE PCxIT)3 ZCUBE XIX I 


IF WRITBACK AND CODE THEN 
IF COUNT # BCOUNT THEN 
BEGIN 
PCNUMWOSsRCOUNT)3 &LEAVE BLOCK COUNT ON STK 
RCOUNTe CBCOUNT*COUNT) X NUMREC3 
WRIT 
PCCBCOUNT1],¢)3%PICK UP BLOCK COUNT 
NUMW DS « P3 
RCOUNT © KEY3 
ENDS 
MOVREC3 
IF COOE THEN % IF RANDOM WRITE THEN WRITE 
BEGIN 
IF LASTIO THEN FIBL13)],C4421] «+ 413 


02755050 
02755100 
02755200 
02755300 
02755400 
02755500 
02755600 
02755700 
02755710 
02755800 
02755900 
02756000 
02756100 
02756110 


02756120 


02756129 
02756200 
02756300 
02756400 
02756500 
02756600 
02756700 
02756709 
02756795 
02756800 
02756900 
02756910 
02756919 
02757000 
02757200 


02757300 


02757400 
02757410 
02757430 
02757440 
02757500 
02757510 
02757520 
02757530 
02757540 
02757550 
02757560 
02757570 
02757600 
02757700 
02757800 
02757900 
02758000 
02758100 
02758200 
02758300 
02758400 
02758500 
02758600 
02758700 
02758800 
02758850 


AANA ANH HHA A tt Ht 9 Ht A HA A ae te a 


070320 
070720 
071140 
O712%4 
071420 
0718%2 
0714930 
071980 
071910 
0721%2 
0726180 
072994 
0729%3 
O732t4 
073324 
073710 
073720 
O737%0 
O737%2 
O738%2 
O740%2 
074323 
QO74510 
074520 
O74720 
074989 
074922 
075230 
075230 
075334 
075383 
0753%3 


075423 


O755%4 
075610 
075620 
O757%4 
075919 
076032 
0762%0 


076293 


076480 
076431 
076510 
076632 
076824 
076823 
O769t9 
077293 
077430 
077423 
O77S884 
077682 
0776t2 
077880 
0778484 
077823 


IF NOT ere BCOUNT AND WRITBACK) THEN 
N 
DISKADDRESS#*COMPUTE NEW ADDRESS 
COUNT ¢ BCOUNT3 
END} 
IF KEY > TOTREC THEN TOTREC ¢ KEY} 
$ SET OMIT = NOT SHAREDISK 
WRITBACK ¢ TRUE3 


END3 
PCOsRTN)3 
ZEND OF MAIN LOGIC NEXT IS SPECIAL ROUTINES 
SERTALIO? ZTHIS HANDLES SERIAL I*0 
IF BADKEY THEN REED3 ¥CUC 022 


IF NOT CLASTNONE AND CODE) THEN 
IF (COUNT © *PCDUP) #1) > O THEN 
BEGIN WORDSLEFT « T3 
60. TO DOTDOLE; 
END ELSE 
BEGIN IF BOUNDED THEN 
IF RCOUNT = LSUBL THEN 
BEGIN COUNT « NUMREC = (BS « RCOUNT MOOD NUMREC)3 
BCQUNT « wPCDUP) = (BS # 033 
END ELSE 
COUNT * NUMREC ELSE 
COUNT «. NUMRECS 
IF CODE THEN % TWO WRITES IN A ROW 
BEGIN PCTIF INX 0)3 % LEAVES POINTER FOR MOVEREC 
TF RCOUNT GEQ@ TOTREC THEN 
BEGIN IF TECH = 0 AND WRITEAFTEREOF = 2 THEN 
BEGIN WRITEAFTEREOF « 13 
RCQUNT © *PC(DUP) +23 
BCOUNT © *P(DUP) +23 
END} 
IF RCOUNT = 0 THEN 
BEGIN PCDEL)3 ’ 
RCOUNT © *PCDUP) #13 
BCOUNT © *PCDUP) 413 
WORDSLEFT « BUFFSIZE = NUMWDS3 
GO TO DIDDLEWRT; 
END ELSE 
~WRITEADUGUST? 
END ELSE REED; 
CODE + 43 MOVREC3 CODE « 43 
END ELSE REEDS 
DIODLEWRT? IF CODE THEN WRITBACK © TRUE? 
IF WRITEAFTEREQF = 3 THEN WRITEAFTEREOF ¢ 23 
RCOQUNT «+ *PcpuP) S43 
DIDDLE: MOVREC3 
RCOUNT © *PCDUP) +43 
ENO ELSE GO TO DIDDLEWRT3 
LASTDONE «© NOT CODES 
IF €T « RCOUNT -1) > TOTREC THEN 
IF CODE THEN TOTREC ¢ T % UPDATE EGF POINTER 
ELSE GO TO EOFSETCK$ % PASSED EOF ON READ 
PCO»RTND3 
%END SERIAL IO 
DATACOM: % ALL DATA COMM GOES THRU HERE 


02758900 
02758960 
02759000 
02759010 
02759050 
02759100 
02759104 
02759165 
02759200 
02759300 
02759400 
02759500 
02759550 
02759600 
02759620 
02759640 
02759660 
02759680 
02759700 
02759720 
02759740 
02759760 
02759780 
02759800 
02759900 
02759920 
02759940 
02759960 
02759980 
02760000 
02760020 
02760040 
02760100 
02760200 
02760300 
02760400 
02760500 
02760600 
02760700 
02760800 
02760900 
02761000 
02761100 
02761200 
02761300 
02761400 
02761500 
02761600 
02761700 
02761800 
02761900 
02762000 
02762100 
02762200 
02762300 
02762400 
02762500 


TAA SA A tA At Ht a tt tt tt tte et 


078233 
O78Site 
07860 
078730 
078882 
078812 
O794%4 
079434 
079323 
0793353 
O794t4 
O794%4 
079424 
079730 
079853 
080433 
080322 
O80K4t0 
0804%0 
080542 
0807 %4 
OSiies 
081343 
081333 
081523 
081733 
081830 
081982 
062033 
082442 
O827%2 
0829i2 
08348°92 
0834%2 
0832:2 
083344 
083521 
O83754 
083933 
OB40%4 
O840%4 
OB42t0 
084420 
084633 
084ant0 
085191 
085593 
085783 
085930 
086430 
086110 
0863%3 
0866:0 
086733 
086882 
086980 
086920 
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$ SET OMIT = NOTCTIMESHARING) 


IF NOT CODE THEN REMOTEREADS REMOTEWRITS 


$ POP OMIT 
$ SET OMIT = TIMESHARING 


EOFSETCK? 


IF ENDFILE TREN TERM (€15)3 
ENDFILE © TRUE 3 
PCisRTN)S 


% END OF EQF SET CHECK 


Seen nem nthe At PeT LTT eatin anor heen tcc nap naire i Sat TO 


END OF COBOL I 9 INTRINSICS$ 


PROCEDURE FBINBACKBLOCKCFILXsDKADDReFIsFMTsLISXsEDITCODEsEOFLsPARL) 3 
START OF REL SEGMENTS DISK 


VALUE DKADOReFIaLISXsEDITCODEsEGQFLsPARL 3 
REAL DKADDR>FIsLISXsEDITCODEsFOFL»>PARL3 


baacelt 
fa wee Pa 


Zou 


~ 
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% INT # @160, 
ARRAY FMT£*]3 NAME FILX 3 
BEGIN 


INTEGER BSIZEs LSTRN=19 3 


REAL LISTYPE=20s ARRAYSTUFFE1I8s ALGOLWRITE=122 ALGOLREADS13» TOs T7s 
SELECT#ids FORTERR#24» ARY»s TYPE» DBLPREC=20* INDXSEOFL» 84670082 
OUTs FLGse IOINTs Tis Tee T3s T4e TSe TWOTs WHIS18e WHOs17» 
SIZESPARL» INTINT=55 PRNTR» CKPBIs FMTWRD=CKPBI[» FLBSFILx 3 


NAME LISTADDR» ADDR 3 


ARRAY ARLSLISTADORE*)s FIBC*], IOBUFFE els TPAR=230*], FPBs3t*) 3 

LABEL ALISTs BLKOTAs SEVENS» ENDALL» AWAYs SPCLis SPCL2s DSZ» 
CMPXL» DUBEL» LOGCLs STRNL» INTREL» BDERR» ENDITs ERROR» 
BO» Bl» BOl, Blis BOERR1s BOFERR2s BI2s» MAX» LOOP» STRNL 1s 
PRINTER» OUTL» BKSPC» B02» BO3» BOOMs BlOs BI3s BI4s BISs ENDG» 
BS 3 

SWITCH TYPLeINTREL» STRNL» INTREL» LOGCL» DUBEL» CMPXL 3 

DEFINE DONE = LSTRN=C"1) #e 

NOTDONE = LSTRNZC"4) #s 

KIND = FIBC4), tetad te 

TAPEF = 2 #» 

REMOTEF 5 13 4» 

DATACOMF = 10 #, 

INTEGR = 1 #» 

STRING = 2 #» 

REEL = 3 Be 

LOGICAL = 4 #,» 

DBLPRECSN = 5 dy» 

COMPLEX = 6 #» 


TYPEF = (44:4) #, 
INDXF = C188151 #» 
SIZer = [33:15] # ; 
SUBROUTINE BLANKIT 3 
BEGIN 
« . 


02762600 
02762700 
02762750 
02762800 
02765800 
02765900 
02766000 
02766100 
Sse 


02767050 


02767100 
02767150 
02767200 
02767250 
02767300 
02767350 
02767400 
02767450 
02767500 
02767550 
02767600 
02767650 
02767700 
02767750 
02767800 
02767850 
02767900 
02767950 
02767975 
02767980 
02768000 
02768050 
02768100 
02768150 


02768200 


02768250 
02768300 
02768325 
02768330 
02768350 
02768400 
02768450 
02768500 
02768550 
02768600 
02768650 
02768700 
02768750 
02768800 
02768805 
02768810 


T 


086930 
086910 
087633 
087633 
087613 
087923 
O8B2tt 
0882%3 
08893 


IZE= 0883 
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0000%0 


ADDRESS = 
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000ato0 
0000:0 
0000%0 
000010 
Q000t0 
000080 
0000!0 
oocato 
000c0t0 
000080 
000080 
000080 
9000!0 
0000:0 
O0000!0 
000010 
0000t0 
000030 
000040 
0000!0 
0000%0 
000070 
000080 
0000 fo 
0000!0 
000010 
0000t0 
000010 
000010 
000030 
000040 
000080 
0000%0 
0000%0 
00000 
0000%0 
000080 
0000!t0 
000030 
000030 
000130 


wORDS 


90295 


a 
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i STREAM(CePCXCH) sAGBSIZE*1sBePC DUP) .f3686] 8D] ITOBUFF) § 02768815 


T 000410 

BEGIN 02768820 T 000410 

SI*#LOC AS BCSI*SI™13 DS*CHRI$ SleD3 NSe*A WOS 3 02768825 T 000410 

BC(DS*32WOS3 OS*32WDS) 3 02768830 T 0006!0 

END 3 02768835 T O007'4 

P(DELsDEL»DEL) 3 02768840 Tt 0007!2 

END OF BLANKIT 3 | . 02768845 T OO00BtY 

02768846 + O00B8t2 

™ SUBROUTINE CKPB 3 02768850 T 000832 
BEGIN 02768900 T aod09gt0 

PCMKSsFLG)4 IF QUT THEN PCDKADORsOs("1)) ELSE PCCKPBI) 3 02768950 7 00910 

IF CBSIZE*PCFILXsIOINT)2<O THEN GO ENDIT 3 02769000 T O01210 

END OF CKPB 3 02769050 T 001430 

fad 02769100 T O014%1 

aes ™ SUBROUTINE [0 3 hee Hise 02769700 T OO14?4 
“oe BEGIN PCO) 3 02769750 T 001580 
ENDALL?! PCMKSsFLG»DKADDR)$ IF GUT THEN er eee PCFILXsIOINT) 3 02769800 T O015%4 
IF P THEN 02769850 tT O01733 

ENDIT? BEGIN FILXCNOT 3]¢FILXENOT 4303 PCXIT) END 3 02769900 T O047%3 
CKPR 3 . 02769950 T 002433 

a OEND OF TO 5 02770000 T 0023!0 
02770050 T 0023414 

p~——- REAL SUBROUTINE NXTITM 3 02770100 T 002334 
ey BEGIN 02770150 T 002430 
i PCIF TWOT THEN PC*CARLCINDX,(33%7)]]*/INDX AND 255*CDC) 02770200 T 002410 
j ELSE CARICYNDXI1) 3 02770250 tT 002730 
INDX@INDX+14 NXTLTMeP 3 02770300 tT 002810 

ies, Js END OF NXTITM 3 02770350 7 0029%2 
02770400 T 002923 

SUBROUTINE GETNEXTLISTITEM 3 02770450 T 002983 

BEGIN 02770500 T 0030!0 

IF ARY THEN 02770550 T 003030 

BEGIN 02770600 tT 003034 

ALIST? PCNXTITM) 3 02770650 T 003033 

IF DBLPREC THEN IF QUT THEN WH2e*NXTITM ELSE INDX©INDX+1 3 02770700 Tt 0032!0 

ARY¢SIZE>INDX 3 02770750 7 003633 

END ; 02770800 tT 003833 

ELSE TF TYPEscOMPLEX THEN 02770850 T 003833 

BEGIN TYPE*=COMPLEX3 PCELISTADDORE1]3) END 02770900 t O040!0 

ELSE BEGIN me 02770950 T OO42t4 
PCARRAYSTUFFeLISTYPE*#0)3 LISTADDReECLISX] 3 02771000 T 004213 
OBLPRECe(TYPE*LISTYPE«TYPEF J=DBLPRECSN 3 02771050 T 004433 

IF ARY¢ARRAYSTUFF 40 THEN 02771100 T O047!I0 

BEGIN 02771150 T 004834 

IF TYPESCOMPLEX THEN TYPE*"COMPLEX 3 02771200 T 004833 
SIZE*CINDX*ARRAYSTUFF eINDXF) +ARRAYSTUFF SIZEF 3 02771250 T 005130 
PCLISTADOR«MEMELISTADOR,.£18:151]) 3 02771300 T 005333 

TWOT#NOT PCLODsTOP)$ PCDEL) 3 02771350 7 005533 

IF EMITCODE=2 THEN GO ENDG ELSE GO ALIST 3 02771400 T 005744 

END 3 027714500 fT 0059!0 

PCDEL»CfLISTADORIO]]) 3 02771550 T 005910 

IF OBLPREC THEN IF QUT THEN WH2eLISTADDRE1) 3 02771600 T 0059%2 

END 3 02771650 T O0062t2 

IF OUT THEN WH1e*P ELSE ADDReP 3 02771700 T 0062%2 

ENDG! END OF GETNEXTLISTITEM 3 02771750 T 0065!0 
02771800 T 0065!4 

SURROUTINE GETANDCHECK 3 027720580 T 0065!14 


@®eevs2ee8eeees8see8e@8e@hlhehlUcCOhlCUcrOlhlUCcOlhUC(CwrhCUc Uhr OlhlUrB 


BEGIN 02772100 T 0066:0 
GETNEXTLISTITEMS ThleTim4 3 02772150 7 006630 

IF DONE THEN 02772200 T 0068%4 

BDERR{: BEGIN Pct) 3 02772250 T 0069%4 
BDERR? TIP? PCMKSs Tis TYPEsT2eFL Ge BSIZE2 (2) eFORTERR) 3 02772425 tT 007030 

END. 3 02772950 T 007283 

FLGCFLG+1 3 . 02772975 T 007233 

END OF GETANDCHECK 3 02773000 T 007430 

02773050 tT OO07411 

Rvta kkk ek ekg ak ket emeeg? CODE STARTS HERE fb ewe ee eR REY 02773100 T OO74%4 
02773150 T OO074%, 

LSTRNECKPBIe1 3 02773200 T 007434 

IF EDITCODE=6 THEN 02773250 T 0084!2 
BEGIN & BLOCKDATA, 02773300 tT O082%1 
~ BLKDTA! GETNEXTLISTITEMS PCCFMTWROCFMTCFIGP+FIJ950) 3 02773400 T 008283 
T2¢FMTWROOL18815); BSIZEeCFMTWROZO)+BSIZE 3 02773425 yt 00846441 

IF DONE THEN BEGIN IF NOT P THEN GO BDERRGs PCXIT) END 3 02773450 tT 0089%14 

FLGtFLG+1 3 02773475 + 009132 

IF P THEN BEGIN PC2)3 GO BDOERR ENDS T1*FMTWRD.C33815I"1 3. 02773500 y 009283 
T3eFMTCFICFI¢1]3 TSeFMTCFI+1) 3 02773550 7 009513 

GO TYPLET2"1) 3 02773600 tT 009984 

CMPXL? IF ABSCTYPE)4COMPLEX THEN GO BDERR23 ADDREOJCT3 3 02773650 T 010383 
GETNEXTLISTITEMS ADDRLO]+T4s IF T1SO THEN GO SPCL1 3 . 02773700 T 010630 

GETANDCHECK 3 02773725 T 010980 

GO CMPXL: 3 02773750 7 O11080 

DUBEL? IF NOT DBLPREC THEN GO BDERR23; ADOR(LOJ+T35 ADDR LJ«T4 3 02773800 tT O11082 

IF Ti LEQ O THEN | 02773850 T O411392 

SPCL1: BEGIN P(2)3 GO BLKDTA END 3 02773900 T O114i4 
GETANDCHECK 3 02773950 7 011532 

GO NUBEL 3 02774000 T 011730 

LOGCL? IF TYPEZLOGICAL THEN 02774050 T O117%2 
BDERR2:3 BEGIN P(32% GO BDERR END 3 . 02774100 T O11881 

\ ADDREO1+T3% IF Ti LE@ O THEN GO SPCL23 GETANDCHECK 3 02774150 T O119%2 
\, GO LOGCL 3 02774200 T 012330 
| STRNL? TACFIZ T3¢Ti+13 FMTWRDeFMTWRD. E3215) § 02774220 T 0123%2 
\ STRNL1: IF ABSCTYPE)=COMPLEX OR DSLPREC THEN. GO BDERR2 $3 02774225 T 012633 
\ ADORCOJeFMTCFID 3 02774230 T 012980 
IF T1>0 THEN FIeF +1 02774250 T 0130t0 

ELSE REGIN 02774275 tT 0131322 

IF CFMTWRDCFMTWRD@1)S0 THEN GO SPCL23 FIeT4s T1+T3 3 02774300 7 013380 

END 3 02774325 T 013633 

GETANDCHECK 3 02774350 T 013643 

GO STRNL1 ? 02774375 T O13890 

INTREL? IF ABSCTYPE)=COMPLEX THEN GO BDERR23 PCT3eCADDREOIJ]) 3 02774400 T O138%2 

IF TYPESINTEGR OR TYPE=LOGICAL THEN 02774410 y O14082 

BEGIN . 02774420 T O142%4 

IF T3>P(MAX) THEN BEGIN P¢4)3 GO BDERR END 3 02774430 T O14223 

PCISD) 3 02774440 T 014483 

END 02774450 7 014510 

FLSE Pce) 3 02774460 T 014530 

IF OBLPREC THEN ADDRE1}¢0 3- 02774470 T 014583 

IF Tt LEQ O THEN 027744680 T 014810 

SPCL2! BEGIN PC1)3 GO BLKOTA END 3 02774500 T 014823 
GETANDCHECK 3 02774550 T 0150:0 

GO INTREL: # 02774600 T 015480 

~~~» END OF BLOCKDATA 3 02774650 fT 0151432 
FIBeFILXENOT 213 FILXCNOT 3IJ¢PARLS FILXENOT 4I*EOFL 3 02774700 T 0154%2 


PCFYBE3]) 3 02774750 7 015683 

IF FI<O THEN GO OUTL? PCP.C438214T1©CEDITCODESS 425 *PCALGOLREAD))3 02774800 T O157%4 

FLGeDKADDRs GO DSZ 3 02774850 T 016482 

PE MAXE3$ 9 @7777777777777 3 . 02774900 T 016233 

Ko oO.) QUT Roster Ay 02774950 T 0164t0 
yd 4 coeel So UT OLS POP. C4381] -4PCALGOLWRITE)) 3 02775000 T 016410 
Gee: IF FLG*DKADDR<O THEN 02775050 T 016513 
< NSZ3 DKADDR«O 3 02775100 T 0167!0 
Perera IGINTeP3 TF P THEN PCMKSsOrTIsFILX,1eSELECT) 3 02775250 T 0168%1 

ga - . IF EDITCODE=5 THEN : 02775300 T 017033 
Gd hein cbeaged ee y BEGIN % BACKSPACE, 02775350 T O17;4t2 
C | | cobel gnky SIF FIBC5).04122140 THEN GO ENDITS CKPBI#3; CKPB3 IO 3 02775400 T 017210 
eee ee c= IF NOT CFIBLFLG*O]¥1 AND KIND=TAPEF) THEN GO ENDIT 3 02775450 T O17780 
a BKSPC oo TF Ca#CHLFILXID¢C321514PCSEVENS) THEN BEGIN 103 GO BKSPC END 3 02775500 T 018033 

Ec plé [ude 4X IF CHCHLFILXI)2eC18815]4PCSEVENS) THEN GQ AWAYS GO ENDIT 3 02775550 T 018412 
Cobel eT], END 3 02775650 T 018732 

& Ce — TReCFIBES] AND 969403 CKPBS T4*CTI*KIND)STAPEFS CKPBI¢3 3 02775675 T 0187%2 
Bae ae ? IF PRNTREC(T1=1 OR T1=7 OR T1*=12) AND FPBEFIBL41,0132111431,043951«<20 02775700 T 019494 
THEN /BEGIN 02775725 T 019931 

IF BSTZE>17 THEN BSIZE¢17 3 ; 02775727 T 020110 

@ T2 THEN BEGIN IORUFFSTPARS PC" "3 BLANKIT END 3 02775730 + 0203:0 

END pon Ny eee penny ee 02775735 T 0206!0 

ELSE IF T2 AND T4 THEN FIBC81,03215 7¢0 3 02775737 T 0206%0 

IF FIBLO]=0 THEN FIBLQ]«23 TS5¢TISREMOTEF OR TLsDATACOMF 3 02775740 fT O210%4 

IF FIBLOJ#2 AND TA& THEN 02775750 T O215%4 

BEGIN Tied 3 02775800 tT 021633 

ERROR: PCMKSeFIBCOJ*FILX, £33815] *TLsFORTERR) 3 02775850 T 021880 

- ‘alas END 3 02775900 T 0220t0 

| poo IF TA AND NOT FIBC13),024t1) THEN PCMKSs C1) sFORTERR) 3 02775925 T 022030 

Joo TI¢PCSEVENS) 3 02775950 7 022331 

IF EDITCODE=0 THEN 02776000 T 02240 

EGIN #UNO FORWAT? NO LISTS: 02776050 fT 022433 

ITOBUFFe*F ILD 02776100 T 022534 

IF OUT THEN 02776150 T 022634 

BEGIN 02776200 T O226!2 

IF PRNTR THEN 02776205 T 022730 

BEGIN 02776210 T 022731 

PRINTER? IF NOT T2 THEN FIBCI7]¢*PCDUP)+BSIZE 3 02776220 T 022733 

| POMKSs1s0eT2+BSIZEsFILX»ALGOLWRITE)3 CKPB 3 02776225 T 023083 

FIBLI7J¢*PCDUPI"BSIZE 3 02776230 T O234!t0 

STREAMCTPARsBSIZEsS¢s#FILX) 3 02776235 T 023610 

BEGIN 02776240 T 023733 

(sterPans OS*BSIZE WOS3 DI*TPARS 18CDS*S8LIT™ ") 3 02776245 T 023713 

NEND 3 02776250 T O240t2 

GO ENDIT 3 . 02776255 T 024033 

: i END 3 02776280 T 024484 

Pad ae Ip T5 THEN PC" *) ELSE PC"O%)3 BLANKIT 3 02776320 T O241%1 

wx MTF T4 THEN IOBUFFCOJ*C(NOT O)8CBSIZE"1)0338338151 5 02776550 T 024410 

; END 02776600 T O247%14 

PN “o “ELSE IF T4 THEN GO BIO 3 02776650 T O2473%1 
WI sic al AWAY? Pc¢1)s GO ENDALL 3 02776700 T 024813 
a END 3 02776750 + O249%2 
6 bias IF T4 THEN IF (*FILX),082101<3 THEN PCMKS»Ce4)eFORTERR) 3 02776775 T 024982 
¢ GETNEXTLISTITEM# IF NOT OUT THEN Go BIO 3 02776800 T 025314 
wy BO! T1i¢«T43 IORUFF*IF PRNTR THEN TPAR ELSE *FILX 3 02776850 T 02543 
IF T5 THEN BEGIN PC" %)3 BLANKIT END 3 02776875 T O258%4 

BOU:IF ARY THEN 02776880 T 026080 


ecececeoeoe reece eee ee ewe ee ee 
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BO2: BEGIN WHiel 3 
IF PCCBSIZE*T1) AND NOT DBLPREC*DUP)>SIZE*INDX THEN 
PCDEL»SIZE*INDX) 3 
IF TWOT THEN 
BEGIN 
IF PCDUP)>CWH2¢256*INDX.640881) THEN 
BEGIN PCDEL»sWH2)3 WHy*oO END 3 
PC*CARICINDX,( 3387] ]]-INDx. C4028) CNC) 3 
END 
ELSE PCLARALINDXI)) 3 
WH2*PCXCH) 3 
STREAMCSePIWH2 sNeP( OUP) e£3824],DeLI0BUFFIT1I]1]) 3 
REGIN Sre¢S3 pSe#WH2 WDS3 N¢DS*#32WDS3 NS*32WDS) END 3 
PCDEL)$ T1*TI+WH2 3 
IF ARY«CINOX¢INDX+WH2)<SIZE THEN IF WH1 THEN GO BO4 ELSE GO B02 
ELSE GQ BO3 3 
END 3 
IQBUFFECTLJeWHIs IF OBLPREC THEN IOBUFFETLeTi+i]¢WH23 TileTi+t 3 
BO3:GETNEXTLISTITEM 3 
TF NOT CBONE OR TL+DBLPREC2BSIZE) THEN GO BOL 3 
BO4tIF PRNTR THEN GO PRINTERS IF NOT Ta THEN GO AWAY 3 
PCCTI"1)&8T3£3233815]) 3 
IF DONE THEN BEGIN PCSEVENSsCFXelLIOBUFFLOJ]1s¢)3 GO AWAY END 3 
PCEYOBUFFLT3«O]]e¢) 3 
Ics G0 B80 3 
SEVENS2££@77777 
RBIOSIF T4& THEN 
BEGIN T7+BSIZE 3; 
IF T2 THEN FIBLO1,.C38L I *B6700¢C#CHCFILKXIDISLLE1532P CBS) 
ELSE IF B6700¢FIB(£8),03%1)] THEN T64FIB(81,04214] 3 
IF EDITCODE=0 THEN 
BEGIN BSIZEeCIOBUFFET6] AND T3)+13 GO BIS END § 
END 3 
BI! IORUFFe*FILx 3 
IF T4 THEN BEGIN BSIZE*CIOBUFFET6] AND T3)4+13 PCT641) END ELSE PCO)3 
TieP 3 
I131F ARY THEN 
I2t BEGIN WHiel 3 
IF PCCBSIZE+T6"T1) AND NOT DBLPREC*DUP)>SIZE*INDX THEN 
PCNEL*+SIZE*INDX) 3 
IF TWOT THEN 
BEGIN 
IF PCOUP)>(WH2¢256"INDX.£4028]) THEN 
BEGIN PCDEL*sWH2)s WH1*O END 3 
PC*LARILINOX.C3387] 1] ]sINDxef4028)-CNC) 3 
END 
ELSE PCELARICINOXI9) 3 
IF CWHEEPCXCHII+CTYPE*PCIOBUFF INX T1))>HUNTC TYPE) THEN PCFLBD3 
STREAM(S¢PiWH2eNeP (DUP) «£38243, TYPE) 3 
BEGIN SI*TYPES DIeS$ DSeWH2 WOS3 NCDS+32WDS3 DS¢32WOS)END3 
PCDEL)s TLitTitwHe 3 
IF ARYeCINDX¢ INDX4+WH2)<SIZE THEN IF WHi THEN GO BI4 ELSE GO Bre 
ELSE GQ BI3 3 
END 3} 
ADOREQI©IOBUFFET113 IF OBLPREC THEN ADDRE1I*©IOBUFFLT1i¢Ti+1] 3 
TieTiet 3 
BI3:GETNEXTLISTITEM 3 


B 
B 


02776885 
02776890 
02776895 
02776900 
02776905 
02776910 
02776915 
02776920 
02776925 
02776930 
02776935 
02776940 
02776945 
02776950 
02776955 
02776957 
02776960 
02776965 
02776970 
02777000 
02777050 
02777100 
02777150 
02777200 
02777250 
02777260 
02777265 
02777267 
02777270 
02777290 
02777292 
02777293 
02777295 
02777300 
02777302 
02777303 
02777305 
02777310 
02777315 
02777320 
02777325 
02777330 
02777335 
02777340 
02777345 
02777350 
02777355 
02777360 
02777365 
02777370 
02777375 
02777380 
02777385 
02777390 
02777395 
02777400 
02777425 
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O260%4 
026132 
O264%4 
026823 
0266!%0 
02662 
0268:3 
0270%2 
027233 
O27223 


027333 


027422 
027633 
027950 
028019 
0283%2 
O0284!2 
028432 
029020 
029150 
029420 
029933 
0297%2 
030083 
030240 
O303!9 
030510 
030544 
0306!%2 
030933 
031523 
O0316%2 
Q319382 
031922 
032032 
032433 
0325%4 
0325%2 
0326%3 
033020 
0334%2 
033423 
0332034 
Q334%2 
033634 
O33a8%e2 
O338%2 
O339!2 
O343%a2 
034530 
034733 
O34g%2 
035232 
0353!2 
035332 
0358!0 
035934 


6 


B14: 


BIS3 


BEE 
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PROCEDURE FTINTFIXCFILXsDKADDReF Ilo FMTsLISXsEDITCODESEOFL»PARL ); 


IF NOT CDONE OR T1+DBLPREC2BSIZE) THEN GO BIL § 
IF NOT T4 THEN GO AWAY 3 
IF DONE THEN 
BEGIN 
IF B6700 THEN 
BEGIN 
IF BSIZE+T6<T7 THEN T6*T64BSIZE 
ELSE BEGIN 
WHILE NOT ¢#CT6 INX #FILX)),63281) 
DQ BEGIN 10% Té6«0 END 3 
IF (T6e¢CCeCeCFILXI])) AND T3)41)2T77 THEN 
BEGIN IQ? T6*0 END 3 
END 3 
FIBE81.C4¢14)¢T6s GO ENDIT 3 
END 3 
WHILE (C*#C*#CFILX1)).£1821514T3 pO 103 GO AWAY 3 


: #10000 # 
END 3 

TF B6700 THEN 
BEGIN 


IF TORUFFCT61.032:117 THEN BEGIN T1¢53 GO ERROR END 3 
IF BSIZE+T62T7 THEN BEGIN 103 BSIZE*O END 3 
T6*+BSIZE? GO BI > 
END 3 
IF TOBUFFCO].€C18215]5T3 THEN BEGIN Tle53 GO ERROR END 3 
103 GO BI 3 
ENO OF FBINBACKGLOCK 5; 


TREY EOSIN R OH EE TIT STEIN ANNES SR SOREN PA SR nt ay 


*INTO156 


02777450 
02777500 
02777550 
02777600 
02777650 
02777655 
02777660 
02777665 
02777670 
02777672 


02777675 — 


02777680 
02777685 
02777690 
02777695 
02777700 


02777725 


02777750 
02777755 
02777760 
02777765 
02777770 


O2777775 © 


02777780 
02777800 
02777850 
02777950 


02780000 


| START OF REL SEGMENTS DISK 
VALUE DKADOReFIsLISX*EDITCODEsSEQFL»PARLs ARRAY FMTC#]3 NAME FILX 3 
REAL DKADDRsFIsLISXsEDITCODEsEOFL»PARL 3 


BEGIN 
INTEGER LSTRN#&19» IT3 3 


REAL LISTYPE#20» HOLTOG=s21t» ARRAYSTUFF 18» ALGOLREADS13:s SELECTS 14» 
FORTERR=240. CHRe MAXCHRe FMTWse BUFF e TYPEs INOX»s SIZEe TWDTe 
INTINTS#532 SGN» NEEDNEWLISTADDRESSs SCALE» Re We De T3s1T3e T2s 
XTRA» OBILPRECs ARYs Tis EXPSPARL»s DECPTSEOFLs Es18s WHIt172 

SAVDs 
WH2e92 Ca20% CODE» Tae COMMASs DLRSGN»y VL» OC10 3 


NAME LISTADDRe ADDR 3; 
ARRAY TEN=2204]»5 ARI=LISTADDRE*)s TPAR#23C#]5 FIBE*] 3 


LABEL ALISTs GETNEXTPHRASEs REPEAT» TTs XXs SSs PP» AAs O08 HHe 
CCs GGe Lh» FFs EE» [le DDe ERR3e TEST1s AWAYs Jd 


ERROR» BACKs GOTNUMBER* MAX» ENDALL»s EDIT» BLANKS» ADJTs CHKC, 


FERRORs EX» ASKs ERR1> EX1e Oise O2* Els E22 STNRD» OUTSUBs 
CO» NLEL» FO94s FO95Ss VERROR» HVe CD1 3 


02780050 
02780100 
02780150 
02780200 
02780250 
02780300 
02780350 
02780400 
02780450 
02780500 
02780540 
02780550 
02780600 
02780650 
02780700 
02780750 
02780800 
02780850 
02780900 
02780950 
02781000 
02781005 
02781050 


036070 
036330 
0363%3 
036423 
O365t4 
036582 
036690 
0368%0 
036982 
0374214 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
y 037730 
T 0379143 
T 037933 
T O384t0 
T 038430 
T 038930 
tT 039020 
T 039010 
T O390%1 
T 039083 
T 0393890 
T 039633 
T 0398:%0 
T O398t0 
T 040482 
T O403%9 
SIZE= 0404 


O37434.. 


rT 000030 


ADDRESS = 
000040 
000030 
000020 
og00!f0 
000080 
000010 
o000to 
000080 
0000!0 
olerelon xe) 
0000t0 
Qo0c0toO 
0000!f0 
o000fO 
0000%0 
000040 
0000%0 
o000!t0 
00000 
000030 
0000f0 
0000%0 
000070 


AAA HAH HAA HA tH 


90309 
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SWITCH PHRASECSS#HHePPsXXsTT# AAs OO0eL La dde lls GGeFFeFEeDDeCC 3 


NEFINE DGNE = LSTRNBC™4) #e 
REEL = 3 #4, 
LOGICAL = 4 #»s 
INTEGR = 1 #s 
DBLPRECSN = 5 #p 
COMPLEX 3 6 is 
MAXCODE = 15 #,s 
VERRCVERR1) = BEGIN PCVERR1L)3 GO VERROR END #» 
ERRCERR1) = BEGIN PCERR1)3 Go ERROR END #s 
HCHLsh2sH3eH4) = [TF Sc2"2" THEN H1! DS¢CHR 
ELSE BEGIN 
IF SCS"#" THEN H2:DSeLIT"s" ELSE 
IF SCH"&8" THEN H3DSeLIT+" ELSE 
IF SCH"%"* THEN DSeLIT!¢" ELSE 
IF Sce"e THEN OSeLIT%)" ELSE 
IF SCa"@t THEN H4:DSeLIT9" ELSE 
IF Sc#"s" THEN IF Sc#*<" THEN 
IF SC#">" THEN GO H1 ELSE GO He 
ELSE GO H3 ELSE GO H4 3 
SleSI+i 3 
END #s 
TWOD = LISTYPE,£38!1] #, 
INDXF = C18%157 #, 
TYPEF = [4424] 4, 
SIZEF = €33%15) # 3 


REAL SUBROUTINE NEXTCHR 3 
BEGIN 
STREAMCC+O*BUFF ES TeTLeTim1) 5 
BEGIN DIeLOC BUFFs DIl¢DI*1s SI*BUFFS DS*CHR3 BUFFeSI END 3 
BUFFePs NEXTCHReCeP § 
END OF NEXTCHR 3 


SUBROUTINE RNDADJ 3 
BEGIN 
EeCT4ePCXCHI+T2)4+F3 T2eT2-T4s T3eT3"T43 VLE. 3 
POCXCHs TEND T4I]2/%,T42TSN*#XCH) Ff 
END OF RNDADY 3 


SUBROUTINE CONVERT 3 
BEGIN : 
STREAM(VEO02 Qe0eReOsCeOsDECPTsNeOoweIF T128 THEN 8 ELSE TifBUFF> 
TeQedeCODEZ9eZeT1<9) 3 
BEGIN 
SI*BUFFs DIeLOc T 3 
wOL3! IF Sc2"0" THEN BEGIN TALLY*TALLY#13 DS*CHR END 
ELSE IF SCs," THEN 
BEGIN 
CIeCI#DECPT; GO Lis GO L2s Lit GeTALLYS TALLYe13 
ReTALLY3S DECPT+TALLYS TALLY«Q3 SleSi+1 3 
CI*CI+Zs GO LB $3 
END 
ELSE IF Sc=" " THEN 
BEGIN 
CleCI+43 GO 42% TALLY TALLY4#13 DSeCHR 3 


02781100 
02781150 
02781200 
02781250 
02781300 
02781350 
02781400 
02781450 
02781455 
02781460 
02781500 
02781550 
02781600 
02781650 
02781700 
02781750 
02781800 
02781850 
02761900 
02781950 
02782000 
02782050 
02782100 


02782150 


02782200 
02782250 
02782300 
02782350 
02782400 
02782450 
02782500 
02782550 
02782600 
02782650 
02782700 
02782705 
02782710 
02782715 
02782720 
02782725 
02782730 
02762750 
02782800 


02782850 © 


02782900 
02782950 
02783000 
02783050 
02783100 
02783150 
02783200 
02783250 
02783275 
02783300 
02783350 
02783400 
02783450 
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0000%0 
000080 
000010 
000010 
000040 
000040 
0000!0 
000040 
000080 
000030 
000010 
00000 
000080 
0000!0 
000010 
000080 
000010 
000080 
000070 
000080 
000080 
00000 
0000t0 
0000!:0 
000030 
000010 
00000 
o000tO 
O000TO 
0001430 


000180 


00032 
000433 
0006!4 
0004t2 
000682 
000710 
000730 
001232 
OOlas4 
001452 
O014%2 
0015%0 
001570 
001984 
002182 
002112 
002240 
O023%2 
0024: 4 
002414 
0025:3 
002731 
0028!0 
002810 
002423 
002883 


@®eeeeeeeesee ee ee | ee ee ee ee ee ee 


ta 


END 
ELSE IF Sc="O™ THEN 
BEGIN 
CleCIl+J3 GO Les OleDI+i3 STeSlI+1 3 
TALLY*TALLY41. 3 : 


END 
ELSE BEGIN 
2% DIeLOc DECPTA DIeDI*13 DSeCHR 3 
JUMP gUT To CV 3 
END) 3 


CV: WeSI3 St*LOC Ts DI©LOC V3 Ne©TALLY3 DSeN OCT 3 


END 3 
BUFFeP3; T3"P3 DCLO*#CDECPT*+P) AND CODE>10 3; 
TLeTLe CC CEPCXCH))ZOI@PCXCH)*T33 T4eP3 PCXCH) 3 
IF COMMAS THEN IF cC#%s" AND NOT DC1O THEN CeO 3 
END OF CONVERT 3 


REAL SUBROUTINE DEBLANKDEZEROGETSGN 3 
BEGIN 
STREAMC CEO SBUFF eo VLed es SGNeOeT2eOe TL tTeT1 ef 3626] 2/HADSGNESGN) 3 
BEGIN SI*+BUFF? DleT2 3 
TLCIF Sc#" " THEN 
IF Scoot THEN GO ENDS 
ELSE IF SC3=" THEN 


BEGIN 

BUFFeTALLY3 TALLY¢13 SGNeTALLYS TALLY*BUFF3 
Lt CLeCI+HADSGNS GO 123 HADSGNeEDIS VLeDI 3 

END 

ELSE IF Sc#"0" THEN 
BEGIN 
IF Sc#"4+" THEN IF Sc#ta" THEN 
BEGIN 

L2s TALLY«TALLY4+13 DI©LOC BUFFS DLenI=1 3 


DS*CHRs ENDS! T2eTALLY 3 
JUMP OUT TO ENDS1 3 
END 3 

eo bi 3 

END ELSE VLeDI 3 

SleSy#13 TALLY TALLY41) 3 
D1<T42 T2*TALLY 3 
TC2C32CIF SC#z" " THEN 
IF SC>"0" THEN BEGIN TieDIs JUMP QUT 3 TO ENDS1 END 
ELSE IF Scat" THEN 
BEGIN TALLY*13 SGN*TALLY 3 3 
L33 CIeCI+HADSGN3 GO L&F TALLY©O3 HADSGNeTALLY3 
VLeTALLY 3 
END 
ELSE IF Sc#"0" THEN 
BEGIN 

IF SC#*4+" THEN IF SC#*&" THEN 

BEGIN 
L43 a DleDle8s; TieDIs DI*LOC BUFFs DleDIey ; 

OS*CHRs JUMP QUT 3 TO ENDS. 3 
END 3 

GO 43 3 

END ELSE BEGIN TALLY*Os VL©TALLY END 3 

Sl¢Sr+#t3 DI*DI"8))) 3 


02783500 
02783550 
02783600 
02783650 
02783700 
02783750 
02783800 
02783850 
02783900 
02783950 
02784000 
02784050 
02784100 
02784125 
02784150 
02784200 
02784250 
02784300 
02784350 
02784400 
02784450 
02784500 
02784550 
02784600 
02784650 
02784700 


02784750 


02784850 
02784900 
02784950 
02785000 
02785050 
02785100 
02785150 
02785200 
02785250 
02785300 
02785350 
02785400 
02785450 
02785500 
02785550 
02785600 


02785650 © 


02785700 
02785725 
02785750 
02785800 
02785850 
02785900 
02785950 
02786000 
02786050 
02786100 
02786150 
02786200 
02786250 
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0030:0 
003080 
003083 
003033 
003230 
003234 
O032%4 
O03a%2 
0033%4 
0033°3 
OO34t0 
00352 
00353 
003833 
0042%3 
QO046t4 
004632 
O04ébie 
O047?0 
004720 
oleh Tek | 
005023 
0054:3 
005212 
OOS3t4 
005371 
005433 
005620 
005610 
005633 
005633 
005723 
0057323 
0058t2 
005940 
Qos9g!2 
005982 
005923 
0060%14 
006410 
0064!2 
0063°0 
006433 
O065t2 
0066!f0 
O067!%4 
0067:%2 
006712 
O068%4 
0068%1 
006941 
0069%4 
OO7O! 4 
007172 
0074%2 
00714%3 
0079%2 


ea 


ENDS1: BUFFesl 3 
END 3 
TLePCSUBsSSP)3 SGNeP3 VLeP3 BUFF eP 3 
DEBLANKDEZERQGETSGNGE (CEP) >9 3 
END OF DEBLANKDEZEROGETSGN 3 


SUBROUTINE CKPB 3 
BEGIN 
MAXCHRePCMKSsDKADDR»s ta FILXsALGOLREAD)X8 3 
BUFFeCPC*FILX)2.£332151 3 
END OF CKPB 3 


SUBROUTINE INPUT 3 
BEGIN PCO) 3 
ENDALL!? POMKSsDKADORsCHReOsFILX*#ALGOLREAD) 3 
IF P THEN BEGIN FILXCNOT 3J¢FILXENOT 4)¢03 PCXIT) END 3 
CKPB 3 
END OF INPUT 3 


SUBROUTINE GETNEXTLISTADDRESS 3 


BEGIN 
IF NEEDNEWLISTADDRESS THEN 
BEGIN 
IF ARY THEN 
BEGIN 
AL IST: IF TWOT THEN PC*CARICINDXof33873]3/INDX AND 255eCDC) 


ELSE PCCARLCINDXII) 3 
ARYe CINDOX*INOX+41+0BLPREC) LSS SIZE 3 
END 
FLSE IF TYPESCOMPLEX THEN 
BEGIN TYPEe=COMPLEX3 PCCLISTADDRE1])2 END 
ELSE BEGIN 
PCARRAYSTUFF¢0)3 LISTADDR«E£LISX] 3 
DBLPREC*C(CTYPESCLISTYPE.TYPEF )SDBLPRECSN 3} 
IF ARY*ARRAYSTUFF ZO THEN 
BEGIN 
IF TYPESCOMPLEX THEN TYPE®*COMPLEX 3 
SIZE*CINDX¢ARRAYSTUFF ,INDXF )+ 
ARRAYSTUFF,SIZEF 3 
PCLISTADOR«eMEM(LISTADDR,(18%15]1]) 3 
TWOTeENOT PCLODe TOP) PCDEL) 3 
GO ALIST 3 


END 3 
PCDELsELISTADDRG0}1) 3 
END 3 
NEEDNEWLISTADDRESS*03 ADDREP 3 
END 3 
IF DONE OR EnITCODE=1 THEN 
AWAY? BEGIN P¢1)3 GO ENDALL END 3 
END OF GETNEXTLISTADDRESS ; 


SUBROUTINE NLE 3 
BEGIN PCXCH)3 GETNEXTLISTADDRESS3 NEEDNEWLISTADDRESSe1 3 
IF WH2eDBLPREC THEN WH2*ADDRE1] 3 
IF CWHIFADDRE OJ) +4>PCF O94) THEN 
BEGIN IF Ti THEN VERR(P4+10)3 PCDEL»FO94) END 
ELSE IF PCDEL s+ C=PCFO94)),0UP)<WH1 THEN PCDEL»WH1) 3 


02786300 
02786350 
02786400 
02786425 
02786450 
02786500 
02786550 
02786600 
02786650 
02786700 
02786750 
02786800 
02786850 
02786900 
02786950 
02787000 
02787300 
02787350 
02787400 
02787450 
02787500 
02787550 
02787600 
02787650 
02787700 
02787750 
02787800 
02787850 
02787900 
02787950 
02788000 
02788050 


02788100 


02788150 
02788200 
02788250 
02788300 
02788350 
02788400 
02788450 
02788500 
02788550 
02788650 
02788700 
02788750 
02788800 
02788850 
02788900 
02788950 
02788955 
02788960 
02788965 
02788970 
02788975 
02788980 
02788985 
02788990 
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0073%3 
007420 
O07 at, 
007633 
00780 
0078214 
007884 
007910 
00790 
0084%4 
008233 
008 3°90 
008310 
008340 
0083%4 
008510 


0089!0- 


0090%0 
009084 
009084 
009420 
009420 
0094%4 
0094%3 
0092910 
O0998e 
OO95!92 
0096!92 
009984 
009981 
9100%2 
010223 
O103%4 
010483 
010780 
O1d0Brt 
010833 
0111480 
O11l2%4 
0411343 
011533 
OLL7 84 
011733 
011723 
OLlety 
Olissi 
O119%2 


011932. 


O121%2 
012253 
012330 
0123%0 
012330 
012483 
012732 
O129%4 
013210 


% 
i a 


eoceocececereoeceeoe eo eee eee eevee 
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atm as ‘ sve 
PCXCH) 3 02788995 T 013510 
END OF NLE 3 92789000 rt 013584 
02789005 T 0135%2 
SUBROUTINE HANDLEVARIABLES 3 02789010 T 0135%2 
BEGIN Tie1 3 | 02789015 T 013680 
IF R=P(FO95) THEN | 02789020 T 013633 
BEGIN PCO)S NLES TlePCeReISN)>03 DLRSGNel18815]¢R 3 02789025 T 013712 
IF CODES29 THEN 02789030 T 014133 
BEGIN PCFI4N) 3 02789035 tT 014232 
IF R20 THEN PCCEMTLP]]sDUPsLODsP&RE6$ 363 12)4XCH) 02789040 T 014383 
ELSE PC.FI) 3 02789045 T 014730 
PCSTN) 3 02789050 T 014733 
OUTSUBS PCDEL*DEL)$ GO GETNEXTPHRASE 3 02789055 T O148to 
END 3 02789060 T 014980 
END 3 02789065 T 044910 
IF Td4eCODEs30 THEN 02789070 T 014910 
BEGIN P(2)3 NLE$ PC,T2sISN) 3 02789075 T 015084 
STREAM(PL©PSP2¢P (CD) sP3"P(CD1)) 3 02789080 tT 015212 
BEGIN SI*LOC P13 SIeSI+75 DI*LOC P2s DIeDI41 3 02789085 T 015383 
32CIF SC=DC THEN JUMP OUT# TALLY*TALLY+13 SIe*SIe1) 3 02789090 7 015433 
PLeTALLY 3 02789095 T 015633 
END 3 02789400 7, 061457:0 
IF (T2 AND 63)4T2 THEN PCDELs32) 3 02789105 T 015794 
IF (CODE¢P+3)>MAXCODE AND T1 THEN VERR(2) 3 - 02789110 T 0159%2 
TI*CODE>4 AND T1 3 02789115 T 016283 
END 3 02789120 T 0164t2 
T26T1 3 02789125 T 016482 
IF PCCODE211 AND CODES14*F095)=W THEN 02789130 7 016584 
BEGIN PC.W24) $ | 02789135 T 016733 
NLELS NLES PCXCHeISD)3 TlePCDUP) AND T2eT2 AND W>O i 02789140 T 016883 
END 3 02789145 7 017384 
IF D=P(FO95) THEN BEGIN P(,0»6)3 GO NLEL END 3 02769150 T O173%4 
IF CODES4 THEN 02789155 T O175%2 
BEGIN IF T4 THEN WER 02789160 T 017634 
FMTWeFMTWRCPCDUP) CALS1I+(NCO2 0418479193 GO HV 3. 02789165 T O178t4 
END 3 . 02789170 T 018240 
IF NOT T2 THEN GO OUTSUB$ IF CODE®5 THEN HVS Red 3 02789175 T 018210 
IF P(DUP) AND D<O THEN VERR(16) 3 02789180 T 018423 
IF T4 THEN IF W=PC(FO94) THEN | 02789185 T 018784 
BEGIN IF CODE#9 THEN VERR(6)3 WeO END 02789187 T 01848!3 
ELSE IF PCDUP) AND DsP¢FO94) THEN 02789190 T 019240 
BEGIN P(7) 3 02789195 7 019333 
VERRORE THePS PCMKSsCODEsReWoDs Toe WHLs WHOeFMTWe 02789200 T 019482 
C5) sFORTERR) 3 02789205 T O197%4 
FOousss 4094 3 02789210 T 919810 
—FO9S#S$! 4095 3 02789215 T 019910 
CDis: ®0047676321464341 3  % OPXTAOLJ 02789220 T 020010 
CDit#!  @3427262524230000 3 % IGFEDCOO 02789225 T 020410 
END 3 02789230 T 020230 
IF NOT P THEN SAVDS=pts0 ELSE SAVDS=D3 . 02789235 P 020210 
END OF HANDLEVARIABLES 3 02789240 7 020534 
02789250 T 020512 
SUBROUTINE ADJUSTBUFF 3 02789300 T 020532 
BUFFecPC*FILX) INX 172,033%12])8T263084533) 3 02789350 T 020610 
02789400 T 020014 
SUBROUTINE SKIP # 02789450 T 020984 
IF (T1¢PC(XCH)) GEQ W THEN TiewW 02789500 T O210%0 


@®eeskee#e#ee8e#e¢8e0e@6¢@6UhOhmhCiOhC<C MC—<CiNMhUC—~<CMLhC~<C MUCOCUHhlUlOhlUwD 


ELSE BEGIN T2¢CHR=Tis ADJUSTBUFF END 3 


Behe kkk kee AHR REET E CODE STARTS HERE Si eke kak keke hehe eg 


FIBeFILXCNOT 237% FILXOENOT 3]¢PARLS FILXENOT 4J©EOFL 3 
IF FIBC52¢£4322)42 THEN PCMKSsOs2eFILXeleSELECT)3 CKPB 3 
IF NOTCNOTCNEEDNEWLISTADDRESS+EDITCODE=3) OR FMTCFIJITHEN GO FERROR; 
JF FIBLOIJS0 THEN FIBLOI]e1 3 
IF ¢(LSTRN€{)4FIB00] AND FIBL4A],£824}=2 THEN 
BEGIN. T3«4 3 


FERROR! PCMKSsFIBC7I]oFILXeL33LL95) eT3eFORTERR) 3 


ENO 3 
PCO) 3 


GETNEXTPHRASE § 


RePCPMTCFIler I +i] 20uUP).f6812]% IF (CODE*PCOUP),£C135)])<2 THEN GO HH 3 
WESP(DUP).£168%12)]3 SAVOtsDtSCFMTWE=PCDOUP)),£30%1213 
IF (XTRACPCDUP) AND 63),044%2}=0 THEN P0090) 
ELSE PCPCCT4¢PCDUP) AND 15)512s0UP) OR T4e8sPCXCH) OR T4=A) 3 
DLRSGN©P3 COMMASeP 3 
IF P,f42%13 THEN TF CFMTW AND 3930 THEN HANDLEVARIABLES 3 
IF cODE=0 THEN 
BEGIN 
IF D#¥0 THEN BEGIN GETNEXTLISTADDRESS} INPUT END 3 
IF PCHUP).CI8S15174F] THEN PCR&F1£189338153) 3 
IF PCCNOT O)sXCHeINXsDUP),£33%15)50 THEN PCDEL) ELSE Flerlew 3 
GQ GETNEXTPHRASE 3 
END 3 
IF CODEs5 THEN CHReO 3 


REPEAT?! 


IF CODE>S THEN BEGIN GETNEXTLISTADDRESS3 NEEDNEWLISTADORESS¢1 END 3 
IF CODE#3 AND CODE ?9 THEN 
IF CCHRECHR+#W)>MAXCHR THEN GO AWAY 3 
Tiews SGNets ECEXPHDECPT+T2ewHlewH2e0 5 
GQ PHRASECCQDE™II + 


TT! CHReWay 3. 
XX! T2°CHR} ADJUSTBUFFS GO TESTL 3 
SS? INPUTS GO TEST1 3 
LL: IF NOT CNEXTCHRZ" " OR T1s0) THEN GO LL 3 
IF NOT CCADDRCOJ*CZ"F" AND C#™ %) AND C¥™T") THEN GO xX 3 
PO"G")3 IF CODEZ11 THEN PC129+)3 FERRO? 3 
PP: SCALECNSFMTWE124181]3 GO TESTI 3 
O00: P¢16)% SKIP3 PCDEBLANKDEZEROGETSGN)$ IF T120 THEN SGN®SGN OR VL 3 
O18 IF cT2ec<8 oR Ce" ") AND T1>0 THEN 
BEGIN 
PCNEXTCHR&PCXCH)C194344)) § 
IF T2eTis15 AND C>3 THEN BEGIN PCOEL)3 GO O2 END ELSE GO 01 3 
END 3 
IF SGN THEN PCCHS)3 ADDREIOJ©PS IF T2 THEN GO TESTI 3 
O02: Pe"n")s ERRCL+T24+T2) 3 . 
GG: IF TYPE=SLOGICAL THEN GO LLS IF TYPESINTEGR THEN Die03 
Pe"g")3 GO EDIT # 
FE: PC"E%)3 Go EDIT 3 
FFs: PC"F™)3 GO EDIT 3 
DD? PCYO")$3 GO EDIT 3 
Itt Pe"r%)3 GO EDIT 3 
JJP PEM) 3 
EDITS 


02789550 
02789600 
02789650 
02789700 
02789750 
02789800 
02789850 
02789900 
02789950 
02790000 
02790050 


02790100 


02790150 
02790200 
02790250 
02790255 
02790260 
02790265 
02790270 
02790275 
02790300 
02790350 
02790400 
02790450 
02790500 
02790550 
02790600 
02790650 
02790750 
02790800 
02790850 
02790900 
02790950 
02791000 
02791050 
02791100 
02791150 
02791200 
02791250 
02791300 
02791350 
02791400 


02791450 © 


02791500 
02791550 
02791600 
02791650 
02791700 
02791750 
02791800 
02791825 


02791850 - 


02791900 
02791950 
02792000 
02792050 
02792100 
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021123 
O215%4 
021581 
O21534 
021524 
0228%3 
023320 
0235!2 
023812 
024123 
024370 
024530 
024530 
O245%4 
0245%4 
024973 
0253:3 
0257:0 
026133 
026283 
026780 
026713 


026831 — 


027280 
027483 
027932 
O280t0 
0280:0 
028270 
028230 
028443 
028632 
0289%4 
029480 
0303!0 
O304ty 
030632 
0308%a 
0312'0 
031583 
O318%2 
0320:3 
0324t2 
0328:3 
032984 
033420 
033442 
033432 
033730 
033920 
034284 
034330 
034323 
O344i2 
034534 
034630 
O346%4 
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IF DEBLANKDEZEROGETSGN THEN ly PE 02792150 


T 034634 

EGIN 02792200 T 0347%0 

IF DLRSGN THEN 02792250 T 034782 

IF c="$" THEN TF NOT DEBLANKDEZEROGETSGN THEN GO £2 3 02792300 7, 034783 

IF CODE=9 THEN GO GOTNUMBER 3 02792350 T 035432 

IF DECPT«C="," THEN 02792355 T 035283 
BEGIN IF CODEs10 THEN ERR(2)3 PCCeT1)) 3 02792360 T 035480 
STREAMCBUFF eCeOsT2eOe TL t Teli, £36261) 3 02792365 T 035730 

BEGIN SIe*BUFF 3 02792370 T 035982 

TICIF Scé"0" THEN IF Sc#" " THEN IF SC#"0" THEN 02792375 T 035933 

BEGIN 02792380 T 036433 

IF Sc<"0O" THEN 02792385 T 036483 

BEGIN — 02792390 T 036284 

DIeLOC T2s Dil*eDI™13 DSeCHRE TALLYe TALLY4+1 3 02792395 T O362%4 

END 3 02792400 - 0363314 

JUMP OUT TOL 3 02792405 T 036321 

END 3 02792410 T 0363%3 

TALLYe TALLY 412 SIeSI#1) 3 02792415 T 036323 

DIleTi 3 02792420 T 0364%2 

TC2¢32CIF SC#"0O" THEN IF SC#" " THEN IF SC#"O" THEN 02792425 T 036433 

BEGIN TleDr 3 02792430 T 036784 

IF Sc<"o" THEN 02792435 T 036732 

BEGIN DIeDI"8 3} : 02792440 T 036810 

TI*DITs DI*LOc T2s Denials DS*CHR 3 Q02792445 Tt O36Rt4 

END 3 02792450 T 0369%4 

JUMP GUT 3 TOL 3 02792455 Tt 036934 

ENO 3 02792460 T O370%4 

DieDI*83 SteSr+1))) 3 02792465 fT O370%4 

TheDI 3 | 02792470 + O0374%2 

i’ BUFFeSTZ T2eTALLY 3 02792475 T 0371433 

END $ 02792480 T O372%4 

TieP(SUB*SSSP)3 CeP3 BUFFOPS EePeTy 3 02792485 T O372%2 

TF C<10 THEN IF T1®0 THEN GO GOTNUMBER ELSE GO F2 3 02792490 T 0375!2 

END $ 02792495 T O0378%2 

IF Cave" THEN GO ASK3 WHiel=OECPTS GO Ext 3 . 02792500 7 O3748!:2 

END 02792505 T 038132 

ELSE IF Tis0 THEN BEGIN SGNeVL OR SGN$ GO GOTNUMBER END 3 02792510 T 038432 
E2: IF cODEs10 THEN DECPTe¢1; VLeo 3 02792550 T 038510 
BACK: . 02792600 T 038753 
CONVERT 3 02792650 T 038733 
IF T3530 THEN IF COMMAS THEN GO. CHKC ELSE PCDEL) © 02792700 T 038910 
ELSE BEGIN 02792750 T 03914%2 
IF Vi THEN 02792900 T 039210 
BEGIN 02792905 7 039234 

IF OC10 THEN PC(T4) 02792910 T 039233 

FILSE 02792915 T 0393%2 

ADT? PCT3). 3 02792920 7 039343 
FeE+P3 PCDEL) 3 02792925 T O394t2 

END 02792930 T 039583 

ELSE BEGIN 02792950 T 039523 

TF DC1O THEN EtE+T4eT3 3 02793000 Tt 039681 

IF CT2¢T2+T3)>7T3 THEN | 02793050 tT 0398%3 

BEGIN . fae 02793075 7 O40012 

IF T2<12 THEN GO STNRD 3 02793100 T 040480 

IF OBLPREC THEN 02793125 T O402%4 

BEGIN 02793130 tT 040232 

IF PC(DUP)=0 THEN IF T2>23 OR TisO OR C40 THEN 02793135 T 040330 


@eeeeeeesefeeeeeeeeeseeeeeeeeee®é 


) 


BEGIN VLel; T2eT2"T33 GO ADJT END 3 
IF T2>23 THEN 
BEGIN 


PCCTENLT2"T3"42]xP(MAX)<WH1)"24)3 RNDADS 3 


END 3 

WHOEPCOsXCHs WHE »WH1e Oe TENT T3]°0OLMeDLAeXCH) 3 
END 

ELSE BEGIN 
PCCTENLT3 "T2412 2xXWHI>POMAX)II"12)3 RNDADY 3 

STNRD? PCTENET3]xWH1le+) 3 
ENO 3 
END 3 
WHLeP 3 


END 3 
CHKCS IF NOT CC#0 OR T1S$0) THEN GD BACK 3 
END 3 
IF ¢>9 AND CODE#9 THEN ELSE GO GOTNUMBER 3 
EX1:1F NOT CCZ"E" AND CAD") THEN GO EX 3 
IF Ca" OR CaM=" THEN BEGIN PCT2sTi+i)3 SKIPS T2¢P END 
ELSE IF €#"@" OR HOLTOG THEN GO ERR1 3 
EX’ IF CODE#10 THEN ERR(2)3 PCSGN)3 SGN*EXPed 3 
IF DEBLANKDEZEROGETSGN THEN 
BEGIN PCDEL) 3 | 
ERR1? IF C=%*" THEN GO GOTNUMBERS ERRCL+#(CODE=10 AND Ca")? 3 


END 3 
PCDECPT)3 ODECPT€13 CONVERT? IF SGN TREN PCSSN)3 Ee CT4eP) +E 3 
DECPTe¢P3 SGNePs IF C>9 THEN GQ ERRI 3 
Fi: IF T1>0 THEN IF NEXTCHR>9 AND CZ" " THEN GO ERR1 ELSE GO E14 3 
GOTNUMBERS : 
IF cODE>10 THEN 
BEGIN IF NOT DECPT THEN EeE*03 IF NOT EXP THEN EeErSCALE END 
ELSE IF CODE=9 THEN 
IF CCHRECHReW=T1e(C>9)4+(CaC eat) D>MAXCHR THEN GO AWAY 3$ 
IF ABSCE2>44 THEN 
BEGIN IF E+T2>68 THEN GO ERR33 IF E<¢*68) THEN E*"*"68 END 3 
IF DBLPREC TREN 
BEGIN 
PCWH2,WH1) 3 
IF E40 THEN PCTENDCABSCE +69] sTENCABSCE) JeIF E20 THEN PCDLM) 
ELSE PCDLD)) 3 
END 
ELSE BEGIN 
PCWHL)$ IF €40 THEN PCTENCABS(E) 3s IF &€>0 THEN PCx) ELSE PC/)93 
END 3 
IF SGN THEN PCSSN) ? 
IF eee eeee OR TYPESLOGICAL THEN 
BEGIN. 
IF PCDUP)>PCMAX) THEN BEGIN PCDEL)s ERR3t ERRC3) END 3 
PCCADDRCOI]}2180)3 GO ASK 3 
END 3 
PCLADDRI@®J])5¢)3 YF DBLPREC THEN PCPFADORE LJ J-¢) 3 
ASK3P(MEL)F IF cx!*" THEN GO TESTIS GO XX 3 


“MAXESS @OOO7777777777777 |; 


HH: PCDEL)3 IF (CHReCHR+R)>MAXCHR THEN GO AWAY 3 
STREAMCBUFFERsSeR,C36t6]sHOLTOG»QeCFMTCF III) 3 


BEGIN 
DIeDI433 SI*BUFFS CIeCI+HOLTOGS GO Lis ROHCAsBsCeD)) 3 


re sab i al. vai. 


02793140 
02793160 
02793165 
02793170 
02793175 
02793180 
02793185 
02793190 


02793495 


02793200 
02793205 
02793245 
02793250 
02793300 
02793350 
02793400 
02793450 
02793500 
02793510 


02793515 


02793550 
02793600 
02793650 
02793700 
02793750 
02793800 
02793850 
02793900 
02793950 
02794000 
02794050 
02794100 
02794150 
02794200 
02794250 
02794300 
02794350 
02794400 
02794450 
02794500 
02794550 
02794600 
02794650 
02794700 
02794750 
02794800 
02794850 
02794900 
02794950 
02795000 
02795350 
02795400 
02795410 
02795450 
02795460 
02795500 
02795550 


a a at as as ss a ss tt tt st tt 


040740 
041070 
041093 
O4igty 
041530 
041540 
041820 
041810 
0418%2 
042320 
O424ty 
O424%4 
O424t4 
042423 
042443 
042720 
042730 
O429t4 
0434%2 
043682 
043910 
O44nta 
044420 
044493 
044833 
O44Qt3 
0453%9 
045583 
0460482 
046082 
O46 Ltt 
O466%4 
0467%2 
O47 3481 
047454 
047930 
047984 
047983 
0480! 4 
0485!0 
0485!3 
048523 
O486tt 
049023 
049013 
049133 
049380 
049410 
049624 
049734 
049784 
049912 
0504!%o 
0503!0 
0505!%2 
050834 
050854 


¥ 
H 


© te 6) ww 


GO L23 Lit GO L33 L2t SC2C32CHCWsXe¥eZI)))3 GO Las L3t 
DS*R CHR} S(NS€32 CHRS DS*32 CHR)3 L4? BUFFeSI 3 
END 3 | 

FICFI+(R+2),03639)3 BUFFePS GO GETNEXTPHRASE 3 


CC: . . 
AAt PC6)3 SKIPS ADDRCO]eIF PCCODE=6-/DYUP). THEN PCBLANKS) ELSE O 3 
STREAMCTeIF P THEN 2 ELSE S*TLISBUFF,TieHOLTOGsADDR? 3 
BEGIN 
DIleDI+Ts SL*RUFFS CIeCI+HOLTOG; GO Lis TICHCAsBeCeD)) 3 
GO L23 Lit OS*T1 CHR L2: TeSI 3 
END 3 
BUFF EeP 3 
TESTit 
IF ¢(ReR=1)>0 THEN GO REPEAT 3 
IF (XTRA AND 3)50 THEN GO GETNEXTPHRASE 3 
PEXTRA)? XTRACWED 3 
IF PCDUP) THEN BEGIN WeP,.£42!5)3 COpE«43 GO REPEAT END 3 


COME] ReP,C42243% GO ss 3 

BLANKS#iia% "3 

ERRORS 
PCFILXCNOT 339% FILXENOT BJF ILXENOT 43603 POMKSe9sINTINT) 3 
T3eP(DEL)3 TeeP 3 


PCMKSsT2eT3eWsSAVDeCODEr TYPE sCHR*TIsFIBC7 Is BUFFsFMTCF IJ ¢DLRSGNs(*3)> 
FORTERR) 3 
END OF FTINTFIX 4 


eR ROMS RPT 


eet tt RLY AERO SHEN NEE LR TE EE BED 


senate manana acy aadgsln Shepard catee aT NO eT Daa hr ata ae ee act 
‘HERI ATR eng a a RE ERASE aco tor ete ttn ae es em ack ft Sab tee RRs a eye se tg aS IM PP HB LIER x iba. re 


PROCEDURE FTINT 3 % 050 


BEGIN 
COMMENT FILX FILE TOP 10 DESCRIPTOR 
FMTA FORMAT OR NAMELIST OR O 
LIsx AGCIDENTAL ENTRY DESc. OR O 


EDITCONE 0 NO FORMATs NO LIST 


1 FORMATs NO LIST 
2 NO FORMAT, LIST 
3 FORMATs LIST 
4 NAMELIST 
5 BACKSPACE 
fs) BLOCKDATA3 
REAL PARL = m1», 
EQFL = wa» 
FORTERR = Das 
EDTTCQDE..= 3s 
LISx = mas 
FI = 6s 
DKADR = 7? 
READINT = 3» 
SELECT = 443 
ARRAY FMTA = —5fed3 
NAME FILX = "Bs 
MEM = a3 
INTEGER LSTRN = 19; 
REAL LISTYPE = 208 


START OF REL SEGME 


02795600 
02795650 
02795700 
02795750 
02795800 
02795850 
02795900 
02795950 
02796000 
02796050 
02796100 
02796150 
02796200 
02796250 
02796300 
02796350 
02796400 
02796450 
02796500 
02796700 
02796750 
02796800 
02796850 
02796900 
02797450 


§ 


Seda san lh Wag diy bez Saati Lath cnc 


02800000 
NT3 DISK 
02800100 
02800200 
02800300 
02800400 
02800500 
02800600 
02800700 
02800800 
02800900 
02801000 
02801100 
02801200 
02804300 
028013014 
02801400 
02801500 
02801600 
02801700 
02801900 
02802000 
02802100 
02802160 
02802190 
02802300 
02802400 


T 
T 
T 
T 
t 
bg 
tT 
T 
T 
tT 
T 
T 
T 
tT 
T 
T 
T 
T 
7 
T 
1, 
T 
P 
7 
7 
I 


T 


052130 
O534:14 
053634 
053412 
0547430 
054410 
0545:0 
0548183 
054883 
056433 


056283. 


056310 
05463! 
056342 
056634 
056810 
056912 
057410 
057810 
057930 
0579%0 
O584t4 
0585t2 
059040 
059084 


ZE= 0594 


0000!0 


ADDRESS = 


a ss ss Hs st Ht 


000080 
000040 
000040 
Q000%0 
00000 
000080 
0000%0 
000080 


Regaine ine aan ibd A 


00329 


O000tO . 


000030 
000010 
000010 
000030 
000010 
o000t0 
60000 
0000%0 
000070 
0000:0 
okelelon Ee) 
0000%0 
000030 
000030 
0000%0 
o000!0 


£ 
b 
| 
j 
: 
i 
E 


ARRAY 


NAME 
REAL 


NAME 
ARRAY 
INTEGER 


BOOLEAN 


DEFINE 


ARRAYSTUFF 


HOLTOG 
TEN 
FIRC* 3 
LISTADR3 
BUFF 
BSIZE 
NBC» 
NFCI» 
DRis 
WH 4 
WHe3 
W153 
IQBUFF 
RPT» 

W 
BOTYP 
WT 

T1 

) 

OT 

ont 


D2 


LOGV . 


INTEG 
STRGV 
pBLV 
CMPLX 
NUM 
GTYPE 
FTYPE 
ETYPE 
DTYPE 
ITYPE 
LTYPE 
ATYPE 
OTYPE 
KINO 


CNTs 
EXP 
EXPSGN»s 
CODE 
SKP 
NCR 

LCR 

CHR 
PRCW 
PCT» 

PS 
DONETOG 
SGN 
FRTOG» 
LGTGs 
DTAERR» 


FMERRTOG 


GTOGs 
CTOG3 


a 


4k» 


V F1e»s 


V 
= DR» 


ton H HOU ff moat 


- 
- 


nl 
noun 
*® 


wn 
* 
” 


Of, 


BR HH HH 
~ eee ye ee 


BH» 


= LB, 
= 213 
= 22") >» 
» & FIRST BUFFER POSITION 
» & ARGUMENTS 
» & 
= BUFFC«]3 
» & FIELD 
= Ws 
2 & WIDTH 
» & 
» & DEC 
» & IMAL P* 
» & LA@ 
a & CE* 


2 & EXPONENT 


2 &% EDITING FUNCTION 
2 % REDUNDANT POSITIONS 
» & CURRENT BUFFER POSITION 
2 & BUFFER SIZE IN CHARACTERS 
a & CURRENT CHAR FROM FORMAT 
’ % PAREN CONTROL WORD 
% PAREN COUNTER 
3% SCALE FACTOR 
2 & RETURN AFTER WRITE 
» & SIGN 
% TRUE IF NUM HAS FRACTION PART 


2 & FORMAT ERROR 


CFIBC4I.C8E4I DH» 


02802500 
02802600 
02802900 
02803000 
02803100 
02803200 
02803300 
02803400 
02803600 
02803700 
02803800 
02803900 
02804100 
02804200 
02804300 
02804400 
02804500 
02804600 
02804700 


02804800 © 


02804900 
02805000 
02805100 
02805200 
02805300 
02805400 
02805500 
02805600 
02805700 
02805800 
02805900 
02805910 
02805920 
02806000 
02806100 
02806200 
02806210 
02806300 
02806400 
02806500 
02806700 
02806800 
02806900 
02807000 
02807100 
02807300 
02807400 
02807600 
02807800 
02807900 
02808000 
02808100 
02808200 
02808300 
02808400 
02808500 
02808600 


AANA AMA A tt tt Ht tt et tt a ta a ta a a 


0000%0 
000010 
000010 
000010 
000010 
0000t0 
000010 
000010 
000080 
000020 
000010 
0000:0 
000080 
000010 
0000t0 
o00ntd 
0000%0 
o00nt0 
0000t0 
o0000t0 
000010 
0000%0 
0000%0 
0000t0 
0000:0 
0000!0 
oddoto 
0000t0 
ocdnTD 
O000t0 
0000%0 
000030 
000010 
Q000tO 
0000!0 
000010 
a000tO 
0000t0 
000030 
000010 
000010 
000010 
O000t0 
0000t0 
000080 
0000!0 
0000%0 
o000t0 
0000:0 
O000t0 
0000'O 
0000!0 
000030 
00000 
0000!0 
00000 
0000t0 


a A ee er er er ee a re a er 


eocececeoeceoece eee ee eee ee eee 


TAPEF 
MAX 
ELMTYP 
DLN 
CMPLX 
TWOD 
LPPS 
LPPR 
RPTF. 
NORF 
POF 
ENDLIST 
SIZEF 
RASEF 


LABEL TYPERR» FMCYCs FMERR» MON* FNOL» FMTLSTs» FRMTCD»s NFPH» 
STRTsREPEAT*LPARSRTPARS SLASH» STRINGs TFMT»FMTERR» 
CLisCL2eChL3eClL4sScaLsHOLsSKIPsCcL3ArSTRAsTFMAs TIX» 
GoFsEsO0Calels Ar Ge tOMMs 


Leek? 


COMMENT * * * * * START OF SUBROUTINE pECLARATIONS * * * * & & w & 3 


SUBROUTINE CKPB3 
BEGIN COMMENT 


- 
= 


a 


Hong 


= 
- 


ae 
a 
4 
- 
- 
= 
4 
= 


2k» 
O7777777777777H» 
LISTYPE , £4424] 4&s 


CLISTYPE,£4424)] = 


CLISTYPE, £4484) = CMPLXV)#s 


LISTYPE,C38%1)#» 
15:30:18#, 


Cistieis#, 
(33815]#, 


CPCXCHsDUP) < O)#> 
ka, 


9:6 )# 
CLSTRN 


C33%15)#» 
C18215)#3 


=O" 42724 


DBLV)4>» 


INITIALIZE FILE AND ACQUIRE RECORD SIZE} 


LCR ¢€ Ax(BSIZE © POMKS»DKADR»oleFILX»READINT) 23 
BUFF «© C#FILX),£33815)3 NCR © 03 


END CKPB3 
SUBROUTINE READS? 
BEGIN 


PCMKSsDKADR, Os FILX»READINT)3 


IF DONETOG THEN PCXIT)3 


$ SET OMIT = NOTCTIMESHARING) 
IF KINDZ10 THEN %%% THEN NOT FROM DATA cOM, 


IF NOT CC#FILK)¢019913) THEN PCFILXs®2000000000s36sCOM*DEL»DEL IS 


$ SET OMIT = TIMESHARING 


CKPB3 
END READS 
LABEL Nrcls 


REAL SUBROUTINE NFC3 


BEGIN 
NFCL8 


WHILE NFCI.€45:3] < 2 00 NFCI ¢ NFCI + 43 


STREAM(PL ¢ O8P2 «FMTACNFCI,£30815))eP3 © NFCI,£45%3))3 
BEGIN DI « Lac Pi; 


oS « 7 LIT HOM: 


ST ¢« LOC P23? SI «SI + P330S ¢ CHR; 
=" 413 DOI + O1.* 13 


$I ¢« S$] 
IF SC < 
BEGIN 
IF S$¢ 
IF SC 
Ir Se 
ENDS 
END: 
NFCI ¢ NFCI + 13 


Hou Ou 


“NF C  #. CHR3 


END NFCS 


- SUBROUTINE PUT3 


BEGIN 3 


wan 


ttt 


ngey 


IF (CHR « P) 5 " " THEN IF NOT LGTG THEN GO NFCL3 


THEN 


THEN 0S « LIT """ ELSE 
"C" THEN DS © LIT "2" ELSE 
THEN OS eLIT "CO"; 


WHILE NFCI.£4523] <2 DO NFCI © NFCI + 43 


02808800 
02809000 
02809100 


. 92809200 


02809300 
02809400 
02809500 
02809600 
02809700 
02809800 
02809810 
02809900 


02810000 


02810100 
02810300 
02810400 
02810500 
02810600 
02810900 
02811000 
02811100 
02811200 
02811300 
02811400 
02811500 
02811600 
028411700 
02811800 
02811900 
02811909 
02811910 
02811920 
02811950 
02812200 
02812300 
02812400 
02812500 
02812600 
02812700 
02842800 
02812900 
02813000 
02813100 
02813200 
02813300 
02813400 
02813500 
02813600 
02813700 
02813800 
02813900 
02814000 
02814100 
02814200 
02814300 
02814400 
02814500 
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000010 
000080 
000080 
0000!0 
000080 
000080 
0000!0 
000080 
0000t0 
0000t0 
0000%0 
0000!0 
000010 
000030 
0000t0 
000080 


000040 _ 


oo00t0 
0000%0 
000080 
o000!0 
000130 
000130 
000333 
0006?0 
0006!14 
0007:0 
000730 
0008! 4 
OO09T, 
000944 
001033 
OO14t2 
O01412 
001410 
0018%0 
001830 
001870 
0018:0 
O01 REO 
002482 
O024%4 
002523 
0026%3 
O027Et 
0027323 
0027%3 
0029:0 
0030814 
0031%1 
003431 
003442 
003510 
0035%2 
003523 
003640 
0036%0 


“ oe 


e 


STREAMCP2¢CFMTACNFCT.C 308153} ]¢P3eNFCI C4533] 2P4eNBC)3 

BEGIN 
SI « LOC P43 SIleSI+43 
NI « P23 OleDI+P33 DS*CHR; 

ENDS 
NFCI « NFCI +143 
ENO PUT; 
SUBROUTINE GETS 
BEGIN} 

STREAMCP1 ¢C€NBC):P2 «© BUFF)3 

BEGIN 
SI ¢ P23; OL « P43 
OL ¢ DI+13 0S © CHR 
P1 « SI3 

ENDS 

BUFF « P3 
TF HOLTOG THEN 

BEGIN 
IF CNBC © NBC,0C626]) = “#" THEN NBC « “sx ELSE 
IF NBC "8" THEN NBC © 4" ELSE 
IF NBC "Z" THEN NBC «© "¢" FLSE 
IF NBC "£™ THEN NBC ¢ 9)" ELSE 
IF NBC wan THEN NBC Pa teeth s 
NBC ¢ O&NBCl684226]3 


nu aon 


END? 
END GET} 
% PARAMETERS FOR LIST CONTROL 
BOOLEAN ATOGs TWDT3 
ARRAY AR1 ® LISTADRI*}} 
INTEGER INDXs SIZE$ 
LABEL RTNLSTsSRT3 
DEFINE NXTELM = IF TWOT THEN PC#CARICINDOX, £3387) 3) + INDOX,C40%83,C0C) 
ELSE CARICINOX1743 
SUBROUTINE GETLISTS 
BEGIN 
SRT: IF ATOG THEN 
BEGIN 
Wi © NXTELM3 
INDX © INDX + DLN 
IF CINOX ©INDX + 1) 2 SIZE THEN 
BEGIN 
ARRAYSTUFF © 03 
ATOG «© FALSE; 
END; 
60 TO RTNLST3 
ENDS 
IF CTOG THEN 
BEGIN % IMAGINARY PART GF COMPLEX 
Wi © ELISTADRO13723 — 
CTOG «© FALSE3 
GO TO RTNLST3 
END; 
: PCO)3 
LISTADR ¢ C[CLYSX]3 
IF ARRAYSTUFF # 0 THEN 
BEGIN 
ATOG « TRUE; 


02814600 
02814700 
02814800 
02814900 
02815000 
02815100 
02815200 
02815300 
02815400 
02815500 
02815600 
02815700 
02815800 
02815900 
02816000 
02816100 
02816200 
02816300 
02816400 
02816500 
02816600 
02816700 
02816800 
02816900 


02817000 © 


02817100 
02817200 
02817300 
02817400 
02817600 
02817700 
02817800 
02817900 
02618000 
02818100 
02818200 


02818300 © 


02818400 
02818500 
02818600 


02818700 | 


02818800 
02818900 
02819000 
02819100 
02819200 
02819300 
02819400 
02819500 
02819600 
02819700 
02819800 
02819900 
02820000 
02820100 
02820200 
02820300 


a a ss) ss ss oe a ss ss st 


003922 
004230 
0042:0 
004232 
0043%2 
004383 
0045170 
0045t4 
0046t0 
0046:0 
OOa7t4 
QOa7T IY 
0047323 
0048? 4 
O04dgt2 
0048:3 
004934 
004980 
0050:0 
0053:0 
005512 
005810 
006042 
006320 
006423 
0064383 
006530 
0065:0 
006510 
0065170 
006580 
006580 
006530 
006530 
006510 
006520 
O065%4 
006533 
CO7O?4 
O072%2 
OO7Tat4 
007423 
0078%2 
OO7TbE4 
007631 
OO7633 
007613 
007740 
OO077%2 
007833 
0079%2 
008080 
008010 
oo8ot, 
0081:%0 
0084!3 
00824, 


= nar ee fi Sag Be oe ST At Es “ol LLLo Ure atch stsmaees scars sa ogra tenes meses 


TWOTENDOT PCRCLISTADReMEME 
SIZE*¢ INDX*ARRAYSTUFF.BAS 
GQ TO SRTs 
ENDS 
Wi ¢ CLISTAODR(OI)3 
PCDEL)s 
CTOG «© CMPLX3 
RTNLST? 
END GETLIST3 
SUBROUTINE FORMATCONTROL3 
BEGIN 
STRT3 


OP)s PCDEL? 3 


mr 


STADR 
2 +ARR 


weDeCODE+SKPeRPT©O3 
SGNe DONE TOGeFMERRTOGeFALSES 
CLizs COMMENT CHECK FOR SINGLE CHARACTER EDITING TYPES; 
IF NFCSO THEN GO TO REPEAT? % MUST BE REPEAT FIELD 
TF CHRE"C™ THEN GO LPARS 
TF CHR=")" THEN GO RTPAR3 
IF CHR="/" THEN GO SLASH 
TF CHR" THEN GO STRING} 
TF CHR="T* THEN GO TO TFMT3 
SGNeCCHRa"@") @ CCHRE*H") 7 22a721)5 
IF SGN. THEN 
BEGIN 
IF NFCS9 THEN GO TO REPEAT 
ELSE GO TO FMTERR3 
ENN; 
YF CHR="%." THEN GO TO STRT3 
RPT es 
ClL2: COMMENT TYPES WHICH MAY HAVE REPEAT FIELDS3 
IF SGN THEN RPTe"RPT; 
IF CHR="P" THEN GO TO SCAL3 
IF RPT<O OR SGN.[£2!1] THEN GO TO FMTERR3 
TF CHR="C" THEN GO TO LPAR3 
TF CHRS"H" THEN GO TO HOL3 
IF RPTSO THEN RPTe¢13 
IF CHR = "X" THEN GO TO SKIP? 
CL3: COMMENT TYPES WHICH HAVE W FIELOS3 
IF CHRE"I" THEN CODE « ITYPE ELSE 
IF CHRe"A" THEN CODE « ATYPE ELSE 
IF CHR="L" THEN CODE « LTYPE ELSE 
IF CHR="O" THEN CODE « OTYPE3 
IF CODE 2 ITYPE THEN GO To CL3A3 
CL4: COMMENT TYPES WITH W AND OD FIELDS; 
IF CHR="O" THEN CODE « OTYPE ELSE 
IF CHRe"E* THEN CODE « ETYPE ELSE 
IF CHRe"FY" THEN CODE « FTYPE ELSE 
IF CHRS"G" THEN CODE « GTYPE ELSE 
GO TO FMTERR3 
CL3A% COMMENT DEVELOP VALUE OF W FIELDS 
IF NFC>9 THEN GO TO FMTERRS 
WECHRS 
WHILE NFCS9 00 wWelOxW+CHRs % CONVERT TO OCTAL 
NFCIENFCT* 13 
IF W>63 TREN GO TO FMTERR} 
IF CODE2TTYPE THEN GO TIX; 
COMMENT DEVELOP O FIELD: 


02820400 
02820700 
02820800 
02820900 
02821000 
02821100 
02821200 
02821300 


02821400 


02821500 
02821600 
02821700 
02821800 
02821900 
02822000 
02822100 
02822200 
02822300 
02822400 
02822500 
02822600 
02822690 
02822700 
02822800 
02822900 
02823000 
02823100 
02823200 
02823300 
02823400 
02823500 
02823600 
02823700 
02823800 
02823900 
02824000 
02824100 
02824200 
02824300 
02824400 
02824500 
02824600 
02824700 
02824800 
02824900 
02825000 
02825100 
02825200 
02825300 
02825400 
02825500 
02825600 
02825700 
02825800 
02825900 
02826000 
02826100 


AAW a 9 A tt tt A Ht Ht tt 


0083%0 
0086!2 
008934 
008923 
0089%3 
0090:02 
009033 
00998e 
O092%e 
009233 
009330 
009310 
009310 
00953 
0097%2 
009732 
010030 


010174) 


0102%2 
0103:3 
010510 
0106234 
010940 
O109%4 
0109%3 
011142 
Ollate 
O112i2 
0113%3 
Oliate 
OLiate 
O11644 
O117%2 
012010 
O124%4 
O1l22t2 
O124t2 
012583 
012523 
0127383 
O130%1 
Q132:3 
O135%4 
013632 
0136%2 
0138390 
014120 
OL143%2 
014610 
014680 
014620 
014820 
0148%3 
0153414 
O154te2 
015533 
015730 
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IF NFC#*," THEN GO TO FMTERR3 
IF NFC>9 THEN GO TO FMTERRS 
DeCHR3 
WHILE NFCS9 DO DeLOxD+CHRs & CONVERT TO OCTAL 
NE CIeNFCI™43 : 
GQ TO TIX; 
LPARS COMMENT GENERITE PAREN CONTROL WORD3 
IF PCT#O AND RPT=O0 THEN RpTey 3 
T1 © RPT&NFCICLPPSI&CRPTSOICL2472193 
IF PCT $ 1 THEN PRCW ¢ T1 & PCTE>9242:6)3 
PCT1L»XCH)F PCT © PCT + 13 
60 TO STRT3 
RTPAR? COMMENT POINT AT LEFT PAR IF REPEAT NOT EXAUSTEDS 
IF NORF THEN 


BEGIN & NO REPEAT FIELD 
NONETOG © ENDLIST # 
READS3 


IF (PCT ¢ PCT = 1) $ QO THEN IF PRCW,.PCF #0 
THEN BEGIN PCXCHsPRCW)3 PCT * 2 END ELSE PCT © 143 
ENO ELSE 
BEGIN 
IF €RPT*PCDUP).*RPTF) < 1 
THEN BEGIN PCDEL)J¢PCT «© PCT * 13 GO TO STRT END 
FLSE PCRPT = 12C0CX)3 
ENDS 
NFCI©PCOUP),LPPRS &% RESET TO LEFT PAREN 
PCXCH)3 
GO TO STRT3 
REPEAT: COMMENT CONVERT REPEAT FIELD To OCTAL IN RPT3 
RPT«CHR3 
WHILE NFCS9 DO RPT* LOXRPT+CHR3 
60 TO CLa3 
SLASH! % READ NEXT RECORD 
READSe. 
GO TO STRT3 
STRINGS ¥ MOVE STRING FROM BUFFER TO FORMAT 
LGTG «© TRUE 
GET? PUT# NCR ¢« NCR + 13 


STRAt IF NFC = """ THEN BEGIN LGTG © FALSE? GO TO STRT ENDS 


IF (NCR ¢ NCR + 1) > LCR THEN GO TO FMTERR3 
GETS NFCI ¢ NFCI*13 

PUT3 

gQ TO STRA3 


TFMTs COMMENT SET BUFFER TO CHARACTER POSITION INDICATED BY FIELD 


FOLLOWING "T"3 
IF (RPT¢NFC)>9 THEN GO TO FMTERR3 
WHILE NFCS9 DO. RPT © {OXRPTSLCHR? 
TF RPTALCR THEN GO TO FMTERR3 
NCReRPT #43 

TEM, BUFF © (CC*#FILX) INX NOR,£33812]))&NCRL302452313 
GQ TO STRT3 

SCAL’ COMMENT SCALE FACTOR OF P PHRASE} 
PS¢RPT? 
GO TO STRT3 

HOLL: COMMENT HOLLERITH STRING} 
WHILE RPT > O DO 

BEGIN 


02826200 
02826300 
02826400 
02826500 
02826600 
02826700 
02826800 
02826810 
02826900 
02826910 
02826920 
02827000 
02827100 
02827200 
02827300 
02827400 
02827500 
02827510 
02827520 
02827600 
02827700 
02827800 
02827900 
02828000 
02828100 
02828200 
02828300 
02828400 
02828500 


02828600 


02828700 
02828800 
02828900 
02829000 
028291400 
02829200 
02829300 
02829400 
02829500 
02829600 
02829700 
02829800 
02829900 
02830000 
02830100 
02830200 
02830300 
02839400 
02830500 
02830600 
02830700 
02830800 
02830900 
02831000 
02831100 
02831200 
02831300 


AA AAA HAHA HHH A Ht 4 tt tA HH A st to a ts a 


0157320 
015910 
016420 
016133 
O166%4 
0167%9 
016880 
016870 
017140 
O1V7aty 
OL7 724 
017980 
0179%2 
O179%2 
0180%2 
018720 
0182%2 
0184!0 
018730 
019082 
019032 
019410 
O192%¢ 
O1985%4 
019633 
019633 
019840 
019874 
0198%3 
O19at3 
0199%2 
0204%4 
020433 
020423 
020620 
O2046t2 
O206!%a 
O207%4 
O21ots 
O213%4 
021542 
021821 
021980 
021932 
0219%2 
0219482 
0222%2 
O227%4 
022812 
022933 
023233 
O23 3%4 
Q0233%1 
023420 
0234%2 
023432 
0235%3 


IF (NCR « NCR + 1) > LCR THEN GO TO FMTERR$ 
GET3 PUT3 
RPTeRPT@# 13 
ENDS 
GO TO STRT3 
SKIP! COMMENT X PHRASES 
IF (NCR «© NCR+RPT) > LCR THEN GO TO FMTERR} 
GO TO TFMA3 
FMTERR? FMERRTOGeTRUES 
TIX! 
END FORMATCONTROLS 
SUBROUTINE SKPC3 % SKIPS CURRENT CHARACTERS.» PUTS NEXT CHARACTERS 


BEGINS % IN NBC 
STREAMCPI*BUFF sP2e0%P3¢0)3 
BEGIN 


St ¢ P43 SI ¢ Sy +43 P1 © ST3 
Dr « LOC P2s D1 « DI+75 DS © CHR; 
END> 
NBC ¢« P3 BUFF «© P3 
WT «© WT 43 
END SKPC$ 
SUBROUTINE S€ALE; 
BEGIN 
IF (01 ¢ Di + CNT) > 41 
THEN DOUBLECWHIsWH2sTENCCNT Js TENCOO+CNT la xe 


DH1s Oe +e esWH1 sWH2) 
ELSE WHie WHIxTENDCONTI*DH1s 
DHi «+ O83 
END SCALES 
SUBROUTINE GETNUM? 
BEGIN: 
STREAMCPICBUFFsP2¢]F WT $ 8 THEN WT ELSE 8eP3¢0,P4¢03P5¢0); 
BEGIN 
S]eP1s DIe*Lac P5 3 
P2cIF Sce"0O" THEN 
IF SCZ™ " THEN 
IF SCa"O" THEN BEGIN DSeLIT"O"s SI*S1+413G0 L END 
ELSE JUMP OUT 3 
| DS*CHR } . 
Ls TALLY*TALLY44) # 
P2eTALLYS PieS]T 3. 
S1+LOC PSs DreLOc P3s DS+P2 OCT 3 
STeP1 3 
pI « LOc P43 DI « DI + 7% DS © CHR 
END: 


NBC « P3 DRI « Ps CNT « Ps BUFF ¢ P3 
END GETNUM; 
SUBROUTINE GETSIGNS 


BEGIN} 
STREAMCPISBUFFSP2eCIF WT > 63 THEN 63 FLSE WT) aP3e0sPhe(md)? 
P5¢0)3 
BEGIN 


StePis DreP2 3 
P2eDLe+D1I"83 IF Sc#* " THEN JUMP OUT To Lis 
Sl ¢ SI + 43 TALLY © TALLY + 1233 
P1 « S13 
GQ TO RTNSGN3 


02831400 
02831500 
02831600 
02831700 
02831800 
02831900 
02832000 
02832100 
02832200 
02832300 
02832400 
02832500 
02832600 
02832700 
02832800 
02832900 
02833000 
02833100 
02833200 
02833300 
02833400 
02833500 
02833600 
02833700 
02833800 
02833900 
02834000 
02834100 


02834200 - 


02834300 
02834400 
02834500 
02834600 
02834700 
02834800 
02834900 
02835000 
02835100 
02835200 
02835300 
02835400 
02835500 
02835600 
02835700 
02835800 
02835900 
02836000 
02836100 
02836200 
02836300 
02836310 
02836400 
02836500 
02836600 
02836700 
02836800 
02836900 


a at aa at at ss ts tt tt 


0235:3 
023820 
024030 
0241314 
Q24423 
O24aty 
O2ha%4 
024482 
02450 
024533 
024533 
024610 
024610 
024630 
024739 
O247i9 
024824 
024940 
O249%4 
O250t4 
0254%2 
0254133 
025270 
025270 
025334 
025633 
0258? 4 
026430 
026443 
026210 
026250 
0262010 
026680 
026630 
026682 
0267 %2 
026850 
0269%2 
O27071 


(0270%2 


027140 
Q274%2 
O27ake 
027233 
0273%2 
027333 
027513 
027650 


0276410 


027610 
027982 
0280%4 
028084 
0280%3 
0282%2 
028384 
028312 
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Lis IF SC 2 "0" THEN 

BEGIN 

3: Po « TALLY: 

L2: PSCP1©DT?2 TALLY«P2s PLCIF Scz" " THEN 


JUMP OUTS TALLY*TALLY4#13  STeSt+#123 P2eTALLY)3 


DY « LOc P4s DS « 7 LIT "ONS DS ¢ CHR 
GO TO RTNSGN3 
ENDS 
TF $C ="," THEN GC TO L33 
TALLY © TALLY+4143 
Pa «© TALLY: 
TALLY e112 PSeTALLY 3 


If Sca"=" THEN TALLYe1 ELSE IF Scat+" THEN TALLYeO ELSE 


IF SCR"S" THEN TALLY€O ELSE 
BEGIN TALLY*#O3 PieTALLY3 GO TO RTNSGN ENDS 

P3 ¢ TALLY; 
S$] ¢ SIT #* 13 
GO TO La; 

RTNSGN3 

END; 

NBCeP$ SGNeP CNTe©Ps OTAERRe CCRUFF EP) 20) 3 

END GETSIGN; 


LABEL NCRTN»BLSGN3 
SUBROUTINE NUMCONVERT3 
BEGIN 


DHi « Di «© D2 © EXP «© EXPSGN « FRTOG «03 
WHi © WH2 ¢ #03 


WT © W3 
BLSGN! 
GETSIGN: 
IF DTAERR THEN GO TO NCRTN 3 
WT ¢ WT = CNT3 IF NBC <O % BLANK FIELD 


THEN IF WT $ 0 THEN GO TO NCRTN ELSE GO TO BLSGN3 


IF NBC $ 9 THEN 
BEGIN 
GETNUM$ WH1 « DH4I3 
IF (WT © WT = (D4 © CNT)) S$ © THEN GO TO NCRTN3 
WHILE NBCS9 OR NBCR" * OR NBCerO" OO 
BEGIN 
GETNUM$ SCALES 
IF CWT © WT"CNT) $ © THEN GO To NCRTN3 


END; 
ENO3 
IF NBC = "2." THEN 
BEGIN 
FRTOG « TRUE; 
SKPC3 


IF WT<O THEN GO TO NCRTN 3 ; 
WHILE NBCS9 OR NeCa" " OR NBC=HO" DO 
BEGIN 
GETNUM; SCALE; 
p2 ¢ p2 + CNT; 
IF ( WT # WT = CNT) §$ 0 THEN GO TO NCRTNS 
END; 
END; 
IF NBC = "D" QR NBC = "E" THEN SKPC3 
IF WTS$O THEN BEGIN DTAERR¢TRUEZ GO TO NCRTN ENDO 3 


02837000 
02837100 
02837200 
02837300 
02837310 
02837400 


. 02837500 


02837600 
02837700 
02837800 
02837900 
02838000 
02838010 
02838020 
02838025 
02838100 
02838200 
02838300 
02838400 
02838500 
02838600 
02838700 
02838800 
02838900 
02839000 
02839100 
02839200 
02839300 
02839310 
02839400 
02839405 
02839500 
02839510 
02839600 
02839700 
02839800 
02839900 
02840000 
02840100 
02840200 
02840300 
02840400 
02840500 
02840600 
02840700 
02840800 
02840900 
02840910 
02841000 
02841100 
02841200 
02841300 
02841400 
02841500 
02841600 
02841700 
02841710 


a ss ss ss 5 st ss st 


0283%3 
028431 
O284t4 
O284t2 
028710 
028970 
0290%3 
029480 
029130 
029433 
029920 
029234 
029213 
029433 
029583 
O2946t2 
029683 
029730 
029714 
O297%4 
0297%2 
030022 
030033 
030083 
030130 
030120 
O304%4 
0305!3 
0306%2 
0306%2 


030880 


030920 
031043 
O313%4 
031410 
O314%2 
031633 
0319%2 
032233 
0322!3 
032510 
O327%4 
032733 
032733 
O328%2 
032930 
032943 


~ 033480 


O332%4 
033532 
0335%2 
033810 
033984 
0341802 
034210 
034210 
0345!0 
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IF CNBC="+") OR CNBC#"&") OR CNBC" ™) OR CEXPSGNeCNBCE tm") ) 
THEN SKPC3 
IF WT<O THEN BEGIN DTAERR*TRUE$ GO TO NCRTN END 3 
IF NBC > "9" THEN DTAERR © TRUE 
ELSE 
BEGIN. 
GETNUM3 
EXP © IF EXPSGN THEN €*DH1) ELSE DH13 
IF CWTeWNT*CNT) $ 0 THEN GO TO NCRTNS 
WHILE WT > O OO SKPC3 
END; : 
NCRTNe 
IF WH1 = O THEN IF SGN THEN WH1 © #03 
END NUMCONVERTS 
SUBROUTINE CONVERT 
BEGIN 
WH1.¢ WH2 © O03 WT ¢W3 
GO TO PCCODE,OUP,ADD)3 
GQ TO FMERR# 
GO TO G? GO TO F3 Go TO E3 Go To OCs Go Ta T3 
gO TO Le GO TO A} GO TO Q3 
Os € OCTAL CONVERSION 
IF W>16 THEN SKPeW"WT#16 ELSE SKP¢O 3 
STREAMCPI¢BUFF sP2eOtP3eCWH1) »PAeSKPePSeWTsPOClOWTsP7e0e 
Phe CWTS16)) 3 
BEGIN 
SI¢P1s PL1eTALLY3 TALLYe1 3 
P4CIF Sc=a" * THEN SIe*SI4+t ELSE IF Sca"O" THEN SreSt4+i 
ELSE BEGIN P7CJUMP OUT 2 TO MAST)$3 IF SCate" THEN 
P2¢TALLY ELSE IF Sc#"4" THEN IF Sc#"&" THEN JUMP OUT 
TO MASTS P7e*TALLYS SreSl#1 END) 3 
PBCIF SC>"3" THEN JUMP OUT TO MAST) 3 
DI¢P33 P6CSKIP 3 DB) 3 
GO TO FAST’ MAST# GO TO LASTS FAST? 
PS5SCIF Sc>'0" THEN IF $C<"8" THEN BEGIN SKIP 3 SBR PTe 
TALLY? 3CIF SB THEN DS¢SET ELSE DS*RESETS SKIP SB? END 
ELSE JUMP OUT TO LAST FLSE BEGIN IF SCZ#" “ THEN 
IF Sc#"0" THEN BEGIN P7CJUMP OUT 2 TO LAST)3 
IF Scete" THEN P2eTALLY ELSE IF Sc#"4#" THEN 
IF Sc#"&" THEN JUMP OUT TO LASTS P?7«*TALLY END 3 
SleS]+13. SKIP 3 DB END) 3 
P1¢SI 3 
LAST? 


NO 3 
Senos IF CDTAERRe ( (BUFF eP)20)) THEN GO TO COMM 3 
WIifOJe*IF SGN THEN =WH1 ELSE WHY 3 
GO TO COMMé 
Ai % ALPHA CONVERSION 
IF W > 6 THEN SKP « W = CWT © 633 


WH{ o« " Mee 
STREAMCP 1¢ BUFFS P2eCWH1I»sP3¢SKP»P4EWT + PS*HOLTOG)} 
BEGIN 


S$] « Pl3 SI © Sy + P33 

DI « P23 DI ¢« DI + 23 

PSCPA4C : 

IF SC 2 "A THEN DS © CHR ELSE 

If SC = "#" THEN BEGIN SI © SI #13 DS -« LIT "=" END ELSE 


02841800 
02841900 
02841910 
02842000 
02842100 
02842200 
02842300 
02842400 
02842500 
02842600 
02842700 
02842800 
02842900 
02843000 
02843100 
02843200 
02843300 
02843400 
02843500 
02843600 
02843700 
02843800 
02843900 
02843950 
02844000 
02844050 
02844100 
02844150 
02844200 
02844250 
02844300 
02844350 
02844400 
02844410 
02844450 
02844500 
02844550 
02844600 
02844650 


02844700 


02844750 
02844800 
02844850 
02844900 
02844950 
02844975 
02845000 
02845100 
02845200 
02845300 
02845400 
02845500 
02845600 
02845700 
02845800 
02845900 
02846000 


ae a a st st a st ss st Ht 


O347%2 
035140 
0353!0 
0355%2 
0357%0 
0357%2 
035a#0 
035930 
0364%2 
0363%3 


0366%2— 


0366%2 
036632 
0369%2 
036933 
03700 
0370°0 
037210 
037370 
0373%2 
037630 
0377382 
QO377%2 
038423 
038412 


038582, 


0385%t2 
0386%4 
038834 


039023 


039234 
0393%2 
O395%4 
039632 
039710 
039873 
040180 
O40ate 
0404 82 
04046:0 
O407%4 


0408°0 - 


040851 
o40att 
040882 
O41g't 
044383 
O414ty 
OALary 
O4i7h4 
041840 
042040 
042010 
042083 
042434 
OH22%4 
0423%4 
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IF SC = "K" THEN BEGIN SI «© SI #13 DS © LIT "+" END ELSE 02846100 T 042433 

IF SC * "2" THEN BEGIN SI «© SI #43 DS « LIT "C™" END ELSE 02846200 T O426%1 

IF SC = "C" THEN BEGIN SI © SI #13 OS © LIT %)" END ELSE 02846300 T 042733. 

IF SC = "@" THEN BEGIN SI © SI #13 0S ¢ LIT “""" END ELSE 02846400 T 042934 

DS « CHR5)3 02846500 ft 043033 

JUMP OUT TO x55 02846600 T 0434%4 

0S « P4 CHR; 02846700 T 043910 

xX: 02846800 T 043289 
P1 ¢ SI3 02846900 T 043089 

ENO} 02847000 tT 043083 
BUFF « P3 02847100 T 043310 
W102 « WH43 02847200 7 043342 
GO TO COMM; . 02847300 T O434%4 
% LOGICAL CONVERSION 02847400 T 043610 
STREAMCP1+¢BUFF eP2cO0tP3¢0sP4en); 02847500 T 043610 
BEGIN 02847600 YT 043733 
Sy ¢ Pie P36«Sy3 O2847700 T Q437323 
PacIF SC#" " THEN JUMP OUT 1 TO LL ELSE SI « SI + a 02847800 7 043874 
TALLY © 03 GO TO LLU 02847900 T O440t2 

LL: IF Sc = "T" THEN TALLY © 143 02848000 T 04441 %o 
LLit P2 ¢ TALLYS SI © P34 ST © SI +P43 P1 + SI3 02848100 T 044133 
ENDS 02848200 T 0443!0 
WilO) « P3 02848300 T 044334 
BUFF « P} . ~ 02848400 tT 044323 
DTAERR ¢€ ELMTYP # LoGgv: 02848600 7 O44484 
GO TG cOMM; 02848700 T Q446:0 
% INTEGER CONVERSION 02848800 T 044682 
NUMCONVERTS 02848900 tT O446t2 
IF COTAERR © DTAERR OR Dero OR EXP # 0 02849000 T O448to0 
OR ELMTYP & DBLV OR WH4 > MAX) 02849100 T 044912 

THEN GO TO COMM; 02849200 T 045284 
WLEQ@] « IF SGN THEN #WH1 ELSE wHi3 02849300 T O454t0 
go TO COMM; 02849400 T 0456t2 
% SINGLE PRECISION . 02849500 tT 0458!0 
% £€ FORMAT 02849600 T O45a8t0 
% F FORMAT 02849700 7 045810 
% G@ FORMAT 02849800 T O4S5ato 
NUMCONVERTS 02849900 fT 0458190 
IF (W1f0] © WHL) = 0 THEN GO To COMM} 02850000 T O459t0 
IF €DTAERR © DTAERR OR ELMTYP = LOGV 02850100 T 0460383 
OR ELMTYP & INTEGV OR ELMTYPs OBLV) 02850200 T O462%0 

THEN GO TO COMM; 02850300 T 0465!0 
Ti ¢ CIF EXP # 0 THEN EXP ELSE @PS) 02850400 tT 046633 
“CIF FRTOG THEN D2 ELSE 0)3 02850500 7 046843 

IF Ti<(*68) THEN Tle#68 ELSE If DTAERR¢T1>68 THEN GO TO COMM 3} 02850510 T 047133 
IF D1 GTR 41 THEN IF Ti GTR O THEN 02850530 tT 047613 
DOUBLECWHLsWH2sTENC T1lJsTENL694T1 se TIMESs 3=2WH1s WHO) 02850535 T 047833 
ELSE 02850540 Tf QA8Betoa 
BEGIN 02850545 T 048933 
DOUBLE CWHLsWH2sTENC™TL Ie TENCO9@TLle/stseWHlsWH2) 3 02850550 fT 048334 

IF WH2 > @©0007777777777700 THEN 02850553 T 048710 

IF wHi.03:6] LSS 414 THEN WHY t= WHY + 4 & WHLC2!829733 02850555 tT 048723 
END 02850560 tT 0492%4 
ELSE 02850565 y 0492414 
WH1 © JF T12 0 THEN WHIXTENCT1) 02850600 ~ O492%4 
ELSE WHI/TENC #1193 02850700 tT 049533 

WifO) « IF SGN THEN #WH1 ELSE wH43 02850800 T O498%2 


GO TO COMM; 02850900 T 0504%0 

Rect % DOUBLE PRECISION CONVERSION 02851000 7y 050132 

>» NUMCONVERTS 02851100 7 050482 

IF WH{ = O THEN BEGIN W100] © will] ¢WH13 GO TO COMM END; 02851200 tT 050310 

IF COTAERR « OTAERR OR ELMTYP 4 DBLV )D 02851300 7 05063 

THEN GO TQ COMM} 02851400 T 050980 

Ti ¢ CIF EXP # © THEN EXP ELSE =PS) 02851500 TY 050933 

“CIF FRTOG THEN D2 ELSE 0)3 02851600 T 051433 

IF T1<¢€"68) THEN Ti¢#68 ELSE IF DTAERR*T1>68 THEN GO TO COMM 3 02851610 Tt 0514%3 

IF SGN THEN WH1 «© @ Wh43 02851700 7 051933 

IF Ti > O THEN 02851800 T 052432 
DOUBLECWHIsWH2eTENL TL es TENCO94TL J eXseowti COJewiti)) 02851900 Tt OS522%4 

ELSE 02852000 fr 052680 
DOUBLECWHI*WH2sTENC@TLIsTENCOO*TL ls /seoW1 LO] eW1 Lilie 02852100 T 052633 

COMM? . 02852200 T 053132 

END CONVERT3 02852300 T 053432 
COMMENT & # toe # oe He ee END OF DECLARATIONS * & # # ee ke eo we we fF 02862200 7 053433 
IF EDITCODEs1 AND EDITCQDEs3 THEN 02862210 T 053433 
BEGIN PCMKS) 3 02862220 T 0544:0 

IF EDITCODEZ6 THEN PCFILXsDKADR)3 PCFIsFMTAs*PCeLISx)) $ 02862230 T 054433 

IF EDITCODE=4 THEN PCEOFLsINTCALLCPARL 2 @154)) 02862250 T 054783 
ELSE PCEDITCODE+EQFLe INTCALL(PARLs®160)) 3 02862260 T 055110 
PEXIT) 3 02862270 T 05533. 

END 3 02862300 y 055430 
FILXENOT 4) ¢ EQFL; FILXCNOT 33 * PARL3 02862310 T 055480 

FI® « FILXCNOT 233 % OPEN FILE IF NOT OPEN 02862400 T 055719 
IF FIBE53,.043%2) # (TL ¢ 2 + CEDITCODES5)) THEN 02862500 7 O559%4 
PCMKSeQsTisFILXs le SELECT )3 . 02862600 T 056284 
CKPB3. ARRAYSTUFF 603 02862705 T O564t4 

IF FIB[O] = 0 THEN 02862706 T 056523 

FIBCOJ] «© 1 + CEDITCODE =0 OR EDITCODE 2) 02862708 T 056613 

ELSE 02862710 T 056084 

IF Fraco}] 41 + CEDITCODE =O OR EDITCODE = 2) 02862712 yr O570:2 

THEN PCMKSsFIBLCO],FILXef33215J] 24, FORTERR)} . 02862714 rt 057380. 

IF EOITCODEs1 THEN GO FNOLS GO FMTLST 3 02862800 tT O576t2 
FNOLS 02863900 T O57a!%1 
LSTRNGWLS 02864000 T O57a%1 

GO TO FRMTCD3; 02864100 T O879%4 

FMTLSTS 02882900 T 057933 
LSTRN «© 13 02883000 tT 057983 

CTOG © DONETOG « FALSE} : 02883100 T O580%2 

GETLIST3 02883200 T 058133 

a9 TO FRMTCOs 02883300 T 05830 

MON? 02883400 7 058332 
FRMTCD? 02883500 T 0583!2 

PS « 03 02883600 T 0583%92 

NFCI «© CFIX8) + 23 % FIRST FORMAT CHARACTER 02883700 T O584t4 

IF NFC # "CC" THEN GO TO FMERRS 02883800 T 0586!0 

NFCI ¢« CFIx8) + 23 % FIRST FORMAT CHARACTER 02883900 T 058830 

NF PH FORMATCONTROLZ % ANAYLSIS OF FORMAT STATEMENT 02884000 T 058983 

; IF FMERRTOG THEN GO TO FMERR3 02884100 tT 059180 

FMCYCE IF (DONETOG © ENDLIST) THEN READS; 02884200 T 059230 

IF W + NCR > LCR THEN GO TO FMERR;3 02884300 tT 059510 

NCR © Wo+ NCR} 02884500 T 059613 

CONVERT3 02884600 7 059830 

IF DTAERR THEN GQ TO TYPERR} 02884700 T 059980 

GETLIST; 02884800 T 0600!0 


@®eeoe8eeoeeeee8e@eeeeeee®eeteeeee#eea 


@®eeeeeeeeee%ee#eeeee8ee0e0 80 @ @ e 6 & 


ed 


IF CRPT¢RPT*#1) > O THEN GO TO FMCYC;3 
g0 TQ NFPH3 
FMERRS$ 
POMKSsFIBCOJsFILX, £33315] *0sFORTERR)> 
_TYPERR? 
PCMKSsFIBLO],FILX, 0332715] s2sFORTERRDS 
END FTINT3 


PROCEDURE FTOUTFIXCFILXsDKADDReFIsFMTsLISXsEDITCODEsEOFLsPARL I ZINTOC157 


START OF REL SEGMENT DISK 


VALUE DKADDReFIeLISX*#EDITCODEsEQFLsPARL 3 
ARRAY FMTE*13 NAME FILX3 REAL DKADDRoFIsLISXsEDITCODEsPARL*EOFL 3 
BEGIN 


INTEGER LSTRNS19 E17 5 


REAL LISTYPE=20* ARRAYSTUFFF18s ALGOLWRITE#12»5 SELECT=14>» 
FORTERR=24* CHR» MAXCHRe BSIZEs PRNTRs TYPEs INDX» SIZE» TWOTs 
SGN» BUFF s Tis T22 T3s WHis WHO» WH3» ARYs Ws De Re SAVWSEOFL» 
E1=9» XTRA»r C» FMTWs SAVBUFFs DBLPRECs CODE» Tas T5s SKPSPARL » 
NEEONEWLISTELEMENTs FLG» SCALE» T8s T6=18» SAVDs DECPT=20» Np» 
COMMASs DLRSGNs T21 3 


NAME LISTADOR 3 
ARRAY TEN=22C*]» ARLSLISTADDRE*], TPARS23C*]» FRBS3Le]s FIBC*) 3 


LABEL ALISTs GETNEXTPHRASEs REPEATs TT» XX» SS» PP» AAs Als OO HHe 
CC» ERRORs GGr Lhs FFs EEs Ils DODe TESTs TESTis AWAYs OVRELW> 
BUMPWH3s MAXTs LOG8s THREHs THREL»s HLF» CONVERTs D1» OVRFLW1> 
FIVPTs, JJ» RAPUPs, Xt» OVRFLW2, ONE» OUTSUBs COs NLEL» FO94> 
FO9Ss VERROR» HVs CD1e CMSK» REPEATi»s IEDITs TEN11» ONDGs CKHes 
STNROs SE TWHLFs DRESTs DRESTi» HLF 1s FIVPT1is SQNs OVRFLW3> 
TeEST2. REPEAT2@s, STNRD1* XPIVs GOTEs NK 3 


SWITCH PHRASE SSS *HHePPeXXeTT AAs OOs _Ladde lle GGeFFeoEEsDDeCc 3 


DEFINE DONE = LSTRNSC™1) #, 
REEL = 3 #, | 
LOGICAL = 4 # 
INTEGR = 1 #» 
DBLPRECSN = 5 #,» 
COMPLEX = 6 #» 
MAXCODE = 15 #, | 7 
VERRC(VERR1) ® BEGIN PCVERR1)3 GO VERROR END #» 
MAYBE (MAYBE L»>MAYBE2»MAYBE3) = CI©CI#MAYBE13 GO TO MAYBE2 3 
DS*LIT MAYBE33 MAYBE2: #, 
TWOD = LISTYPE,C38!1) ws 


INDX¥F = (18815) #> 
TYPEF = (4424) #, 
SIZEF = (£33715) # 3 


SUBROUTINE BLANKIT 3 


060410 


02884900 T 
02885000 T 0603%4 
02885100 T 060313 
02885110 T 060333 
02685400 7 060533 
02885500 T 060533 
02885800 7 060783 

SIZE= 0608 WORDS 
Seve sem esnen tye emmvenipeeeuna dine nine arn A CONOR CCC 
02886000 T . 000010 
ADDRESS = 00350 
02886040 T 0000:0 
02886080 T 0000!0 
02886120 T 0000%0 
02886160 T 000010 
02886200 tT O000t0 
02886240 T 000030 
02886280 T 9000!0 
02886320 T 0a000t0 
02886360 7 0000!0 
02886400 T 0000#0 
02886440 Tt 000010 
02886480 T 000010 
02886520 T 000010 
02886560 T 00000 
02886600 T 0000%0 
02886640 T 000080 
02886680 T 0000%0 
02886720 T 0000t0 
02886760 T 000080 
02886800 7 0000!0 
02886840 T 000030 
02886845 T 000010 
02886850 T 0000!0 
02886855 T 000030 
02886880 T 000030 
02886920 T 000080 
02886960 T 000010 
02887000 T 00000 
02887040 7 0000!0 
02887080 T O000!0 
02887120 T 000010 
02887160 T 000010 
02887200 T 000010 
02887210 T 0000!0 
02887215 T O000!0 
02887240 tT 0000!0 
02887280 T 000010 
02887320 T 000010 
02887360 T 0000!0 
02887400 T 0000t0 
02887440 T 0000t0 
02887480 T 0000:0 
02887482 T 000010 


ee ee ee ee ee er ee ee ee ee ee | 


siesta fee 


GIN 

REAMCA*BSIZE™1sB¢P (OUP) [C3686] sT21*BUFF) 3 
BEGIN 
SleT213 DS*wOS3 SI©BUFFS DS*A WDS$ BCDS*32wWOSs DS*"32WDS) 5; 
END 3 

END OF BLANKIT 3 


SUBROUTINE QUTPUT 3 
BEGIN 
IF PRNTR THEN 
BEGIN 
STREAMCQ*OSSAVBUFF) 3 
BEGIN DI©LOC Q3 SI*SAVBUFFS DI*DI+7% DS*CHR END 3 
TLCIF CT4eP)="+" THEN O ELSE IF T1>9 THEN 16 
ELSE IF Ti=#O THEN 32 ELSE T13 
IF NOT C THEN FIBCI7)]«*PCHUPI+BSIZE : 
PCMKSeT1,C4282]5T1 AND 15,CeBSIZESFILX»ALGOLWRITE) 3 
FIBC6)]*+*P (DUP =CCCeOeT1) 3 
POMKS#FLGeDKADDRe OF (™1 OF ILX*ALGOLWRITESDEL) 3 
STREAMCQ*BUFFeSAVBUFF,BSIZEsBSZ*eP COUP =LeT2ieSeuFILx) 3 
BEGIN 
Sleg3; SleSl+13 OS*BSIZE WDS$ DleQs Sl*T2l13 OS*OCHR 3 
Sl#Q3 Sl*ST+13 DS*BS7 WOS 3 
END 3 
FIBLI7le*PCDUP)*BSIZE 3 
END 
ELSE REGIN 
POMKSsFLGsDKADDRe Oe BSIZEsFILX*ALGOLWRITE) 3 
IF LSTRN#C"41) THEN 
BEGIN 
PCMKSsFLGsDKADORs Os CeldsFILXsALGOLWRITE*DEL) 3 
BUFF*SAVBUFFeC*#FILX),£€3321573 BLANKIT 3 
END 3 
; END 3 
CHRO } 
END OF QUTPUT 3 


SUBROUTINE SKIP 3 
IF (TL]«PCXCH)) GEQ W THEN TieW 
ELSE BEGIN 
STREAMCT 212 QeWRTLeTePC(DUP),C3I68O)]sBUFF) 3 
BEGIN 
SleT213 DS*Q CHR TCSIeT213 DSe*32CHRS OS*32CHR) 3 
T214¢D1I 3 
END 3 
BUFFeP 3 
END OF SKIP 3 


REAL SUBROUTINE NXTELM 3 
BEGIN 
PCIF TWOT THEN PC*LARICINOXs(33#7]])]*INDX AND 255%COC) 
ELSE ARICINDXI) 3 
INDX¢TNOX*#43 NXTELMeP 3 
END OF NXTELM $ 


SUBROUTINE GETNEXTLISTELEMENT 3 
BEGIN 


02887484 
02887486 
02887488 
02887490 
02887492 
02887496 
02887498 
02887520 
02887560 
02887600 


02887640 . 


02887680 
02887720 
02887760 
02887800 
02887840 
02887680 
02887920 
02888160 
02888200 
02888240 
02888280 
02888320 
02888360 
02888400 
02888440 
02888480 
02888520 
02888560 
02888600 
02888640 
02888680 
02888720 
02888760 
02888800 
02888840 
02888880 
02888920 
02888960 


02889000 © 
02889040 © 


02889080 
92889120 
92889140 
02889160 
02889200 
92889240 
02889280 
02889320 
02889360 
02889400 
02889440 
02889480 


02889520 © 


02889560 
02889600 
02889640 


tam ma et a st tt tt te 


000180 
000140 
0003%2 
0003!0 
00060 
0006%,4 
0006%2 
000682 
0Q07%0 
00070 
OOO7EL 
000733 
000930 
001081 
OOL3ty 
0016%2 
0020%4 
0023!0 
002640 
O028%4 
0034%4 
O03124 
003380 


003480. 


O03at1 
003684 
OO36t1 
0036:3 
0038%9 
Q039%2 
0040%0 
OOAZs4 
004520 
004530 
004520 
0045323 
00460 
004610 
004610 
O04723 
004930 
0051423 
005433 
005430 


0054%1. 


0054teo 
005510 
o0ss%y 
005534 
005610 
005680 
005930 
006040 
006442 
0061423 
0061433 
006910 


@® @eeeeeeee®eeeee#e#eesteee e#* @ e& 


e 


weet hit bewert 


IF NEEDNEWLISTELEMENT THEN 
BEGIN 
IF ARY THEN 
BEGIN 
ALIST: a a IF DBLPREC THEN WH2eNXTELMsS ARY*INDX<SIZE3 
END 
ELSE IF TYPESCOMPLEX THEN 
BEGIN TYPE*REEL$ PCLISTADDRELI]) END 
ELSE BEGIN 
PCARRAYSTUFF*O)3 LISTADDReELISX] 3 
DBLPRECe(TYPE*LISTYPE,TYPEF)S0BLPRECSN 3 
IF ARY@*ARRAYSTUFF #0 THEN 
BEGIN 
IF TYPESCOMPLEX THEN TYPE*REEL 3$ 
SIZEeCINOXeARRAYSTUFF, INDXF + 
ARRAYSTUFF,SIZEF 3 
PCLISTADDReMEMELISTADDR.(18245]]) 3 
TWOTENOT PCLODsTOP)3 PCDELD 3 
GQ ALIST 3 
END 3 
PCDELsLISTADDRIO]) 3 
IF DBLPREC THEN WH2eLISTADOR(1] 3 
END 3 
TSeWHLEP 3 
eee fF 
TF CMEECMERLIETELEMENTEL FECL ICOLE Ch COME TREN 
AWAY? BEGIN OUTPUTS PCXIT) END 3 
END OF GETNEXTLISTELEMENT 3 


RLE : SUBROUTINE NLE 3 
BEGIN PCXCH)$ WH2¢03 GETNEXTLISTELEMENT 3 
IF WH1+4>P(FO94) THEN 
BEGIN IF Ti THEN VERRCP+1093 PCDEL»FO94) END 
ELSE IF PCDELs¢*PCFO94))+DUP)<WHL THEN PCDEL>WH1) 3 
PCXCH) 3 7 
END OF NLE 3 


SUBROUTINE HANDLEVARIABLES 3 
BEGIN Tiel 3 
IF RSPCFO95) THEN 
BEGIN PCO)? NLES TlePC.sRe TSN)>0 3 
IF CODE#29 THEN 
BEGIN PCFI+SAVW) 3 
TE R20 THEN PCCFMTCP1]s0UPs+LODsP&RE6836212)5XCH) 
ELSE PC.FI) 3 
PCSTN) 3 
PCDEL*DEL)3 GO GETNEXTPHRASE 3 
END 3 
END 3 
IF T4eCODE=30 THEN 
BEGIN P(2)3 NLES PCND*ISN) 3 
STREAMCPLEPSP26P (CD) sP3«P(CD1)) 3 
BEGIN SIleLOC P13 SleSI+75 DIeLOc P23 DI©DI+1 3 
32C1F SCe0C THEN JUMP OUTS TALLY*TALLY+13 STeSI“4) 3 
Ple TALLY } 
END 3 
IF CND ANO 63)4ND THEN PCpEL»32) 3 


OUTSUB: 


02889680 
02889720 
02889760 


02889800 


02889840 
02889880 
02889920 
02889960 
02890000 
02890040 
02890080 
02890120 
02890160 


02890200. 


02890240 
02890280 
02890320 
02890360 


02890400 


02890480 
02890520 
02890560 
02890600 
02890640 
02890680 
Ceesc72c 
02890725 


02890730 
02890735 


02890740 
02890745 
02890750 
02890755 
02890760 
02890765 
02890770 
02890775 
02890780 
02890785 
02890790 
02890795 
02890800 
02890805 
02890810 
02890815 
02890820 
02890825 
02890830 
02890835 
02890840 
02890845 
02890850 
02890855 
02890860 
02890865 
02890870 
02890875 


a a ss a ss a tt a st a a 


0062%0 
O062%4 
006233 


006380. 


006372 
006723 
006883 
007080 
0072%4 
007283 
007434 
007682 
007733 
007841 
O08O%4 
O08 {ie 
0083190 
008510 


008642 


008780 
008710 
0087%2 
008933 
008983 
0090% 
cece ss 


0093%4 


0095384 
009582 
0098%2 
009610 
0098t0 
009984 
0102:0 
010520 
010584 
0105%2 
Q105%2 
0106!0 
010633 
0107%2 
OL1iote 
Ollie 
O112%2 
011583 
0116%2 
011673 
0411723 
0117%3 
011733 
011980 
0121%2 
O0122t3 
012383 
0125383 
01260 
0126%4 


NLEL$ 


VERROR?! 
FO9MES8 
FooSis: 


Coess 
CDAtes 


REAL 


BUMPWH35 


IF (CODE*+P+3)>MAXCODE AND Ti THEN VERRC2) 3 
TieCQDE>4 AND T1 3 
END + 
TeeTl 3 
IF PCCODEZ11 AND CODES14sFO95)sSAVW THEN 
BEGIN P¢,SAVW24) 3 
NUE PCXCHs 1SD)3 TlePCDUP) AND T2¢T2 AND SAVW>O 3 


ND 3 
IF SAuDePCFOOS) THEN BEGIN PC,SAVD*26)5 GO NLEL END 3 
IF CODES4 THEN 
BEGIN IF TA THEN SAVWeR; 
FMTWeFMTWA CPC DUP). C412434+¢CSAVW<099041347931)3 GO RV 3 
END 3 
IF NOT T2 THEN GO GUTSUBS IF cODE=5 THEN HV? Red 3 
IF PCDUP) AND SAVD<O THEN VERR¢16) 3 
IF T4 THEN IF SAVWsPCFO94) THEN BEGIN IF CODE#9 THEN VERRC6JEND 
ELSE IF PCDUP) AND SAVD=PCFOQ94) THEN 
BEGIN PC7) 3 
T4eP3 PCMKSsCODE sR» SAVWsSAVDs TOs WH1sWH2eFMTWe 
CeS)eFORTERR) 3 


4094 3 
4095 3 
@0047676321464341 5 4 OPXTAOLA 
@31427262524230000 3; % IGFEDCOO 


END 3 
IF NOT P THEN SAVDeO 3 
END OF HANOLEVARTABLES 4 


SUBROUTINE SETUP 3. 
BEGIN ~ 
PCXCHsDUP) 3 
IF DBLPREC THEN 
BEGIN 
IF P>ND THEN BEGIN T6¢P"Np3 PCND) END 3 
IF CTS¢(T4&eP = T3¢ND169<0 THEN 
BEGIN PCWH3/TENDL*T5],eWH32ISD)3 T3¢T4 END 
FLSE IF T5 LSS 8 THEN 
BEGIN 
IF PCWHA/TENC8@T2¢T5 15, WH2eTSN)STENCT2] THEN 
WH3eWH3 +1 3 
END 
ELSE IF PCWHI/TEND16*T5]5 WHis ISNISTENCTI¢T5*T2¢8] 
THEN IF (WH2eWH241)57T8 THEN GO BUMPWH3 3 
END 
ELSE REGIN 
TF (€T3¢P)711 THEN T6*T3@T3¢(PCWHLs TENCABSCE)J-IF £20 
THEN P(/) ELSE PCX)ISPCFIVPT) 411 3 
IF COOE={2 THEN PCSCALEs+) 3 
PCPEL*T6esWH3sXCHsTENCABS(P COUP) )I]s IF PCXCH)<O THEN P(/) 
ELSE PCx)s,WH3e2ISD) 3 
END 3 
ELePCTENCT3IISWH32DUP)+E13 SETUPEP 3 
END OF SETUP 3 


RRR RR eEEED CODE STARTS HERE Sf ak eek eke eS 


FIBeFILXCNOT 235 PCTENLB8)s,T8sISD) 3 


92890880 
02890885 
02890890 
02890895 
02890900 
02890905 
02890910 
02890915 
02890920 
02890925 
02890930 


02890935 — 


02890940 
02890945 
02890950 
02890955 
92890960 
02890965 
92890970 


02890975 © 


02890980 
92890985 
02890990 
02890995 
02891000 
02891005 
02891010 
02891015 
02891020 
02891025 
02891030 
02891035 
02891040 
02891080 
02891120 
02891160 
02894200 


02891240 


02891280 
02891320 
02891360 


02891400 © 


02891440 
02891480 
02891520 
028914560 
02891600 
02891640 
02891680 
02891720 
02891760 
02891800 
02891840 
02891880 
02891920 
02891960 
02892000 


a a a tt st st st tt 


01282 
013423 
04133%2 
0133%2 
OL3asy 
013683 
0137%3 
O1daty 
0142%4 
O144to 
O145%¢ 
OL147%4 
0151410 
0151%0 
015333 
0156%4 
016084 
016220 
016233 
0165%2 
016634 
0168!0 


016910. 


O170%0 
017410 
0177430 
0172%2 
017233 
0472%3 
017380 
017340 
0173%2 
017313 
O17 434 
017682 
0179%2 
O1Bate 
018383 


018434. 


018732 
018944 
O189%4 
0193%2 
019633 
019633 
OL97%4 
020084 
020412 
O20654 
0210%0 
021434 
O211%4 
021323 
O214t0 
021420 
O214t0 
O214%0 


eeeveeveeveeeveeeeeeeeenn5eee 


IF FLG@DKADDR<O THEN DKADDReO 3 
IF PEFIBE5],0UP)«f4381) THEN PCMKSsOsOsFILXoteSELECT) 3 
CeCP AND 9640 3 
MAXCHR (BSI ZE*PCMKS*FLG»DKADDRe Oo (4) oF ILX*ALGOLWRITE) ) x84 
PRNTRECETIC¢FIB(4],0884))=1 OR Ti#12 OR T1i=7) AND 
FPBCFIB(4],C13911343],043251<20 3 
IF NOTCNOT(NEEDNEWLISTELEMENT¢EDITCODE=3) OR FMTCFIJ) THEN GO ERRORS 
IF NOT TPAR,C14%1] THEN 
BEGIN 
EePCLeLEJsCFXsSFBI&29C88 38210) 3 
STREAMCACP(21,0E1))3 BEGIN DSesLIT" "3 SIeAs DS*7WDS END 3 
PCTPARs 19254 COMs DEL» DEL) Eeo 3 
END 3 
T2LePCCTPARE211]) INX O 3 
IF PRNTR THEN 
BEGIN | 
IF BSIZE>16 THEN BEGIN BSIZE«175 MAXCHRe133 END 3 
IF € THEN BEGIN BUFF*TPAR INX 13 TPARLOJ™™ "3 BLANKIT END 3 
PCPCCMSK) OR TPAR) 3 
END 
ELSE PCPC#FILX)+(339153) 3 
BUFF«SAVBUFFeP 3 
IF NOT PRNTR THEN BLANKIT 3 
IF FIBLO]=0 THEN FIBLOJ+1 3 
IF CLSTRNCL)4FIBLO} AND Tis2 THEN 
BEGIN T3e4 3 


ERROR? POMKSsFIBC7I],FILX,C33%1 5) sT3-FORTERR) 3 


END 3 
P(O) 3 


GETNEXTPHRASE$ 


RePCFMTCFIeFI+11]°DUP),C6212)4. IF (CCODE*PCOUP),£1°5)])s2 THEN GO HH 3 
SAVWEP(DUP), [18212173 SAVDeCFMTWePCDUP)).C30%12) 3 
IF ¢(XTRA+PCDUP) AND 63),044321220 THEN P(020) 
ELSE PCPCCDePCDUP) AND 15)212,DUP) OR DF8sPCXCH) OR O=4) 3 
DLRSGN*PS COMMASeP 3; 
IF Pel422117 THEN IF CFMTW AND 3)=20 THEN HANDLEVARIABLES 3 
IF cCODEsO THEN 
BEGIN 
IF SAVDZ40 THEN 
BEGIN GETNEXTLISTELEMENTS OUTPUTS NEF DNEWLISTELEMENT¢QEND3 
IF PCNUP) »LI@tiS34FI THEN PCR&FIL18%338153) 3 
IF PCCNQT O2+XCHe INX*DUP).0C33215320 THEN PCDELIELSE FIeFI*SAVW; 
GO GETNEXTPHRASE 3 


FIVPT#?: 5,49755813885 3 


END 3 
IF cODEs5 THEN CHReReo 5 


REPEATS 


IF CODE>3 THEN 


REPEATL® GETNEXTLISTELEMENT 3 
REPEAT2: 


IF CCHReCWeSAVW)+CHRIDMAXCHR THEN IF COQODE#3 AND CODE #9 THEN GO AWAYS 
IF cODE29 THEN IF cODEs14 THEN 
BEGIN 
SGNEWHLeC1isl)s DECPT*CODE>10 3 
IF CODE<13 THEN 
IF ABSCWHI)<PCTENI1L) ANDO NOT CODE THEN 
IF W<64 AND NOTCCOMMAS OR DLRSGN OR DBLPREC) THEN 


02892040 
02892080 
02892120 
02892160 
02892200 
02892205 
02892240 
02892250 


02892255 


02892260 
02892265 
02892270 
02892275 
02892276 
02892280 
02892320 
02892360 
02892440 
02892445 
02892480 
02892520 
02892560 
02892565 
02892600 
02892640 
02892680 
02892720 
02892760 
02892800 
02892840 


02892880 © 


02892885 
02892890 
02892895 
02892900 
02892905 
02892920 
02892960 
02893000 
02893005 
02893040 


02893080 © 


02893120 
02893160 
02893200 
02893240 
02893320 
02893360 
02893365 


02893370 


02893375 
02893380 
02893385 
02893390 
02893395 
02893400 
02893405 


ts A st AH A A ts 


02262 
022980 


O232%1 
023333 
023613 
024083 
024510 
024782 
024940 
024982 
025210 
025510 
025732 
0257%2 
0259%0 
O259% 4 


025983 


0262%2 
026730 
0268!0 
026810 
026932 
0270%2 
027340 
027523 
O27BFY 
0279139 
028482 
028142 
028443 
026423 
0286! 1 
028933 
029320 
029743 
029823 
030310 
0303%3 
03044 
030530 
030a!3 
O3117%2 
031541 
0316%3 
031820 
031870 
0320!2 
O0320%2 
O0324%t 
032340 
032320 
032732 
0330!1 
033083 
033334 
0334120 
O336%4 


CK: 


CMSKi3% @700000 3 
HLFAtts 0,5 3 
TENL122: 99999999999.0 3 


ONOG3 


DRESTS 


DREST(1: 


BEGIN 
IF NOT DECPT THEN 
BEGIN 
IF PCEL“WeABSCWH1)» eWH2se ISN) >9 
THEN GO IEDIT 3 
IF PCSGN+1,%.DUP)20 THEN GO ONDG 3 
GO OvReLw. 3 
END 3 
IF (TLeii"DeSAVDI<0O THEN GO STNRDI + 
IF CELeW"N"=1)<0 THEN GO OVRELW 3 
PCT6¢0)s IF WH120 THEN BEGIN WH2<04 GO CKH END; 
PCTENDDI] *DUP*ABSCWHI)) 3 
IF SCALEZO THEN 
BEGIN 
IF PCTENCABSCSCALE) Js 1F SCALE20 THEN P(x) 
ELSE PC/)enUP)2PCTEN11) THEN GO STNRO 3 
PCAWHISSTN) 3 
END 3 
IF PCDUP*HLF Lets eWH2eTSNems xen TSe TSNIEP THEN 
BEGIN T5¢03 WH2eWH2+1 END 3 
IF T5#0 THEN 
BEGIN PCDELs10) 3 
IF D>8 THEN 
BEGIN PCDELs5) 3 
T2¢T5 DIV T8s OeO7B F 


END 3 
END 3 
IF WH2<19 THEN 
BEGIN 
IF PCE1"SGn*"1sDUP)<0 THEN 
BEGIN 
IF WH240 THEN GO OVRFLW2 3 
PCDEL) 3 
IF €4=0 THEN 
BEGIN 
IF SGN THEN GO OVRFLWL 
ELSE GO OREST1 3 
END 3 
P(SGN+0)3 WHoette 53 
END 3 
STREAMCS@¢P3T21*WH2sSGNseBUFF) 3 
BEGIN 


S1*T213 OS¢S CHR MAYBECSGNeL ist") 3 
Sie*LOc SGN3 SreSit"13 DS«CHR; Sepl 3 
END 3 
IF NOT DECPT THEN GO TEST 3 
BUFFeP3 PCWHE40) 3 
IF CE*P)>Ty, THEN 
TOE" TIsCABSCWHIISTENCERLIXPCFIVPTI)) 3 
STREAM(QeP SDs T2eTSsT6se BUFF) § 
BEGIN 
OSeLITM™ eS CleCleQs ST#LOcC TSsSleS1423 
ONS+D cHRs GO L23 SIeldc T2s OSD DEC 3 
DS+8DECs GO L23 SI*LOC T5s DSeD DEC 3 


02893410 
02893415 
02893420 
02893425 
02893430 
02893435 
02893440 
02893445 
02893450 
02893455 
02893460 
02893465 
02893470 
02893475 
02893480 
02893485 
02893490 
02893495 
02893500 
02893505 
02893510 
02893515 


02893520 


02893525 
02893530 
02893535 
02893540 
02893545 
02893550 
02893555 
02893560 
02893565 
02893570 
02893575 
02893580 
02893585 


02893590 


02893595 
02893600 
02893605 
02893610 
02893615 


02893620. 


02893625 
02893630 
02893635 
02893640 
02893645 
02893650 
02893655 
02893660 
02893665 
02893670 
02893675 
02893680 
02893685 
02893690 


AA HAMA HHH st Ht A ts a ta Ht Tt tt st 


O339%]4 
0339:3 
O34Oty 
0340383 
03429%2 
034342 
034973 
O346%4 
O346%4 
034940 


035433 


035510 
0356314 


035730 


0357:2 
0359383 
036433 
0362%4 
0362%4 
036433 
0367%4 
0368%0 
036910 
0369173 
037033 
0373:4 
037384 
037384 
037440 
O374ai2 
037612 
0377%0 
0378314 
037832 
037934 
G37913 
038020 
0384990 
038210 
038330 
0384!0 
038420 


03852 


038582 
0387!4 
O3B7t4 
0389%4 
039014 
0390%2 
039454 
O39ate2 
0393!2 
0397283 
Q03999%3 
039933 
040441 
040at3 


@ 


IEDIT! 


SQN4 


Lot QeDT 3 
TOCOTeDIFTOSTOCOSeLIT"O")S JUMP OUT); 
END 3 

GQ TEST 3} 

END 3 

IF PCE1*SGN»DUP)<9 THEN 

BEGIN 

STREAMCE Le PeWH2eSGNI BUFF) + 
BEGIN SI*LOC WH23 CI©CI+SGN3 GO Li 3 
DSeLIT"O"s DSeE, DECS E1eDIs De BUFF 
IF TOGGLE THEN TALLYe1s OS¢8 FILL 3 
DleDI=13 DOSeL IT; GO Las Lit 
DS¢*Et DECs IF TOGGLE THEN TALLYel 3 
El*DI3 DI©BUFF3 DS*SFILL? 12:2 WH2eDI 3 
SGNeTALLY 3 
END 3 

IF. P THEN GO SQN ELSE GO OVRFLW3 3 

ENQ 3 

If WH2<T8 THEN 

BEGIN 

PCOEL) 3 

STREAMCWH2,Se¢F1"*8i:T212SGNeBUFF) 3 
BEGIN 
Si*«T213 DS¢S CHR SeD13 SI*Loc wHe 3 
DS*S8DEC} WH2eDI3 DI*«Ss OS*BFILLS SeoT; 
CI©CI+SGN3 GO LAs Ole Dlels OSeLITt=* 3 


‘we 


Lis 
END 3 
GO SQN 3 
ENC 3 


EteP 3 
STREAMCWHI#WH2 DIV T8eWH2eT212SeIF E1216 THEN PC 
£11628) ELSE PCOsEL@8)*E1ePsSGNeBUFF) 3 

BEGIN 
SIle*T213 DS¢S CHR} DS*SGN CHR} SeoOr 3 
ST+LOC WH1; DS*E1 DEC; IF TOGGLE THEN 
TALLY©13 OS*8DECS WHieDIs T2L*TALLYs Dles 3 
DS*8FILL3 WH2eOIs ClecI+SGN3 GO Li 3 
DI¢DI"13 OSeLITVRts Ls 
END 3° 

IF NOT P THEN GO QVRFLW3 3 

IF NOT CECPT THEN 

BEGIN PCDEL*XCHeDEL)3 GO TEST END 3 

E1l¢P3 BUFFeP 3 

IF W<13 THEN GO DREST1 3 

PCORPCCI+BUFF) INX CNOT £199043846:2) 

+BUFF,C3083]"641,£3023)) 3 
GO DREST 3 


FIVPT1!2%5,49755813685 3 


STNRD? 


STNRD 1 


EL*sDELeDELeDEL) 3 
4 


DeSAVD 3 
PCXPIVeWH1s0) 3 
IF NOT DBLPREC THEN 
BEGIN 
IF P THEN GO GOTE 3 
PCTENCABSCE*(P&CWHICABSCWH1) MOD PCMAXI)D)(933%618 


02893695 
02893700 
02893705 
02893710 
02893715 
02893720 
02893725 
02893730 
02893735 
02893740 
02893745 
02893750 
02893755 
02893760 
02893765 
02893770 
02893775 
02893780 
02893785 
02893790 
02893795 
02893800 
02893805 
02893810 
02893815 
02893820 
02893825 
02893830 
02893835 
02893840 
02893845 


02893850 


02893855 
02893860 
02893865 
02893870 
02893875 
02893880 
02893885 
02893890 
02893895 
02893900 
02893905 
02893910 
02893915 
02893920 
02893925 
02893930 
02893935 
02893940 
02893945 
02893950 
02893955 
02893960 
02893965 
02893970 
02893975 
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040410 
0404s) 


O4O7t4 
040782 
040810 
0408:0 
0409082 
041040 
O41i.te 
O412%2 
041440 
0414323 
041533 
O414623 
041733 
041820 
Od1Bit 
O41984 
O449%4 
042040 
O420%2 
042033 
0423%4 
0423814 
042412 
042533 
O427it 
O427%4 
O427t2 
0428:0 
OdeRto 
0428%2 
O434%2 
043433 
043423 
043634 
O437%14 
O43a%2 


043983 


0440!%2 
044023 
O444%14 
044473 
044382 
O44atea 
044533 
044719 
O450%4 
0450!3 
045250 
045340 
045310 
045323 
045483 
045544 
045533 
O454%2 


8 iS NAM fan 4 ett ia) een _ Tianwe Soot 22 2 ee eee eee! ss 


GOTE: 


1£132 LFIIXPCLOGB))JeWH1) # 
(xe 


fd 


ae 
= 
ie a 


IF E<0 THEN " 
IF P(>) TREN 
BEGIN PCE*1) 3 
Eep 3 
END 3 
TF cOOE=13 THEN 
IF NOT CWHL40 AND COLRSGN OR 0716 OR O+S5CALE>11)) 
THEN GO SE 3 
NDeles WH3eWHL 3 
END 
IF P AND WH2=0 THEN BEGIN WH3CE*P; NDe\24 END ELSE 
BEGIN 
PCWHI©ABSCWHI)) 3 
IF CP AND PCNK)250 THEN WH2ePCOSONESWH2eWHL es DL Ms WH1iee) § 
IF CE CPRCWH3eWHLICOS 3267] aWHIE Li 2t:124+PCTWHLF DD xXPCLOG8))<0 
THEN PCOsONESTENLOOME JV *TENLVE J 20L0) 
FLSE PCTENLE+69 7s TENLED) 3 
TieP3 IF CP>wH2 AND TleWH1) OR Ti>wH1 THEN EeEw, 3 
PCWH2sWHIsTENLO9+ABSCE DJs TENLABSCE )JsIF OF€ THEN 
PCDLM) ELSE PCDLO)) 3 
Ti*Ps T3eP3 Peed) 3 
IF TIZPCTHREH) THEN PCTI>PCTHREH) OR T3>PCTHREL Do): 3 
NOeP 3 
IF NOZZO4E THEN PCWH2,WHI,TENCND +69) TENCNDJ] DL Me 
TENCO6B™EI,TENC™E*1I20LM) 
ELSE PCWH2sWHI es TENE CTI©ABSCND@E@E) 469] ¢TENCTII 2 IF NOSE 
THEN PCDLD) ELSE PeDLM)) 3 
WHieP 3 
PCT3¢PeWH1s TO*¢TENCESI,TAETENLI 6] sDLDOsHL Foams WH3eTS0eDEL» 
T32WHLsOeWH3eT6sT4eDL Me pls) 3 
WHLeP 3 
PCT3¢PeWH1 Or TAs OL Oe HLF o™> eWH2eISDeDEL es T3eWHl 
OeWHAs Oe TBsDLMsDLSs WHI,ISOseDEL) 3 
END 3 
#(T1i¢eT2eT3e¢T6e0 eWwH3 THEN PCC#ND)) 
BEGIN FPCE+ios IF CCDE=12 THEN PCSCALEs+) END 3 


. 
s 


GQ PHRASECCODE*1] 3 


ELSE 
IF. T4 
ELSE 
E1eP 
END 3 
HLF ess 0.5 3 
MAXT38%8- @0777 
ONE S33 1.0 3 
XPyyeit? @4430 
TWHLF is: 12,5 
NKigs @0007 
THREH? 23 @1453 
THREL? 22 @0003 
LOGS? 3 0,993 


T7777TTUT7TT7TT 3 
000000000000 ; 


3 
000000000000 
013331500045 
112121167260 
08998709 3 


twee We wo 


SE: IF PCWeD=S5=SGN»OUP)<0 THEN GO OVRFLWi 3 
IF PCDUP)>63 THEN BEGIN PCWeXCHsSUB,634+)3 SKIPS PC63) END 3 
IF WH1is0 THEN 


BEGIN 


STREA 


MCSKPEPST2lsSGNeDeDe3-D1ePC DUP). £3686),/BUFF) 3 

BEGIN 

SI*#T213 OSeSKP CHR MAYBECSGNoL 1. t=")3 DS*2LIT", o”" 3 
STteT213 DS+D CHRS DiCSTeT213 DS+32CHRI DS¢32CHR)} SKP «DI 


+ 


02893980 
02893985 


02893990 
02893995 
02894000 
02894005 
02894010 
02894015 
02894020 
02894025 
02894030 
02894035 
02894040 
02894045 
02894050 
02894055 
02894080 
02894120 
02894160 
02894200 
02894240 
02894280 
02894320 
02894360 
02894400 
02894410 
02894425 
02894440 
02894480 
02894520 
02894560 
02894600 
02894640 
02894680 
02894720 
02894760 
02894800 
02894840 
02894880 


02894960 © 


02894965 
02894967 
02895000 
02895040 
02895045 
02895050 
02895055 
02895060 
02895065 
02895070 
02895075 
02895080 
02895085 
02895090 
02895095 
02895100 
02895105 
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045823 
046930 


046440 
O46434 
046582 
046610 
046620 
046633 
047023 


047432. 


047310 
047910 
O47 633 
OG7T7 24 
O47 R44 
048220 
046630 
048922 
0491%2 
O4964%4 
04990382 
050180 
0502114 
0505%t2 
050640 
051040 
O542!2 
051740 
051940 
OS4gre 
052323 
052533 
OS2684 
0529132 
053423 
0531%3 


053640 


053940 
0539%2 
0539!%2 
O548t2 
0550%0 
055120 
055240 
055340 
055410 
0555 $0 
0556°0 
0557!0 
055820 
056420 
O565%4 
056640 
0566!2 
0569%2 
0569%2 
057220 


@®ee%eeeereeseee#s#se##eee%8 8@ @ @ | e* @ @ @ 6 


TT: 


XX 8 
Xt? 
$$: 
cc3 
AAt 
AL? 


Lt 
PPS 
008 


HH’ 


GG3 


END 3 
GO TEST 3 
END 3 
NOCE 3 


IF SCALE¥O THEN 
IF SCALE<O THEN 
BEGIN IF PC1*SCALE*DUP2I>0 THEN GO OVRFLW2 END 
ELSE BEGIN 
TF PCSCALEs=s,DUP)<O THEN GO OVRFLW1 3 
PCSKP¢P)3 DeD+SCALES ECE"SCALEs PCL) & 


END 
ELSE BEGIN IF D#0 THEN GO OVRFLW1is PC1) END 3 
T3¢P 3 
IF PCWHLs TENCABSCPCCEL*D*T3)"*NDeDUP) IIS IF PCXCH)>O THEN 
P(X) ELSE PC/)oeT4e ISN) fTENCE14+1) THEN 
BEGIN PCTENCE1]»,7T4e150)3 Eels, END 3 
PCS33 IF p>8 THEN BEGIN E1¢T4 DIV TS3 DeD#8s PCDEL»0) END 3 
STREAM(SKPePs QePiNsE Ls TAs Fe ABSCEF+T3 2s EStE SC @T3)eSGNe TOL BUFF) 3 
BEGIN 
SleT213 DS*SKP CHR MAYBECSGNeL 1 oe" )3 OSeL IT" ets Clecl+Q3 


SleLOc Els DS+D DECS DS*BDECs GO L2s SleLoc T4s DS*D DEC 3 


L2: DSe2LIT"E "3 ClecI¢ES3 GO 13s DleDIw"13 DSe*LIT!=" 5 
L323 OS«2DEC# SKPeDI 3 
END 3 
PCBELD 3 
IF SCALE>O THEN STREAMCSCALEs SKP«SKP+SGNeBUFF) 3 
BEGIN 
DleDI+SKPs SKP*#DI$ ST*eSKPS SIeSl+t13 DSeSCALE CHR 3 
OSeLITt." 3 
END # 
GO TEST 3 
P(CHRewe1)3 IF PRNTR THEN PCDELsW4+6) 3 
PCCPCDUP).£33212] INX SAVBUFFI&PCXCHIL 30245333) GO TEST 3 
PCO) 3 
SKIPS GO TEST! # 
OUTPUTS IF (ReR*1)>0 THEN GO SS ELSE GO TEST2 3 


PCWHIs6) 3 
SKIP 3 
STREAM(QeP3Te©IF CODE=6@ THEN 2 ELSE e=TieTisBUFF) 3 
BEGIN SI*LOC Q3 SI*#S1+T# OS*T1 CHRF GeDI END + 
GO TEST 3 
PCM) 3s IF TS THEN PC29-4)3 PC1)3 GO AL 3 
SCALEeWRFMTWDL34181)5 CHReCHRews GO TESTI 3 
P(1693 SKIP 3 
STREAMCQO#3x C1657) &TisWHI,BUFF) 3 
BEGIN 
SteLOc WHI SKIP Q SB 3 


TICDSe3RESETS 3CIF SB THEN DS*«SET ELSE DS*RESETS SKIP SB)) 3 


QeDI 3 

END 3 
GO TEST 3 
P(DELDS IF CCHR*CHR+RI>MAXCHR THEN GO AWAY $ 
STREAMCQCELFMTCFII8ReSeR, C3686] eBUFF) 3 


BEGIN SIleQs STe¢SI+33 DSR CHRS SCOS*32CHR$ DS*32CHR) QeDI END 


BUFFeP3 FIeCR+2),C3689]+F13 GO GETNEXTPHRASE 3 
IF TYPE=INTEGR THEN BEGIN DECPT«D«03 GO II END 3 


02895110 
02895115 
02895120 
02895125 
02895130 
02895135 
02895140 
02895145 
02895150 
02895155 
02895160 
02895165 
02895170 


02895175 


02895180 


02895185 — 


02895190 
02895195 
02895200 
02895205 
02895210 
02895215 
02895220 
02895225 
02895230 
02895235 
02895240 
02895245 
02895250 
02895255 
02895260 
02895265 
02895280 
02895320 
02895360 
02895400 
02895440 
02895480 
02895520 
02895560 
02895600 
02895640 
02895680 
02895720 
02895760 
02895800 
02895840 
02895880 
02895920 
02895960 
02896000 
02896040 
02896080 
02896100 
02896120 
02896160 
02896200 
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OS74i2 
057423 
O575%4 


057544 


057640 
057643 
057830 
O580%2 
058410 
0582:3 
0584!0 
058620 
058810 
058832 
059290 
O595%4 
O598:0 
060212 


(060683 


060633 
060933 
061123 
061323 
O61aty 
061442 
0614423 
061723 
061723 
061942 
062080 
062084 
0620%3 
062323 
06262 
062623 
062812 
06320%3 
0632%3 
063321 


* 063410 


0638!0 
063983 
064084 
O64ate 
064630 
0647740 
064923 
064933 
065042 
0653%2 
065333 
065410 
0654t2 
065782 
066080 
066232 
0668t0 


IF TYPESLOGICAL THEN GO LL 3 
IF £120 AND E1SD THEN 
BEGIN 
Wewrds DeDmE1 3 
Ir? 
Jt 
FF IF PCOsE1+D*DUP)<0 THEN PCDELsWH3«0) 3 
IF T4 AND DECPT THEN T6*P ELSE T3«SETUP+T3 3 
PCCODE=9) 3 
Ee(T4eIF (ND#O)<E1 THEN EL ELSE PCDUP))#C(TS¢IF COMMAS THEN 
(T4"1) DIV 3 ELSE 0)+DLRSGN+SGN 3 
IF P THEN 
BEGIN IF (CCHReCHR+E@W)>MAXYCHR THEN GO AWAY$ PCWH3S0) END 
ELSE IF PCW=D"DECPT@EFs0UP)<0 THEN GO OVRFLW2 3 
SKP¢P4+T5 3 
IF £1 LSS 4 THEN 
REGIN IF (NDe@CT4*SKP40)"E1)>D THEN ND&D+T43 SKP+SKP=T4 END} 
GQ CONVERT 3 
END $ 
EE: PcO"E™)3 GO D1 & 
DD: PCYO™) 3 
Ot? IF 74 THEN BEGIN PCDEL)3 GO SE ENDS IF PCSCALEsDUP)<0 THEN PCDELs0)3 
IF ¢SKPe@PCD+P 2DUP)+WeS@SGN=DLRSGN)<O THEN GO OVRFLW2 3 
IF D*SCALESO THEN IF =SCALE2SAVD THEN GO OVRFLW2 ELSE PCSCALEs+) 3 
IF SETUP THEN PCTENCT3"1]5,WH3s2ISD) 3 
IF (T4*ND*O)*SCALE THEN 
BEGIN 
IF ABSCE1*E1*SCALE)>99 THEN GO OVRFLW1 3 
IF. 0 THEN NDe*SCALE ELSE T4*SCaLe 3 
END 3 
CONVERT: 
IF NOT DBLPREC AND 1T3>8 THEN 
BEGIN WH3¢CWH2¢WH3) DIV TBS T3¢T3"T268 END 3 
STREAMCNDs SKP STG *SGNSECDECPT» S¢SKP.f 3626] 5T¢#T6,[ 3626] »DLRSGNoT4s 
T21LsWH3eT3eWH2sT2eWHie Tis BUFF) 3 
BEGIN SleT2i3 OS¢SKP CHR 3 
~~ SCSTer]ats DSe32CHRS DNS*32CHR)} SKPEDI} MAYBECDLRSGNsL3e"$") 3 
MAYBECSGNeL1s""")3 SGNeDIS DIepI+Es NOCDS*LIT"O") 3 
SteLOc WH33 OS*T3 DECs ST*LOC WH23 DS«T2 DEC3 SI*LOC WHI 3 
DS¢T1 DECFTSCOSELIT"O"ISTC32CDS*2LIT"O") DSNDEDISCIECIFES 
GO L23 SI*SGNs DI©SGN3 SleSI413 OS*T4 CHRS DS*LIT. 3 L2? 
END 3 
Té«eP 3 
IF (T4*¢P(XCH))40 THEN 
STREAMC(BUFF¢PST4,SGNeIF £1 LSS O THEN "=! ELSE  ",SeABSCEL)) 3 
REGIN 
DI©BUFFS Sle*Lac TAs SIeS1l+73 DS*CHR3 SIl*S14+73 DSeCHR 3 
pS¢2 DEC} BUFFeDI + 
END 
ELSE IF T5>0 THEN 
STREAM(TeTS*1sQ9¢E@TSx4eT59T6) 3 
BEGIN . . 
SI*T6? DleDI=T53 OS¢9 CHRs DSeLIT"s"™ 
TCOS*3CHRS DSeL TT") 3 
END 3 
IF W*SAVW THEN BEGIN BUFFeP3 PCW+W@SAVW)3 GO X41 END 3. 
GQ TEST 3 


ad 


02896240 
02896280 
02896320 
02896360 
02896400 
02896440 
02896480 
02896520 
02896600 
02896640 
02896680 
02896720 
02896725 
02896760 
02896800 
02896840 
02896880 
02896920 
02896960 


02897000 © 


02897040 
02897080 
02897100 
02897120 
02897360 
02897400 
02897440 
02897480 
02897520 
02897560 
02897600 
02897640 
02897680 
02897720 
02897760 
02897800 


02897840 > 


02897880 
02897920 
02897960 
02898000 
02898040 
02898080 
02898120 
02898160 
02898200 
02898240 
02898280 
02898320 
02898360 
02898400 


02898440 


02898480 
02898520 
02898560 
02898600 
02898640 


a a se se te a ge et 


067140 
O672%4 
067410 
067432 
067740 
0677140 
067730 
068024 
0685t0 
068513 
0689%4 
069480 
0694atO 
0698!0 
0703%0 
070430 
070483 
071120 
071142 
O714%2 
O71284 
O712%2 
071680 
072082 
O7 2424 
072720 
072823 
072984 
073423 
073413 
073423 


073483 


O73634 
O74O%4 
074480 
O744Ett 
O74720 
075080 
O753%4 
075530 
O759%4 
O764%4 
O764%9 
076240 
076344 
O767%4 
O767%2 
076910 
0769%9 
0769%2 
077410 
O77ate 
O774t2 
O776%4 
077783 
077880 
0781:2 
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OVRFELW3: 
PCDEL) 3 
OVRFLW23: 
PCDEL) 3 
OVRFLW13s 
PCDEL). 3 
OVRFLW: 


STREAMCWeSAVWEIWLSSAVW, C36261]9BUFF) 3 


BEGIN WCDS*LIT'« 
TEST? 
BUFF eP 3 
TEST 4:3 
IF ¢(ReR=1)>0 THEN GO 
TEST23 
IF (XTRA AND 3229 THE 
PCXTRADS XTRASSAVWEO 
IF PCDUP) THEN BEGIN 
CODEe13 ReP.f424473 
END OF FTOUTFIX 3 


asi ah a aN Desa ni tN 
te  aceenatare nanaaeesniiemetnetemnneancnttonitt ets Nenmarnsnamminer sit id PP i arene = Bey eccrine 
aneee Se SES en a eR ORE Te Oe Tne 
Geek esa ear 
seis 
os 
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% FORTRAN OUTPUT 
PROCEDURE FTOUTS 


BEGIN 
COMMENT FILX AAILE TF 
FMTA FORMAT 
LISxX ACCIOE 
EDITCODE 0 
1 
2 
3 
4 
REAL ENITCODE = 1, 
FORTERR = Bus 
LISX = 2s 
FI Ss hs 
DKADR = =5} 
ARRAY FMTA = 93[ 
NAME FILX = "6s 
MEM = 2 
REAL ALGOLWRITE = 
SELECT = 
INTEGER LSTRN = 
REAL LISTYPE = 
ARRAYSTUFF = 
ARRAY TEN = 
TPAR = 
FIBC*)3 
NAME LISTAORS 
REAL BUFF 
BSIZE 
FLG 


02898660 T O78D!0 
02898665 7. 0783!0 
02898680 T O782%1 
02898720 T O782%4 
02898760 T 078314 
02898800 T 078324 
02898840 T O784%4 
02898880 T 078454 
")3; WIiC32¢DS¢2LIT%*"))3 WeDI END 3 02898920 Tt 078730 
02898960 T 079032 
02899000 T 0790:2 
02899040 T 079122 
REPEAT 3 02899080 T O794%9 
02899085 T 079383 
N GO GETNEXTPHRASE 3 02899120 T 0793383 
; 02899160 T 079532 
SAVWeP,C423513 CODE*#43 GO REPEAT2 END 3} 02899200 T 079730 
GO Ss 3 02899240 T 080230 
02899280 T O804%4 
SIZE= 0805 wORDS 
INTRINSIC 02900000 T 9O000!0 
% 054 02900100 T 000030 
START OF REL SEGMENT3 DISK ADDRESS = 60377 
02900200 T o0000:0 
OP IO DESCRIPTOR 02900300 rT o000!0 
OR NAMELIST OR 0 02900400 tT 000080 
NTAL ENTRY DESCe OR O 02900500 T OO0n0t0 
NO FORMATs NO LIST 02900600 T O000t0 
FORMAT» NO LIST 02900700 r aO000!t0 
NO FORMATs LIST 02900800 fr 0000%0 
FORMATs LIST 02900900 T O00080 
NAMELIST 02901000 T O000t0 
3 02901100 fT 000030 
02901200 T O000%0 
02901210 T oO00080 
02901300 rT o000%0 
02901400 T O000t0 
02901500 fT O000%0 
*J, FPB = 30") 3 02901600 T Od000%0 
02901700 T 0000!0 
; 02901800 T O000:0 
12s 02901900 T O000!0 
143 02902000 T 0000!0 
193 02902300 fT O00Ot0 
20s 02902400 T O000t06 
183 02902500 T d000%0 
220*I» 02902900 T O000t0 
23L*)> 02903000 T O000%0 
02903100 T o000t0 
02903200 tT 000010 
» % FIRST BUFFER POSITION 02903300 fT C000t0 
» % ARGUMENTS 02903400 T O000!0 
» & TRUE FOR SERIAL 170 02903410 tT oO000%0 


i 
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Be 22 FE BA Se DR BY Be BC Be Be |e DO TL FL 3k Fe BL BE 2 3C 


# 
, % PAREN CONTROL 
% PAREN COUNTER 

| 

» 


» & 
e% TRUE IF PRINT 


» & 


=" » ow 
B28 Be De ae 


5s 

OR» 

L#e 

Gts 

3Hs 

4H» 

Sas 

bs 

THs 

BH» 
CFIBC4I],(£8343)#, 
et» 
@7777777777777#» 
CLISTYPE,C44%4}) =DBLV)#>s 


NEXT FORMAT CHAR LOCATION 


cONVS 
ERTED NU*# 
MBER 


REPEAT INDICATOR 


FIELO 
WIOTH 


DEC= 
IMAL Pe» 
LAs 
CE 
$ 
TRAILING ZEROES 
EXPONENT 
INTEGER PART OF SHIFT 
EDITING FUNCTION 
REDUNDANT POSITIONS 
CURRENT BUFFER POSITION 


BUFFER SIZE IN CHARACTERS 
STRING DELIMITER ¢€" OR @) 


CURRENT CHAR FROM FORMAT 
WORD 


SCALE FACTOR 
RETURN AFTER WRITE 
SIGN 

ER OUT PUT 

FORMAT ERROR 


DOUBLE PRECISION TOG 
COMPLEX NUMBER TOG 


G EDITING TOG W"D = SGN > 4 


G EDITING TOG 


= CLISTYPE, £4424] = CMPLXV) He 


LISTYPE,C38%1]#» 


= 15230188» 
z= [ 


WH» 
WH? 
Wi 
We 
NF CI 
ARRAY TOBUFF 
INTEGER DH4 
DHe2 
DH3 
RPT 
W 
WT 
Ti 
D 
OT 
D1 
he 
D3 
ZEROS 
EXP 
SHFT 
CODE 
SKP 
NCR 
LCR 
QUOTE 
CHR 
PRCW 
PCT» 
PS 
BOOLEAN DONETOG 
SGN 
PRNTR 
FMERRTOG 
LGTG 
DTOG 
CTOG 
GTOGA 
GTOG | 
DEFINE OBLV = 
CMPLXV = 
GTYPE 3 
FTYPE = 
ETYPE = 
OTYPE = 
ITYPE = 
LTYPE = 
ATYPE = 
OTYPE = 
KIND = 
TAPEF = 
MAX = 
DLN = 
CMPLX 
TWOD = 
LPPS 
LPPR 


15¢16l]#, 


02903500 
02903600 
02903700 
02903800 
02903900 
02904000 
02904100 
02904200 
02904300 
02904400 
02904500 
02904600 
02904700 
02904800 
02904900 
02905000 
02905100 
02905200 
02905300 
02905400 
02905500 
02905600 
02905700 
02905800 
02905900 
02905910 
02906000 
02906010 
02906020 
02906400 
02906200 
02906300 
02906400 
02906500 
02906600 
02906700 
02906800 
02906810 
02906900 
02907300 
02907400 
02907500 
02907600 
02907700 


02907800 


02907900 
02908000 
02908100 
02908200 
02908300 
02908500 
02908700 
02908900 
02909000 
02909100 
02909200 
02909300 


Aa a 4 tH tt A Ht tt te a st tt tt 


0000!0 
0000:0 
000010 
0000#0 
000040 
00000 
000040 
000010 
000010 
000010 
0000°0 
0000'0 
000080 
0000%0 
000020 
00000 
000030 
00000 


00000 


000010 
000080 
000080 
000080 
000010 
000010 
0000!0 
000010 
000020 
000010 
000080 
000010 
000010 
000010 
o00ato 
000010 
000030 
o000r0 
0000!0 
000080 
000080 
000010 
000040 
000080 
o000t0 
000010 


O000t0 . 
0000!0 — 
000030 


000010 
000080 
000080 
000040 
0000!0 
0000!0 
000010 
0000%0 
000010 
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RPTF = ([335151#, 


NORF = €PCXCHsDUP) «< O)#s 
PCF = [986] #. 

ENDLIST = (LSTRN = (h4))#> 
SIZEF = C33% 15] 4. 

BASEF = £18%15)4; 


LABEL —=TYPERR»NMLST» 
STRT»REPEAT*e LPAR*RTPARsSLASHsSTRINGs TEMT es FMTERR? 
ChisChasClh3esClasSCaALsHOLs SKIP sCL 3AsSTRASTEMAs TIX? 
ERTNeGoF rE eo DCoT obo As AAs Os F Ar GArASTsCOMMs 
NOFLsFNOLsBINARYsFMTLST» 
FRMTCOsNFPHs FMCYCeFMERRe ZAP» ZIPITS 


COMMENT * * * « * START OF SUBROUTINE DECLARATIONS * * © # wow & & § 


SUBROUTINE CKPB$ 
BEGIN COMMENT INITIALIZE FILE AND ACQUIRE RECORD SIZE; 
LCR * 8x(BSIZE © PCMKSsFLGsDKADR# Os (m1) sFILXsALGOLWRITE) 23 


IF PRNTREPRNTRECCCTICFIBC4],0824])21 OR T1=7 OR Tis12) AND FPBEFIB£E4) 


013811)431e04325]<20)C47847947. THEN 
IF BSIZE 2 17 THEN BEGIN LCR ¢ 1323 BSIZE + 17 END3 
BUFF eCIF TiePRNTR AND CEDITCODE=1 OR EDITCODE>2) THEN TPAR ELSE *FILX) 
2(33215) 3 
IF (CNOT T1) OR PRNTR,£4621]) AND EDITCODE#Z2 THEN 
STREAMCP2 © (BSIZE"1),0£3636)>» 
. P3+¢BSIZE+T1i=1sP4eBUFF) 3 
BEGIN DI « P4} DS © @LIT 
Si ¢« P43 
P2(DS * 32 WOS3 DS + 32 WDS);3 
pS + P3 WOS; 
END? 
NCR ©¢ 03 
END CKPR3 
SUBROUTINE PRNTS 
BEGIN COMMENT GENERATE A CALL FOR CARe CONT, AND FOR OUTPUTS 
IF PRNTR AND CEDITCODE = 4 OR EDITCODE > 3) THEN 
BEGIN? 
NCR © Of} 
STREAMCPLEOSP24TPAR)S 
BEGIN SI ¢P23 DI «© LOC P13 DI «DI * 73 DS *CHR} 
DJ « P23 DS « LIT " "ZEND; 
NCR ¢ P3 
IF NCR © " " THEN 92 « 16 ELSE 
IF NCR = "0" THEN D2 © 32 ELSE 
IF NCR = "+" THEN 02 ¢€ O ELSE 
IF (02 ¢ NCR) > 9 THEN D2 © 163 
IF NOT PRNTR,C4621] THEN FIBCI7]*FIBLI724+BSIZE 3 
P(MKS202,C42!22]902, @C44t4] sPRNTRG C4631] +BSIZEsFILX*ALGOLWRITE) 
FIBL6OJ*FIBL63=(D2=0) 3 
IF NOT CHFICK)ef1951] THEN PCFILK2@200000000092»sCOM*DEL sDEL)3 
PRNTRe13 CKPBR 3 
STREAMC PLE TPARs P2eeFIL Xe P3e¢BSIZE.f 3686 le P4eBSIZE D3 
BEGIN 
SI « Pl3 DI ¢« P23 DS ¢ P4 WDS3 
P3(DS 32 WOS3 0S « 32 WDS)3 
Dl#Pis P4CDSesLIT” ") 3 


END; 
FIBCI7I¢FIACI7I"BSIZE3 IF DONETOG THEN PCXIT) 3 
END ELSE BEGIN PCMKS*FLGsDKADR» Os BSIZEsFILX»ALGOLWRITE)3 


02909400 
02909500 
02909510 
02909600 
02909700 
02909800 
02910000 
02910100 
02910200 
02910300 


02910400 


02910500 
02910600 
02910700 
02910800 
02910900 


02911000 


02911005 
02911010 
02911100 
02911200 
02911400 
02911500 
02911600 
02911700 
02911800 
02911900 
02912000 


02912100 - 


02912300 
02912400 
02912500 
02912600 
02912700 
02912800 
02912900 


02913000 © 


02913100 
02913200 
02913300 
02913400 
02913500 
02913600 
02913700 
02913900 
02914000 
02914010 
02914100 
02914200 
02914300 
02914400 
02914500 
02914600 
02914610 
02914700 
02914800 
02914900 
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000010 
000070 


000010 
000010 


O000TO . 


000010 
exerelek Ze) 
ekelelon ze) 
0000!0 
lolerelen ae) 
ecerelen zy) 
0000%0 
0000%0 
o0cato 
0001%0 
elereh mae) 
O004t2 
000970 
001340 
001624 
0020%2 
002240 


O024%2 . 


0026k2 
002814 
002933 
003030 
0034%4 
003483 
003230 
0032%3 
003330 
003340 
00330 
0038%4 
003523 
003630 
003840 
003920 
O049!0 
0040%2 
O0dste 
004510 
0047390 
0050%2 
005430 
0057314 
005933 
0063370 
00651t0 
006782 
006782 
006839 
006933 
0072%0 
OO07T2%4 
007524 


eeeeseseeeeeeeeeteeneneeeee 6 


IF DONETOG THEN PCXIT)3 
CKPR END 3 
END PRNT$ 
LABEL NFCL3 
REAL SUBROUTINE NFC3 
BEGIN 
NFCL? 
WHILE Necr.(45:3] < 2 NO NFCI «© NFCI + 43 
STREAMCPL «+ O8P2 ¢FMTACNFCI.C30%15)]/P3 © NFCI,£45:31])3 
BEGIN DI ¢ LOC Pl3 DS « 7 LIT "O"3 
SI ¢« LOC P2s SI «SI + P33DS ¢ CHR} 
SI ¢ SI - 143 DI « pr 13 
ENDS 
NFCI ¢ NFCI + 13 IF (CHR ¢ P) = * * THEN IF NOT LGTG THEN GO NFCL3 
NFC ¢ CHR3 
END NFC3 


SUBROUTINE IST3 


BEGIN 3 
STREAMCP1 © O'P2 ¢ BUFF sP3 © CHRD} 
BEGIN SJ] « LOc P33 Sl « SI +73 
DI * P23 NS © CHRS Pi © pF; 
END3 
BUFF «© P3- 
END IST} 
% PARAMETERS FOR LIST CONTROL 
BOOLEAN ATOGsTWOT; 
ARRAY AR1 = LISTADRI*]} 
REAL INDXsSIZEeNLI*NLES 
LABEL RTNLST*SRT3 


DEFINE NXTELM = IF TWOT THEN PCHCARICINDX ef 3387] 1] ]¢ INDXsf40%8)sC0C) 


ELSE ARICINDX]#; 
SUBROUTINE GETLIST3 


BEGIN 
SRT? IF ATOG THEN 
BEGIN 

IF DLN THEN 
BEGIN 


WHY «© NXTELM3 
INDX © INDX #+ 13 
WH2 © NXTELM3 
ENO ELSE 
BEGIN 
WHL © NXTELM3 
WH2 « Qs 
END? 
IF CINOX ¢INOX + 4) 2 SIZE THEN 
BEGIN 
ARRAYSTUFF © Q3 
ATOG « FALSE; 
ENND3 
GQ TM RTNLST3 
END; 
IF CTOG THEN 
BEGIN % IMAGINARY PART OF COMPLEX 
WH1 © LISTAOR(1]3 
WHe © OQ} 
CTOG « FALSE} 


02915000 
02915100 
029145200 
02915300 
02915400 
02915500 
02915600 
02915700 
02915800 
02915900 
02916000 
02916100 


02916800 


02916900 
02917000 
02917100 
02917200 
02917300 
02917400 
02917500 
02917600 
02917700 
02917800 


02917900 © 


02918000 
02918100 
02918200 
02918400 
02918500 
02918600 
02918700 
02920200 
02920300 
02920400 
02920500 
02920600 
02920700 
02920800 
02920900 
02921000 
02921100 
02921200 
02921300 
02921400 
02921500 
02921600 
02921700 
02921800 
02921900 
02922000 
02922100 
02922200 
02922300 
02922400 
02922500 
02922600 
02922700 
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007833 
007933 
008,20 
008184 
0084 %4 
00820 
0082%0 
0082!0 
008522 
008Bi1 
008983 
009083 
Q094%4 
009482 
009530 
009582 
009523 
0096:0 
009610 
00972 
009810 
009833 
0099%0 
009942 
009933 
009933 
0099%3 
009933 
009943 
009933 
009923 
009943 
O100f0 
0700%0 
010034 
010033 
010240 
Q10a%2 
O1071%0 
0108!4 
011233 
O112:3 


O113%y. 


O11783 
0118%2 
Ollgte2 
012084 
012083 
012432 
012221 
012244 
012283 
012223 
012340 
0123%2 
0125%0 
0125%3 


= 


ENDS 


BEGIN 


END3 


GO TO R 


P(Q)3 
IF ARRA 


ATOG «¢ 
SIZEec] 
TND TEND 
Go To s 


PCODELI3 
WH1 ¢ L 
WH2 € I 
CTOG ¢ 


RTNLSTS 
END GETLIST; 
SUBROUTINE FORMATCONTROL3 


BEGIN 


STRT3 


CLs 


Ces 


CL35 


CL4: 


CL3A8 


We 
8G 
COMMENT 
IF 
IF 
IF 
IF 
IF 


TNLST3 


LISTADR « CLISKI3 
YSTUFF # O THEN 


TRUES 
NOX*ARRAYSTUFF eBASEF )+ARRAYSTUFF .SIZEF 3 


T PC*¥CLISTADReMEMCLISTADR.C18215]])*TOP)s PCDEL) 3 


RT3 


ISTADREO}3 
F OLN THEN LISTADRE1] ELSE OF 
CMPLXs 


DeCODESSKPeRPTeQ3 

Ne DONE TOGeFMERRTOG+FALSES 

CHECK FOR SINGLE CHARACTER EDITING TYPES} 

NFCS9 THEN GO TO REPEATS % MUST BE REPEAT FIELD 
CHR = "C" OR CHR = "2%" THEN GO TO LPAR3 

CHR = ")" OR CHR = "EC" THEN GO TO RTPARS 
CHR="/" THEN GO SLASH? 

CHR = "*t OR CHR = "@" THEN GO TO STRING: 


TF CHR="T" THEN GO TO TFMT3 


6 

IF 
BEGIN 

IF 


ENDS 
IF 
RP 

COMMENT 
IF 
IF 
IF 
IF 
1 
IF 
IF 

COMMENT 


NeCCHRe"=") @ CCHRa +") (29472133 
SGN THEN 
NFCS9 THEN GO TO REPEAT 


ELSE GO TO FMTERR3 


CHRe"s" THEN GO TQ STRTS 
Tey 
TYPES WHICH MAY HAVE REPEAT FIELDS; 
SGN THEN RPT¢*"RPT3 
CHR="P" THEN GO TO SCAL3 
RPT<O OR SGN,C2!4] THEN GO TO FMTERR3 
CHR = "€" QR CHR = "2%" THEN GO ‘TO LPAR; 
CHRE"H" THEN GO TO HOL3 
RPT=Q THEN RPT¢13 
CHR = "X™ THEN GO TO SKIP3 
TYPES WHICH HAVE W FIELDS? 


IF CHR="I" THEN CQDE « ITYPE ELSE 
IF CHRe"A" THEN CODE « ATYPE ELSE 


IF 
COMMENT 
IF 


IF CHRa"L"™ THEN CODE « L TYPE ELSE 
IF CHR=e"O" THEN CODE « OTYPES 

CODE 2 ITYPE THEN GO To CL3A3 
TYPES WITH W AND D FIFELDS3 

CHR="0" THEN CODE ¢ DTYPE ELSE 


IF CHRa"E" THEN CODE ¢ ETYPE ELSE 


COMMEN 


IF CHR="F" THEN CODE « FTYPE ELSE 
IF CHR="G" THEN CODE ¢ GTYPE ELSE 
GO TO FMTERRS 

T DEVELOP VALUE OF W FIELDS 


02922800 
02922900 
02923600 
02923800 
02923900 
02924000 
02924400 
02924500 
02924600 
02924700 
02924800 
02924900 
02925000 
02925100 
02925200 
02925300 
02927400 
02927500 
02927600 
02927700 
02927800 
02927900 
02928000 
02928100 
02928200 
02928300 
02928400 
02928500 
02928590 
02928600 
02928700 
02928800 
02928900 
02929000 
02929100 
02929200 
02929300 
02929400 
02929500 
02929600 


02929700 | 


02929800 


02929900 


02930000 
02930100 
02930200 
02930300 
02930400 
02930500 
02930600 
02930700 
02930800 
02930900 
02931000 
02931100 
02931200 
02931300 
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0124612 
012710 
0127140 
012830 
012873 
0129%4 
013080 
0132%3 
O13631 
013633 
013623 
013720 
0143733 
0141473 
014349 
0143%2 
014383 
014420 
O14ato 
O144t0 
0146%3 
O14e%2 
O14e%2 
0151470 
0153%2 
0156'0 
OS7ty 
015933 
016140 
046323 
016470 
O164%2 
016682 
0147%2 
O167%2 
016823 
0169%2 
0169%2 
0171491 
O172%2 
017530 
O17712 
017833 
018033 
018280 
0182%0 
0184%0 
O186!2 
0189%0 
01914%2 
0192%3 
0192%3 
019423 
019734 
019983 
O202%4 
O202t4 


es = psa. PMA naa pee i, oe 7 tog 3 3 LA Se, Ca ea re ee 


ae ta THEN GQ TO FMTERRS 
€C 
WHILE NFCS9 DQ WelOxW+CHRs % CONVERT TO OCTAL 
NECTI®©NECI*13 
IF W>63 THEN GO TO FMTERR; 
IF CODESITYPE THEN GO TIX3 
COMMENT DEVELOP D FIELDS 
IF NFC#™." THEN GO TO FMTERR; 
IF NFC >9 THEN GO TO FMTERR3 
NeCHRs 
WHILE NFCS9 NO Del1OxD+CHR3 % CONVERT TO OCTAL 
NFCIeNFCI*13 
G0 TQ TIXs 
LPAR? COMMENT GENERITE PAREN CONTROL WORD} 
IF PCT#4O0 AND RPT&O THEN RPTeq 3 
T1 © RPTANFCICLPPSI&CRPTSOICL E4784 33 
TF PCT $ 1 THEN PRCW © Ti & PCTL9S42:613 
P CTLs XCHI3 PCTePCT413 
GO TO STRT3 
RTPAR? COMMENT POINT AT LEFT PAR IF REPEAT NOT EXAUSTEDS 
IF NORF THEN 
BEGIN 4’ NO REPEAT FIELD 
DONETOG © ENDLIST3 
PRNT#% WRITE Gur RECORD 
IF (PCT © PCT = 4) $ © THEN IF PRCW,PCF #0 
THEN BEGIN PCXCHsPRCW)3 PCT © 2 END FLSE PCT © 43 
END ELSE 
BEGIN 
YF CRPTePCDUP),RPTF) $ 4 
THEN BEGIN PCDEL)#PCT © PCT = 13 GO TO STRT END 
ELSE PCRPT = 19¢0X)3 
END? 
NFCI*PCOUP),LPPRs % RESET TO LEFT PAREN 
PCXCH)3 
gO TO STRT3 
REPEAT! COMMENT CONVERT REPEAT FIELD TO OCTAL IN RPT; 


RPT «CHR 
WHILE NFCS9 DO RPT© LOxXRPT+CHR3 
GQ TO CLa; 
SLASH! COMMENT WRITE QUT BUFFER; 
PRNTs 


GO TO STRT3 

STRING?! COMMENT MOVE STRING FROM FORMAT ARRAY TO BUFFERS 
QUOTE © CHR} % SAVE STRING DELIMITER 
LGTG ¢ TRUES CHR ¢ NFC3 

STRAS IF (NCR # NCR + 1) > LCR THEN GO TO FMTERR3 
IST3 
IF NFC # QUOTE THEN GO TO STRA3 %*" OR @ 
LGTG ¢ FALSE 3 GO TO STRT3 


TFMT: COMMENT SET BUFFER TO CHARACTER POSITION INDICATED BY FIELD 


FOLLOWING "T's 
IF CRPT¢NFC)>9 THEN GO TO FMTERR3 
WHILE Necs9 00 RPT*1OxRPT4CHR} 
IF RPTALCR THEN GO TO FMTERR3 
NCReRFT #43 
TEMA? RUFF ©CCIF PRNTR THEN TPAR ELSE C*#FILX)) INX 
NCR, £33212) 2&NCRL308458 313 


02931400 
02931500 
02931600 
02931700 
02931800 
02931900 
02932000 
02932100 
02932200 
02932300 
02932400 
02932500 
02932600 
02932700 
02932710 
02932800 
02932810 
02932820 
02932900 
02933000 
02933100 
02933200 
02933300 
02933400 
02933410 
02933420 
02933500 
02933600 
02933700 
02933800 
02933900 
02934000 
02934100 
02934200 
02934300 
02934400 
02934500 
02934600 
02934700 
02934800 
02934900 
02935000 
02935100 
02935110 
02935200 
02935300 
02935400 
02935500 
02935600 
02935700 
02935800 
02935900 
02936000 
02936100 
02936200 
02936300 
02936400 
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020231 
0204:0 
020433 
020984 
O210t2 
021133 
021340 
021330 
021530 
021780 
021783 
O222a%4 
0223%2 
022430 
022430 
022740 
023084 
023344 
023510 
0235%02 
023532 
0236!2 
023750 
0238%2 


0240%0 


024370 
024632 
0246%2 
O247120 
O24att 
025424 
025213 
025233 
0254%0 
O254t4 
025433 
025423 
0255%2 
026084 
026033 
026033 
026250 
0262%2 
0262%2 
O263%4 
0265%2 
026743 
026920 
027170 
Oa72tt 
O272%4 
O27? 2:1 
O2T4at? 
O279%4 
O280t2 
028133 
028410 
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60 TO STRT 
SCAL! COMMENT SCALE FACTOR OF P PHRASES 
PS¢RPT3 
GO TO STRT3 
HOLL: COMMENT HOLLERITH STRING? 
LGTG ¢ TRUE} 
WHILE RPT > 9 0O 
BEGIN 
IF €NCR ¢ NCR + 1) > LCR THEN GO TO FMTERR3 
CHR ¢ NFCS IST$ 
RPTeRPT=43 
END? 
LGTG © FALSEs GO TO STRT$ 
SKIP$ COMMENT X PHRASE} 
IF (NCR ¢ NCR+RPT) > LCR THEN GO TO FMTERR; 
GO TO TrMA$ 
FMTERRE FMERRTOGe TRUE; 
TIX: 
END FORMATCONTROL3 
SUBROUTINE FUNNYZERQO; 
BEGIN 
SKP © W = (B+6+56N)3 
STREAMCP1¢ BUFF IP2¢SKPsP3e¢SGNsP4e(D44) 93 
BEGIN 
DI «Pili DI «© PI + F23 
P3(DS ¢ LIT "="; JUMP OUT TO LDS 
Li DS S LIT -8G5? 
P4a(DS € LIT " 93 
Pq ¢ DF3 
END; 
BUFF « P3 
END FUNNYZEROS 
SUBROUTINE FINDES 
BEGIN IF OT0G THEN 
DOUBLECTENL OJ] sOsWHIsWHoex,@epWH1»WH2) 
ELSE WH1 « TENEZO] x WH4i3 
EXPe CO8WHIL422 396 78WHIT122919412,5)x, 90308998709 ; 
we « O8 
IF OTOG THEN 
IF EXP 2 0 THEN DOUBLECTENCEXP] > TENCO9+EXP] > *eW1sW2) 
ELSE DOUBLE C1 20s TENC@EXPJsTENLOO@EXP J] o/e ee Wie W2) 
ELSE Wi ¢ IF EXP 2 0 THEN TENCEXP] ELSE 1/TENC*EXP)3 
IF WH1 > W1 TREN GO TO ERTN3 
IF WH1 = W1 THEN 
IF WH2 2 W2 THEN GO TO ERTN3 
EXP «¢ EXP=43 
ERTNS 
END FINDE3 
SUBROUTINE NUMCONVERT3 
BEGIN 
IF Di > O THEN 
BEGIN 
DOUBLE CWHI»WH2sTENCAGI > TEND 85] o/eeeW1eW2)3 
DH1 ¢ Wi DIV 1.03 
END3 
TF 02 > O THEN 
BEGIN IF OTOG THEN 


02936500 
02936600 
02936700 
02936800 
02936900 
02937000 
02937100 
02937200 
02937300 
02937400 
02937500 
02937600 
02937700 
02937800 
02937900 
02938000 
02938100 
02938200 
02938300 
02938400 
02938500 
02938600 
02938700 
02938800 
02938900 
02939000 
02939100 
02939200 
02939300 
02939400 
02939500 
02939600 
02939700 
02939800 
02939900 
02940000 
02940400 
02940150 
02940200 
02940300 
02940400 
02940500 
02940600 
02940700 
02940800 
02940900 
02941000 
02941100 
029414200 
02941300 
02941400 
02941500 
02941600 
02941700 
02941800 
02941900 
02942000 


AAA ANA A Mt tt tt tt ts a a i 


028970 
029034 
029084 
C292%2 
029630 
O297384 
029733 
02990 
029930 
O30t8t 
030443 
0302%2 
0302%2 
030233 
030330 
0303%0 
030524 
0307:%2 
O307%2 
O308%4 
031020 
O310%2 
031493 
031230 
O312%1 
0312%3 
031340 
031340 
O313%4 
031634 
0318%2 
O322%4 
03230 
O323t4 
032742 
033423 
QO339%2 
034083 
034432 
034334 
O344%2 
O344ta 
034433 
034510 
0345:0 
034533 
O346ti4 
034934 
Q0350!%2 
0350!%92 
035444 


BEGIN 
DPOUBLECWHL WHA aNHL Oe TENE 16) 2 TENL ES] exe me 
TENC BIsSTENC77I]e/eeeW1leW2)3 
DH2 « W1 DIV w3 
END 
ELSE DH2 © WHL DIV TENL8)3 


IF DTOG THEN 
BEGIN 
OOQUBLECWHI es WH2sDHie Os TENL 1S] s TENL 85] ex, 
DH22O02TENL BIsTENL77 J exXa tate eaW lo W293 
DHS «© W1 DIV t3 
ENO 
FLSE OR3 © WH1 oIv 13 
EXP © EXP+13 
END NUMCONVERT; 
SUBROUTINE SETD3 


BEGIN 


IF DLN AND OT > 23 TREN 
BEGIN 
FEROS¢OT"=233 DOT «© 233 DL « 73 De « 03 « 83 
END ELSE IF OT>12 AND NOT DLN THEN 
BEGIN 
ZEROS¢DT"123 OT « 123 Dieds 02 ¢ 43 03 © B83 
END ELSE IF 0T>16 THEN 
BEGIN 
DieOT16; O2ep 348; 
ENO ELSE IF OT > 8 THEN 
BEGIN 
Die0sD2eDT"83 D348} 
END ELSE 
BEGIN 
N1<+D2¢0;03¢DT; 
END: 
ENO SETO3 
SUBROUTINE RNDOFF? 
BEGIN IF OTOG THEN 
IF Ti 2 0 THEN 
DOUBLECWHIsWH2seSeTENDC TI Js TEND T1+69 lo Xo teeeWHlsWH2) ELSE 
DOUBLECWHL es WHe ee Se TENC TTL Ue TENL69MT1 lo fe tee er WHI» WHO) 
ELSE WHL «¢ WHL + CIF T120 THEN SxTENETI] ELSE S/TENC™T1193 
END RNOOFF3 
SUBROUTINE SCALE3 
BEGIN IF OTOG. THEN 
BEGIN IF T1 2 0 
THEN DOUBLE CWHL sWHOsTENC TI le TENE T1469 le xre sNHi eWH2 ) 
ELSE DOUBLE CWHisWH2sTENC=TLIIs TENT 6O9"TI 1s /5¢oWHisWH2)3 
IF WH1 2 TENEDT] THEN 
BEGIN 
EXP © EXP + 43 
DOUBLE CWHL*WH2s TEND 1) 209/s¢eWHi es WH? D3 
END 
END ELSE WH «© TF TL 2 0 THEN WHIxTeENET1) ELSE WHI/TENC #7113 
END SCALE; 
Rake ee eee eee ee SOT AOR T OF EDIT*CONTROL tke ak eae keke keke ead 
SUBROUTINE CONVERTS 
BEGIN 


02942100 
02942200 
02942300 
02942400 
02942500 
02942600 
02942700 
02942800 
02942900 
02943000 
02943100 


02943200 © 


02943300 
02943400 
02943500 
02943600 
02943700 
02943800 
02943900 
02944000 
02944400 
02944200 
02944300 
02944400 
02944500 
02944600 
02944700 
02944800 
02944900 
02945000 
02945400 
02945200 
02945300 
02945400 
02945500 
02945600 
02945700 
02945800 
02945900 
02946000 
02946100 
02946200 
02946300 
02946400 
02946500 
02946600 
02946700 
02946800 


02946900 © 


02947000 
02947100 
02947200 
02947300 
02947400 
02947500 
02947600 
02947700 


as ae sa st tt a te 


0352%0 
035032 
035541 
035733 
035910 
035930 
0362t2 
036232 
036283 
0363%4 
0365123 
036934 
0370%2 
O0370%2 
037224 
0373!2 
037333 
O374i0 
037420 
O376%4 
037683 
038033 
O383%2 
038440 
0388%4 
03892 
039020 
03930 
0393%3 
O39K%4 
039750 


039730 


0397%2 
0399%2 
039982 
039933 
040030 
O400%]4 
040432 
040644 
041440 
041640 
041730 
0417%0 
O41744 
041840 
O422%4 
042633 
042783 
0428314 
042982 
0432%4 
OA3RF 4 
OS3784 
O437°2 
O437%2 
0438%0 


en ee ee ee ee ee ee ee er ee ee er ee rr | 


< 


DTONG « GTOG + FALSE; 
SGN e«WHyef1L:1]3 IF CODE < LTYPE THEN WHY © ABSCWHI1)3 WT © Ws OT © DE 
DH1 ¢ DH2 « BH3 « ZEROS «f£xXP « SKP « SHerT « Di « OP « D3 « O3 
GO TC TCCODE OUPe Aree 
GO TO FMERR3 
GQ TO G3 
GO TO F3 
GQ TO E;3 
GO TO Nc 
GQ TC I3 
GO TO L3 
GQ To A; 
GO To O03 
: COMMENT OCTAL CONVERSION * * # &* &# # ee ow 3 
IF W > 16 THEN SKP «© W™ (WT © 41693 
STREAMCPL ¢ BUFF ISP2 ¢ WH1sP3 © SKPeP4 © WTsP5 © 16"WT23 
BEGIN SI * LOC P23 D1 ¢ P13 
DI ¢« DI + P33 PSCSKIP 3 SB)3 
PACOS ¢« 3 RESETS 3CIF SB THEN 0S « SET 
ELSE DS * RESETS SKIP S$B))3 
P1 « O13 
ENDS 
BUFF « P3 
GO TO COMM 
At COMMENT ALPHA CONVERSION * * * # & we Rw OG 
IF W> 6 THEN SKP © W = (WT & 633 
AAt STREAMCP1 © BUFFEP2 «© WH1sP3 ¢ SKp» P4 «© WT)3 
BEGIN DI © P1s OL ¢ DI + P33 
SI « LOc P23 SI ¢ SI + 23 
DS « P4 CHR; Pi « OY; 
END} 


BUFF « PS 


GO TO COMMS 
Lt COMMENT LOGICIAL CONVERSIONS 
IF W >4 THEN SKPe#WRC(WTe1)3 
WHL© O&CIF WH1 THEN "T" ELSE "FY)c1224296]73 
GO TO AAS 
It COMMENT INTEGER CONVERSIONS 
IF WH1=0 AND WH2=0 THEN DT * 03 * 1 ELSE 
BEGIN IF DTOG THEN 
NOUBLECWHL»WH2s545*+e¢e2WHieWH2) % ROUND OFF 
ELSE WH1 ¢ T1 « WH13 
IF WH1=0 AND WH2=0 THEN ExPew! ELSE FINDE 3 
IF EXP < 0 THEN DT « 03 © 1 ELS 
BEGIN 
IF (DLN AND EXP224) OR CNOT OLN AND EXP212) THEN GO ASTS 
DT « EXP+#13 SETO3 NUMCONVERTS 
END3 
END: 
IF DT + SGN > W THEN GO To AST3 
IF W > DT + SGN THEN SKP « Wo DT = SGN3 
STREAM(P1+O!P2 © Dl»P3 © DH1»P4 © D2eP5 ¢ DH2> 
P6 ¢ D3sP7 © DH3sP8 © SGN*PP9 © SKPsP10 « BUFFD3 
BEGIN OI * P1053 PO(DI * DI + 133 
PBCDS ¢ LIT "#")3 
ST *LOC P33 DS « P2 DEG 
SI ¢ LOC P53 OS © P4 DEC 


02947800 - 


02947900 
02948000 
02948400 
02948200 
02948300 
02948400 
02948500 
02948600 
02948700 
02948800 
02948900 
02949000 
02949100 
02949200 
02949300 
02949400 
02949500 
02949600 
02949700 
02949800 
02949900 
02950000 
02950100 
02950200 


. 02950300 


02950400 
02950500 
02950600 
02950700 
02950800 
02950900 
02951000 
02951100 
02951200 


02951300 © 


02951400 
02951500 
02951600 


02951700 


02951800 
02951900 
02952000 
02952100 
02952200 
02952300 
02952400 
02952500 
02952600 
02952700 
02952800 
02952900 
02953000 
02953100 
02953200 
02953210 
02953300 


tt 9 9 Ht ht 9 9 tt st st ss ts a 


043830 
043974 
O4Gaty 
044912 
OAS012 
045420 
045412 
045280 
O485a%2 
045370 
0453%2 
045410 
Oa5ato 
0455170 
C4551%0 
045830 
046022 
046150 
O462%2 
046484 
04651202 
046533 
046640 
O4G66I2D 
046710 
0467140 
047040 
0474423 
O47? oto 
0473370 
047323 
047440 
O47 4t9 
047510 
047540 
O47 BIO 
048454 
048423 
048133 
048534 
048680 
048833 
04984 
0497540 
O499t2 
050030 
0505%2 
050930 
050970 
0509:0 
051033 
O54aty 
0516:0 
0517!'2 
051813 
052080 
0520:3 


rr ee ee ee ee ee ee ee ee ee ee | «eee ee e 


END? 


BUFF «© P3 


GQ TO COMM; 


Oc} 
E% 


«¢ LOC P75 DS + P6 DEC: 
¢ pols 


COMMENT DOUBLE PRECISION CONVERT» SAME AS EF CONVERTS 


COMMENT E CONVERSIONS 


BEGI 


NTOG ¢« TRUES 

SETDs 

IF WH1=0 AND WH2 * 0 THEN 
N 

IF W < (0+6+ SGN) THEN GO TO AST; 
FUNNYZERQs GO TO COMM; 


END ELSE 
BEGIN 
FINDE? 
IF PS $ 0 THEN 
BEGIN : 
IF. €SKP «© Wo-* p= 5 * SGN) < O THEN GO TO ASTS SETD3 
TF COT ¢ DT + PS) < O THEN DT ©€ O3 
Ti + EXP * OTS RNOOFFS 
END ELSE 
BEGIN 
NT « OT + CSHFT « PS)3 SeTD3 
T1 ¢ EXP = OTs RNDOFF? 
IF W<(T1L¢DT+5+ SGN + ZEROS) THEN GQ TO AST; 
SKPewewT13 
ENDs 
TLeDTWlLEXPs SCALES 
NUMCONVERT3 
EXPE XP=PS3 
ENDs 


STREAM(P1 « Otp2 « SKP,sP3 ¢ SGN»sP4 © O01,P5 © DHie 
P6 © D2sP7 © DH2eP8 + D3sP9 © DH3eP10 + (DLNQ» 
Pil ¢ 


BEGIN 


ENDS 


BUFF ¢ P3 


Fe 


DI 
P2 
SI 
SI 
$1 


CEXP < O)5P12 © ABSCEXP)sP13 «© SHFTsP14 ¢ ZEROSsP1i5 «BUFF)3 
« Pi53 DIT « OF + Pa; P3(0S © LIT "=")3 

¢ O13 DS @ LIT ","3 

* LOC P53 DS « P4 DEC; 

¢ LOC P73 DS +¢ Pé DEC 

* LOC P93 DS « PB DECS 


Pi4¢enpS « LIT " ")3 DS © LIT "EN; 
PL1O(AI « DI = 13 OS * LIT "p35 
pS « Lite hf 3 

P11(pI « DI = 13 DS © LIT "=n; 


SI 
Pi 


¢ LOC Pla; DS « 2 DECs 
« O13 


P13(D] ¢ P23 SJ] « P23 SI * SI + 13 


pS « P13 CHR OS ¢ LIT " "3 JUMP OUT TO X93 X! 


60 TO COMM; 


COMMENT F CONVERSIONS 


IF OTOG THEN 
IF PS>Q 
THEN DOUBLECWHIsWH2sTENL PS] sTENLO9+PS ] ox seeWHi es WH2) 
ELSE DOUBLE CWHLs WHOeTENC=PSIeTENL69"PS]9/eeeWHie WH?) 
ELSE WHi «© IF PS > 0 THEN WHIXTENCPS) ELSE WHI/TENC#PS)3 


02953400 
02953500 
02953600 
02953700 
02953800 
02953900 
02954000 
02954100 
02954200 
02954300 
02954400 
02954500 
02954600 
02954700 
02954800 
02954900 
02955000 
02955100 
02955200 
02955300 
02955400 
02955500 
02955600 
02955700 
02955800 
02955900 
02956000 
02956100 
02956200 
02956300 
02956400 
02956500 
02956600 
02956700 
02956800 
02956900 
02957000 
02957100 
02957200 
02957300 
02957400 
02957500 


02957600 © 


02957700 
02957800 
02957900 
02958000 


02958100 


02958200 
02958300 
02958400 
02958500 
02958600 
02958700 
02958800 
02958900 
02959000 
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052132 
O522%¢ 
O522%2 
052283 
03523%4 
052333 
0523:%3 
052383 
052432 
052610 
052733 
052841 
05302 
OS3at2 
O53et2 
053310 
053420 
0534%3 
0535%4 
O540t0 
0354320 
054530 
054510 
O545i%90 
054870 
055070 
055344 
O854t2 
O554t2 
055740 
05580 
O559%4 
O559%4¢ 
0564120 
0563%4 
056594 
056732 
056a% 4 
056910 
056923 
O570%2 
O572%4 
OS7323 
OS74%1 
0575%3 
O576%4 
O576!a 
057733 
OS79%2 
057933 
O580!%4 
0580%3 
058083 
058470 
058443 
058640 
0590%4 


®@eeeeeeeenwneeewneeeee ee 8 ef 


+ 


FAS IF WH150 AND WH220 THEN ExP¢O ELSE 


BEGIN 
T1 ¢ "(OT+1)3 RNDOFF3 
FINDES 


IF EXP<0O THEN EXPeQ3 


IF CTICOT+EXP+i)> 12 THEN OTeDT@CZEROSeTIn12)3 


Ti © OT} SCALES 
ITF ABSCWHL) > MAX THEN 
BEGIN 
ODT « DT = 13 ZEROS « ZEROS + 143 
T1 © 13 SCALES 
END} 
ENDS: 
NT¢+DT + EXP +443 SETD3 


IF W<CTieD+2+ SGN + EXP) THEN GO TO AST3 


SKPeWwrT 13 
a NUMCONVERT3 
STREAM(P1 ¢ O8P2 © SKP,»P3 «© SGNeP4 « 01,P5 + DHYs 
P6 © D2sP7 © DH2-P8 © D3+P9 © DH3eP10 «+ ZEROS» 
P11 o¢ EXPeP1i2 « BUFF); 
BEGIN OI «© Pies DI « DI + P23 P3CNS « LIT *=)33 
P2 © OT3 OS ¢ LIT *."3 
SI -¢« LOC P53 DS « Pa DEC; 
St « LOC P73 OS « P6é DEG 
St * LO¢ P93 OS + P8 DEC} 
Pi0¢DS « LIT "O"); 
Pt ¢ D3 


P1iCMr « P23 SI « P23} SI ¢« SI + 43 DS « P11 CHR3 


OS ¢ LIT "as JUMP OUT To x93 x3 
ENDS. 
BUFF «© PP? 
IF GTOQOG THEN GO TO GA3 
gO TO COMM; 
G3 COMMENT G CONVERSION3 
GTOG « TRUE} 
TF WH1I=0 AND WH2=0 THEN ExPe*0 ELSE FINDE 
IF (GTOGA¢W=D=SGN>4) THEN 
IF EXP< (#1) THEN GO TO E3 
IF CTIeD@EXP"1)9<0 AND GTOGA THEN GO TO E3 
wT « D3 W & Wed; 
D« DT «© Ti; 
Go TO FA3 
GA: 
STREAMCP1 © Otp2 « BUFF) 
BEGIN DOL ¢ P23 DI « DI + As Pi ¢ DI3 ENO; 


BUFF ¢« P3 
We W + 43 D «© WT 
GO To COMM; 
AST? 
STREAMCPY © 03P2 ¢ BUFFsP3 « Ww)3 
BEGIN OI ¢ P23 P3(DS ¢« LIT twit); Pio o¢« DY} END} 
BUFF « P3 
IF GTOQG THEN GO TO GA; 
COMMS 


END CONVERTS 


COMMENT # & * wo *# # # &# &# * END OF DECLARATIONS * & * * # kw ke kw ef 


IF EDITCODE=0 OR EDITCODES2 OR EDITCODEs4 THEN 


02959100 
02959200 
02959300 
02959400 
02959500 
02959600 
02959700 
02959800 
02959900 
02960000 
02960100 
02960200 
02960300 


02960400 


02960500 
02960600 
02960700 
02960800 
02960900 
02961000 
02961100 
02961200 
02961300 
02961400 


02961500 © 


02961600 
02961700 
02961800 
02961900 
02962000 
02962100 


02962200 © 


02962300 
02962400 
02962500 
02962600 
02962610 
02962700 


02962800 


02962900 
02963000 
02963100 
02963200 
02963300 
02963400 
02963500 
02963600 
02963700 
02963800 
02963900 
02964000 
02964100 
02964150 
02964200 
02964300 
02964400 
02964405 
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O595%92 
059819 
059930 
060210 
060310 
0605!0 
061080 
061270 
061380 
0613%2 
061630 
061810 
O61s8to 
061820 
062120 
O624%4 
0625%2 
062740 
062833 
063010 
0630°3 
063233 
0633892 
063484 
063550 
063533 
063730 
O637%1 
063940 
C6408 4 
064030 
0641430 
064980 
064480 
064410 
064433 
064930 
0654414 
0653%14 
0656%3 
065813 
066010 
066032 
0660%9 
0664133 
066213 
0663%1 
066534 
066533 
066533 
0667214 
066924 
0669323 
067083 
067083 
067430 
067110 


ae as aiid yl SiS te Sapa es, Ory Se me, OEE ost ge ct as 2 ude sda mete Yel sey fe Piatt ante a oe eee semitone Sys ae cent ee geet 


BEGIN 
POMKS»FILX*sDKADR) 3 
IF EDITCOMES4 THEN PCF IsFMTAsINTCALLC*PCeLISX)2@155)) 
ELSE PCC™L)oFMTAs #PCeLISXISEDITCODE, Os INTCALL(0+0160)) & 
POXTT) 3 
END 3 
IF EDITCODEs6 THEN GO ZAP; 
FIB © FILXENOT 233 % OPEN FILE IF NOT OPEN 
IF DKADR < 0 THEN BEGIN FLG © 13 DKAOR ¢O ENDS 
IF FIBE51.04321] THEN POCMKSsOsOeFILXe1eSELECT DI 
PRNTRe2x(FIB(5],0C41%2] 70) 3 44% IFF FILE IS CLOSED, SETS PRNTR,[46311]21, 
CKPB$ ARRAYSTUFF ¢ 03 
IF FIBCO] = O THEN 
FIBLO] « 1 + CEDITCODE =O OR EDITCODE #2) 
ELSE 
IF FIB CO] 41 + CEDITCODE =O OR FEDITCODE = 2) 
THEN PCMKS*FIBCO] sFILK 0033215 ]94sFORTERR)3 


IF PRNTR THEN STREAMCTPAR)D? DSe«BLIT" © 3 


GO TO PCEDITCODEsDUP*AD0)3 


60 TO NOFL: % NO FORMAT» NO LIST 
GO TO FNOL3 4 FORMATs NO LIST 
GO TO BINARY & NO FORMATs LIST 
~ G0. 70 PMTLST? % FORMAT» LIST 
NCFL? 
PCXIT) 3 
FNOL? 
LSTRNeGeMW43 
GQ TO FRMTCD 
NMLST8 
PCXIT)3 
BINARY? 
PCXIT) 3 
FMTLST: 
LSTRN « 13 
cTQOG © DONETOG ¢« FALSE 
GETLIST; 
FRMTCD?: 
PS « QO 


NFCI ¢« (FIxg) + 23 % FIRST FORMAT CHARACTER 
IF. NOTCNFC3"¢" OR CHRE"%") THEN GO TO FMERR 3 
NE GI © CFIxXB) +23 

NFPRE FORMATCONTROLS % ANAYLSIS OF FORMAT STATEMENT 
IF FMERRTOG THEN GO TO FMERRS 

FMCYC! -IFCDONETOG ¢ ENDLIST) THEN 
IF EDITCODE=6 THEN GO ZIPIT ELSE PRNT3 
IF W + NCR > LCR THEN GO TO FMERRS 
NCR ¢« Wo+ NCR} 
CONVERT? 
GETLIST} 
IF CRPT¢RPT#1) > GO THEN Go TO FMCYCS$ 
IF EDITCODE=6 THEN GO ZIPIT ELSE 
GO TO NFPHS 
— ZAPERPT C27 ICODECATYPES WENT +63 DOOR BUFFETPAR,L33815I3GETLISTS 
LCR#1683 GO FMCYC; 
ZIPIT: STREAMCP1«+BUFF 3. BEGIN pleP13 DS* S LIT "ZEND,.%3 ENDS 

PC eTPARsLODs 4s COMs DEL 3 , 
BUFF © TPAR,£33%15)3 


02964410 
02964415 
02964420 
02964425 
02964430 
02964435 
02964450 
02964500 
02964510 
02964600 
02964610 
02964700 
02964710 
02964720 
02964730 
02964740 
02964750 
02964765 


02964800 © 


02964900 
02965000 
02965100 
02965200 
02965400 
02965500 
02965700 
02965800 
02965900 
02966000 
02966100 
02971000 
02971100 
02973100 
02973200 
02973300 
02973400 
02973500 
02973600 
02973700 
02973800 
02973900 
02974000 
02974100 
02974200 
02974250 
02974300 
02974500 
02974600 
02974700 
02974800 
02974850 
02974900 
02974950 
02974953 
02974954 
02974956 
02974958 


AA At A tt tH st st a tt a tt at a st sg st 4 st tt se 


06846:0 
06862 
O68734¢ 
069434 
0695%9 
069583 
06953 
0697320 
069833 
O704%2 
O704%2 
070720 
070833 
070933 
O71284 
071342 
071620 
O719%2 
O722:3 
072323 
0724214 
072433 
O7 25314 
072523 
072533 
0726%0 
072610 
072720 


O727%2 © 


072782 
072733 
072783 
072830 
07280 
072833 
0730%0 
073480 
073440 
073433 
0733:%90 
073720 


073883 


074080 
074420 
074212 
O7 4540 
074623 
074810 
O749%0 
075040 
075224 
075310 
075410 
076080 
076441 
0763%2 
OF 6413 


STREAMCPL*¢BUFF)SBEGIN DIep1s 17008 « 8 LIT * "ISENDS O2974960 T O766514 

PCXIT)3 02974962 T 07649%4 

FMERR? 02975000 T 0769%2 

PCMKSsFIBLOIJ*FILX.C33215] 20sFORTERR)3 02975100 T O769%2 

TYPERR? : 02975200 T O772%0 

POMKSsFIBCOJsFILX, £33215] *22FORTERR YS 02975210 T 077230 

END FTOUT3 02975300 T 077480 
SIZE= 0775 wORDS 


pF OSES SAREE SENET AE AEST EDIE RIE TLR REE TRICE SENET EOE EAE PE ETN tHE ie 
i NSE MEEREVT AE APEC RNIN SEN HEEL TOE TET I TETRIS NS RS MN RACE TP ATES ORES A TCT ey 
pian mon esclemweneet 


ee ae a 


sc eAtite ERATE RINE NREDENTE TENE Hen 
ses “ dicaao ental en saepmaonse egret IETS 
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~ PROCEDURE FORTRANFREEWRITECFILX*DKADDR»ReWe LISXe#NIsNAMS*SUBS) SRINT 0153 02976020 T 000080 
START OF REL SEGMENTS DISK ADDRESS = 90403 


e®9eeeeoeF@e@68ftm6mUOOhmUmCUCOmUCOUCU® oeoeeeoeeee eee @ 


VALUE DKADDReReLISXsWeNI3 INTEGER ReW3 REAL DKADDRsLISXeNI 3 02976035 T 000030 
ARRAY SUBSE*1]s NAMSC*]3 NAME FILX 3 92976050 T 0000!0 
BEGIN 02976065 T 000010 
02976080 T 000010 

INTEGER LSTRNS19* Es CHR» MAXCHR» PRNTR» TYPE» INDX» SIZE, 02976095 T 000010 
WOTH* MAXWOTHs SGN» CC 3 02976110 T 0000!0 
02976125 T 0000!0 

REAL LISTYPE=20* ARRAYSTUFF#18* ALGOLWRITE=12» SELECT#14» Tis NIDs 02976140 T 000080 
T2» FORTERR#=24> BUFF» BSIZE» FLGe WHI=Rs D» WH2s ARYs T3s WH1S, 02976155 7 000030 
RNDUP=9s MNTSSA=17»+ FNR» FNL» ENR» MS3s DECPT»s LSSi* SVMAXWDTHe 02976170 T 000010 
GTRMI» WH3s HALF» TRZ* NNis TWOTs VHS™1e VLER2s TIPES*4 3 02976185 T 000010 

| 02976200 T 9000!0 

NAME LISTADOR 3 02976215 T 000080 
. 02976230 T 0000!0 
ARRAY TEN=220*]s ARLSLISTADDORE*]» TPARS23C*]s FPB=3(¥l» FIBC#] 3 02976245 T 000030 
02976260 T 0000!0 

LABEL BACKs START» ITYPE»s ALIST» TRUs FALS» TWOPTS» MAXI» SETUPS 02976275 T 000010 
LOGS» FTYPEs ETYPE» FUNNYEs CHOOSE1» OVRFLWs FIVEPTs GET3> 02976290 T 0000!0 

HUNT» ZERO» HLF» NOFIT* GOTOQ, ZEROES» FITYPE» ETYPE2s Qs 02976305 T 0000!0 
ETYPE1s DFTYPE>» OTYPEs BUMPWH3s THREL» THREH» MAXWDOTHOF 1s Q1> 02976320 T oO000f0 

MAXT1 3 | 02976321 T 0000t0 
02976335 T 0000!0 

DEFINE DONE = (LSTRNS(™1)) # 02976350 T 0000%0 
REEL = 3 #, 02976365 T Q000%0 
LOGICAL = 4 és 02976380 T 0000!0 

INTEGR = 1 te 02976395 T 0000t0 
DBLPREC = 5 #» 02976410 T 000010 
COMPLEXR = 6 #» 02976425 T 0000!0 
COMPLEXI = 7 #, 02976440 T 0000!0 

MAYBE (MAYBE 1»MAYBE22MAYBE3) = CI©CI+MAYBE13 GO TO MAYBE2 3 02976455 Tt 0000!0 

DS¢LIT MAYBE33 MAYBE2! #, 02976470 T 0000!0 

TWOD = LISTYPE,(3821) #» 02976485 T 000010 

INDXF = [18215] #> 02976500 T O000t0 

TYPEF = C4424] #s 02976515 T 000010 

SIZEF = (33915) #3 02976530 T 000030 
02976545 T 0000!0 

SUBROUTINE GETWOTH 3 02976560 T 0000!0 
WOTH¢C CFNR*E+RNDUP) <FNL©O)+1+6TRMICL+CABSCENRI>9) 3 02976575 T 000430 
02976590 T 0006!3 

REAL SUBROUTINE FTEST 3 02976605 T 000683 
FTESTePCXCHI+C(FNReT2@FNLEFNL@LSS19<C"E) OR FNRK<O 3 02976620 T 0007!0 
02976635 T 004210 

REAL SUBROUTINE NXTELM $ 02976650 T 0012!0 


@®ee3e#e2e#eeeee8e¢e¢€#8e¢¢6¢¢e0e0ee eee. 


BEGIN 
PCIF TWOT THEN PCH¥CARILINDXs£33#7])]]+INDX.040!8]sCOC) 


ELSE ARICINDXI]) ; 
INDX*INDX+13 NXTELMeP 3 
END OF NXTELM 3 


SUBROUTINE COUNTZ 3 


HUNTS 


REAL 


BEGIN 

T3¢0 3 

IF LISTYPE MOD TENE T3¢T34+3]%0 THEN GO HUNT 3 
IF LISTYPE MOD TENET1¢©T3=1140 

THEN TleTisieCLISTYPE MOD TENCTi*1]740) 3 

END OF COUNTZ 3 


SUBROUTINE USEXPNOTATION 3 

BEGIN | 

FNL©IF LSS1 THEN PCCwE)e1) ELSE PCOsE41) 3 

IF CFNReP+ENR@FNL #71950 THEN FNReY 3 

USEXPNOTATION@ CF NRE NL >L+CENR@ENR@T1 IEC OCDECPTEL +1 Ie C aL b+ 
CABSCE+1)>92)+¢TRZ OR LSS1) AND CABSCE)24 OR 
FNL+FNR>MS342)) OR CENR+T3SMS3 AND ABS(E)25) 3 

END OF USEXPNOTATION 3 


SUBROUTINE ROQUNDANDSPLIT 3 


BUMPWH33 


BEGIN 
TieT2eLISTYPE*O3 T3eRNDUPS7 3 
IF (MNTSSA¢GTRMI=7=RNDUP) LSS 0 THEN 
BEGIN 
PCWH3/TENC@MNTSSAJ*1+eWH3,IS0)3 T3GTRMI 3 
IF CWH3eWH3+1)5TENCT3] THEN FeC(LISTYPEeLI4E 3 
END 
ELSE IF MNTSSA LSS 8 THEN 
BEGIN . 
IF PCWH2/TENCB™TZEMNTSSAI]» eWH2eISNISTENCMNTSSAI 
THEN GO BUMPWH3 3 
END 
ELSE IF PCWHI/TENLI6"MNTSSAJ]»,WHie ISNISTENCTIGMNTSSA@T2¢8) 
THEN IF (WH2¢WH2412=TENC8] THEN GO BUMPWH3 3 
END OF ROUNDANDSPLIT 3 


SUBROUTINE OUTPUT ¢ 


BEGIN 

IF PRNTR THEN 
BEGIN 
FIBCI7J«FIBL1734BSIZE 3 
PCMKSr2s0eCCeBSIZEsFILX»ALGOLWRITE) 3 
IF NOTC#FILX) .£42193 


$ SET OMIT = TIMESHARING 
$ SET OMIT = NOTCTIMESHARING ) 


—$ POP OMIT 


THEN IF FIB£L4),£8241410 
THEN PCF ILXs@2000000000s 36esCOMsDELs DEL) 3 


ENO 

ELSE IF NOT CC THEN PCMKSsFLGsDKADOR»s OsBSIZEsFILX*ALGOLWRITED 3 
POMKSsFLG»DKADDRsCHReOsCm1)sFILXsALGOLWRITESDEL) & 

IF PRNTR THEN FIBCI7]«FIBCi7I-BSIZE 3 
STREAMCBS¢BSIZE"1sBeP( DUP) 03626) ,BUFCBUFF eC eFILX) 0 f33815)) 3 


02976665 
02976680 


02976695 
02976710 
02976725 
02976740 
02976755 
02976770 
02976785 
02976800 
02976815 
02976830 
02976845 
02976860 
02976875 
02976890 
02976905 
02976920 
02976935 
02976950 
02976965 
02976980 
02976995 
029770190 
02977025 
02977040 
02977055 
02977070 
02977085 
02977100 
02977115 
02977130 
02977445 
02977160 
02977175 
02977190 
02977205 
02977220 
02977235 
02977250 
02977265 
02977280 
02977295 
02977310 
02977325 
02977340 
02977355 
02977370 
02977400 
02977415 
02977430 


02977431 


02977445 
02977460 
02977475 
02977490 
02977505 
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001270 
0012!0 
001520 
0016%0 
001782 
001733 
001783 
001840 
001810 
001833 
002143 
002333 
00281 
O028t2 
002882 
002950 
002930 


00322. 


003634 
004082 
O045%a 
005033 
005140 


005130 


005430 
0057130 
0054t0 
005634 
005623 
0059383 
006480 
006440 
006514 
006513 
006832 
Q06912 
0069%2 
007333 
0077384 
Q077%2 
O077%2 
007810 
007810 
OO07BI 4 
O078t3 
0080%3 
OO8eta 
0083! 
00832 
008319 
O0085it 
008753 
008723 
008723 
009933 
009532 
OO9RtY 
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BEGIN 02977520 T 010433 

DS*8LIT" "3 STeBUFS DS*BS WOS3 BCDS*32WDS3 DS*32WDS) 3 02977535 T 010433 

& END 3 02977550 T 0105!0 

END OF OUTPUT 3 02977565 7 010584 

02977580 fT 010532 

@ SUBROUTINE CHECKBUMPANDSKIP 3 02977595 T 010532 

BEGIN 02977610 T 910680 

IF PCW+MAXWOTH@WDTHsDUP)SO THEN PCDELs0) 3 02977625 T 010680 

6 IF PCPCDUP)+WDTH+2+SVMAXWD TH=MAXWD TH» DUP )+CHR2MAXCHR 02977640 T 0109!0 

THEN QUTPUT 3 02977655 T OL1210 

CHREP4CHR 3 02977670 T 011420 

6 STREAMCSKP*LSS1¢PtL¢LSS1,.03636)»BUFF) 3 02977685 T 011520 

BEGIN DI©DI+SKP$ LCO1*D1+323 DI*DI+32)3 SKP*DI END 3 02977690 T O117%4 

BUFFeP 3 02977695 7 O11982 

S IF NIDZNT THEN 02977700 T 012080 

BEGIN 02977715 T 012033 

STREAMCN©CLSSITENAMS[NID]) .COS3IILSS1e Te CNNI20)*BUFF) 3 02977730 T 0121434 

6 BEGIN 02977745 T 012423 

SIeLOC LSS13 SI*S1+23 DS*N CHR3 MAYBECToLe"(")3 NODE? 02977760 T 012423 

END 3 02977775 T O12784 

& BUFFeP 3 02977790 T 0127%2 

FOR MS3¢0 STEP 1 UNTIL NN4 00 02977805 T 012830 

BEGIN 02977820 T O12980 

@ STREAM(N@®SUBSC>MS31,01523173Q@*SUBSEMS3],(33#815]»BUFF) 3 02977835 T 012930 

BEGIN SI*LOC Qs DSN DEC$ DS*LIT%s"3 NeDI END 3 02977850 r 013493 

BUFFeP 3 02977865 T 013383 

t END 3 02977880 T O134t4 

STREAMCTeCNN12022RETYPESCOMPLEXRs LeTYPESCOMPLEXIsBUFF) 3 02977895 T 0136%2 

BEGIN 02977910 T O139%3 

e CleCI+T3 GO TO Ls OleDIe1s DSeL ITI Lt 02977925 T 013933 

CleCI+#R3 GO TO Lis DS*2LIT™eRs Lit 02977940 T O14gt? 

ClecIl+I3; GO TO L2s nSe2LIT™@I"3 L2t OSeLITs"3 TeDT 3 02977955 T O14912 

¢ END 3 02977970 T O14432 

BUFF EP 3 02977985 T 0144323 

END 3 - 02978000 T 014584 

@ END OF CHECKRUMPANDSKIP 3 02978030 rT O145%4 

02978045 T 014532 

SUBROUTINE BASICONVERT 3 02978060 T 014532 

6 BEGIN 02978075 T 014650 

IF TYPEZDBLPREC THEN 02978090 T 014630 

BEGIN T3«O 3 02978105 T 014613 

e IF E>8 THEN BEGIN WH2eWH1 DIV TENCB8I3 T2eE"T1¢8 END 02978120 T O148:0 

ELSE BEGIN T2€0} T1leE END 3 02978135 T O18282 

END 3 . 02978150 T O154t2 

a WOTHEWOTH+T1472+T34SGN+DECPT 3 02978165 rT O1S84s2 

CHECKBUMPANDSKIP 3 02978180 7 015733 

STREAMCWH32WH25WH1sT32T25T1sFNL*DECPT»ENR» SGN*sTRZ*BUFF) 3 02978195 T 015990 

@ BEGIN 02978210 T 016233 

MAYBECSGNeLdst=")3  SGNeDr 3 02978215 T 016233 

NI*DI+DECPTS ENRCOSeLIT"O")3 ST*#LOC WH33 DS*T3 DEC 3 02978225 T O164t1 

e ST*LOC WH23 DS¢T2 DEC3 SleLOc WH13 DS*T1 DEC 3 02978240 T 016633 

TRZCDS*LIT"0")3 WH3¢DIS CIe€CI+DECPT$ GO TO L 3 02978255 T 016811 

SI*SGN3 SI©ST+13 DI*SGN$ DSe*FNL CHR$ DS*LITe™3 Lt 02978270 T 017082 

e END 3 02978285 tT O17284 

PCXCH) 3 02978300 T O172%2 

END OF BASICONVERT 3 02978315 + 017213 

e 02978330 T 017390 
eo .-. . S. 
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SUBROUTINE FINDE 3 02978345 YT 017370 

Ee CORTLLAZT 326 JATIALCLS2t1) +1 2+P CHL F)xPCLOGA) 3 02978360 T 017330 

02978375 T O177!2 

SUBROUTINE GETW 3 02978390 Tr O17732 

IF CT1LePCXCH) )2WeMAXCHR/R=PCTWOPTS) THEN WeTi 02978405 T 017810 

ELSE IF (TI¢IF NAMS=0 THEN 30 ELSE PCNAMSCNIJ] *DUP)xX64(PCXCH)>0) 02978420 F 018134 

+37)<W THEN MAXCHRe (CC WETL)422xR 3 02978435 y~ 0186%2 

02978450 T 019482 

BO RII II IOGear CODE STARTS HERE ff itt tk i td i tok dle ey 02978465 T O194¢%2 
OC2978480 T 019122 

RALFePCHLF) 3 02978485 T O194%2 

IF wI<O THEN 02978487 T O20210 
BEGIN % SPECIAL SINGLE EDIT. 02978489 T 020233 

BUFFeR? NIDeNIS WHLeVH3 WH2eVL 3 02978491 yy 020334 

IF (TYPECIF TIPEs2 THEN IF VLS0 THEN IF ABSCVH)SPCMAXI4) THEN 02978493 tf O206%4 

IF PC VHe eTYPEsISN)=VH THEN 1 ELSE 3 ELSE 3 ELSE 5 ELSE TIPE)<0 02978495 Tt 020933 

OR TYPE?5 THEN DO UNTIL FALSE. ; O297B8497 7 024583 

We CWeABSCW) *SVMAXWOTHEMAXWOTHeEIF WO THEN Ww ELSE 62 ; O2978499 7T O218%2 
MAXCHR¢643 GO Q1 3 02978501 T 0O223!%0 

END 3 02978503 T 022433 
FIRe¢FILXENOT 2]3 IF DKADDR<O THEN BEGIN FLG*13 DKADDR*O END } 02978510 T 022423 
DeIF ReCi#1) THEN se" ELSE " "3 ReABSCR) 3 02978525 YT O229%4 

IF FIBC5].0C4321) THEN PCMKSsO2OeFIL Xe LsSELECT) 3 02978540 T O0233%0 
-€CecFIBlS) ANN 946940 53 02978555 T 023610 
POMKS »FLGsDKANORS Oe ("1 *FILX*ALGOLWRITE) 3 02978560 T 0238:0 

IF PCwCRIBC14I)]» TOP) THEN PCDEL) 02978565 7 O240!0 
ELSE PCCT1e¢* (4 INX PCXCH)))6£36261940 AND T1#48 AND T1i49eSUB) 3 02978570 tT 024143 
MAXCHRePCBSIZEe©P)x8 § 02978575 7 024720 

IF PRNTRECCTICFIBC4],0824)]) #1 OR Tis? OCR T1*12) AND FPBLFIBE44 02978585 1 O248%9 
00432111433,0433517<20 THEN 02978590 T O252:3 

BEGIN IF BSIZE>16 THEN. BEGIN MAXCHRe1323 BSIZEe«17 END3 END 02978600 T 025610 

ELSE ¢Ccel 3 02978615 T 0259%4 
QUTPUT 3 02978630 T O260%2 

IF ¢CCe#O)sFIBL0] THEN FIBEO}J¢1 3 02978645 T 026210 

IF CLSTRNGL)4FIBLO] AND Tis2 02978660 T 0265%4 
THEN PCMKSsFIBE7IsFILX C3381 5S) s4eFORTERR) 3 02978661 T 0267%0 
MAXWDOTHEMAXCHR=2 3 02978675 tT O270%1 

IF cWeABS(W))40 THEN 02978690 T 027432 
BEGIN 02978705 TT 0273:0 

IF W>MAXWOTH THEN WeMAXWDTH ELSE MAXWDTHeW 3 02978720 FT 0273%2 

IF R#0 THEN BEGIN PCMAXWDTH)3 GETW END ¢ 02978735 7 027633 

END 02978750 T O27940 

ELSE IF R40 THEN BEGIN PC41)3 GETWS MAXWDTHEW END 3 02978765 T 027930 
WeW=SVMAXWDOTHeMAXWDOTH 3 02978780 Tt 028283 

GQ START 3 02978795 T O28K4i2 

HLF aes 0.5 3 02978810 Tr 028510 
— LOG88t2 0,90308998709 ; 02978825 T 0286:0 
TWOPTS#222,4999999999 ; 02978840 7 028710 
MAXT4123% @0007777777777777 3 02978842 T O0288t0 
BACK? 02978855 T 028980 
BUFFeP3 IF NI<O THEN PCBUFF*RTN)$ TYPE*ABSCTYPE) 3 02978870 T Q289!0 
epee heer BEGIN Sle_oc Df ST*SI+73 OSeCHR; DIe*DI+t413 DeDI END 3 02978885 T O292t1 

oe BUF Pep 02978900 T 029483 
START? 02978915 T 0295t2 
TF ARY THEN 02978930 T 02952 
BEGIN 02978945 TT 029523 

ALIST? WHIENXTELM ? 02978960 7 O296321 


@eeeeee#se#esteeeeee8 8&8 @ @(8hlUcOhlUehle e 
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IF NIMZNT THEN 
BEGIN 


PCINOX*ARRAYSTUFF.INOXF) 3 

IF TYPE2DBLPREC THEN PCC P41) DIV 2)3 TaeP 3 

IF TYPE2ZCOMPLEXR THEN TYPE *COMPLEXR#(TYPESCOMPLEXR) 3 

FOR TIi*NNi STEP =4 UNTIL 0 00 
BEGIN 
SUBSCT13.033215]¢14¢T2"1) DIV CMS3@¢SUBSECT1],£18215393 
IF ¢(T2¢T2 MOD MS3)s0 THEN T2eMS3 } 
END 3 

END 3 

IF TYPE=DBLPREC THEN WH2¢NXTELM2 ARY*INDX<SIZE 3 


EN 
ELSE TF TYPESCOMPLEXR THEN BEGIN WHitLISTADDOR(Ci33 TYPE*COMPLEXI END 
ELSE BEGIN 
PCARRAYSTUFF¢O)$ LISTADDR©CLISX]3 TYPE*LISTYPE,TYPEF 3 
IF CNIDCARRAYSTUFF eL3515 74ND 2NI 
THEN NNLG@NAMSCNID] eC128)"4 3 
IF ARY*ARRAYSTUFF,0181301740 THEN 
BEGIN 
IF NIDZNI THEN 
BEGIN 
SUBSLO1T.CABTL51«Tied 3 
FOR T2e1 STEP 1 UNTIL NN4 DO SUBSCT2],£18215]6T1 
¢T1xSUBSCT2"13,033315)3 
END 3 
IF TYPESCOMPLEXR THEN TYPE*COMPLEXI 3 
SIZE*CINDX*ARRAYSTUFF eINOXF +ARRAYSTUFF eSIZEF 3 
PCLISTADDReEMEMELISTADOR.£162151)) 3 
TWDT*NOT PCLODsTOP)$ PCDEL) 3 
GO ALIST 3 
END 3 
WHI¢LISTADOREO}3 PCDEL)? 3 
IF TYPE=NBLPREC THEN WH2*LISTADDRE1) 3 
END 3 
IF DONE THEN 
BEGIN 
STREAMCTPAR)3 18(DS*BLIT™ ") 3 
IF NOT PRNTR THEN PCMKS*FLGsDKADDRs Os BSIZEoFILXs ALGOLWRITE) 3 
PCXIT) 3 
END 3 
MAXWOTHeSVMAXWOTH 3 
IF NIDZNI THEN 
BEGIN 
TI&©CNNIZ0)+CNAMS([NID3409231)424NNI+PCABSC(TYPE)2COMPLEXReDUPs 4) 3 
FOR TteNN1 STEP =1 UNTIL O DO 
REGIN T2¢03 MS3«SUBSET13-4£33215] 3 
WHILE TENECT21SMS3 DO T2¢To+1 3 
T3¢T3+T23 SUBSETII,C1S¢3y¢T2 3 
ENP 3 
IF CMAXWOTH*MAXWOTH#*T3)S0 THEN GO OVRFLW 3 
END 3 
Qi! IF TYPE=LOGICAL THEN 
BEGIN 
IF CWOTHe7*WHIeWHL AND 1)>MAXWOTH THEN WDTH*MAXWOTH 3 
CHECKRUMPANDSKIP 3 
STREAMC(S¢IF WH1 THEN PCTRU) ELSE PCFALS)&ZeTLeWDTH>1> 


02978975 
02978990 


02979005 
02979020 
02979035 
02979050 
02979065 
02979080 
02979095 
02979110 
02979125 
02979140 
02979155 
02979170 
02979485 
02979200 
02979215 
02979230 
02979245 
02979260 
02979275 
02979290 
02979305 


02979320 


02979335 
02979350 
02979365 
02979380 
02979395 


02979410 


02979425 
02979440 


02979455 — 


02979470 
02979485 
02979500 
02979515 
02979530 
02979545 
02979560 
02979575 
02979590 
02979605 
02979620 
02979635 
02979650 
02979665 
02979680 
02979695 
02979710 
02979725 
02979740 
02979755 
02979770 
02979785 
02979800 
02979815 
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: 
O39att 
029833 
030080 
030233 
0308:3 
030730 
0307%0 
031083 
0315:0 
O347%4 
031734 
032433 
032433 
032533 
032621 
032910 
033083 
0333%3 
033589 
0336%0 
0336%3 
033734 
0339%3 


034280 


0343:%0 
O347%2 
Q034919 
O352%1 
O35at4 
035513 
035634 
O356%4 
0357314 
036020 
036020 
036130 
036432 
0364!2 
QO367%4 
036732 
0367132 
03684 
0369!0 
036982 
037410 
0376t0 
O37K%4 
038442 
0385%4 
0387392 
0389%3 
038913 
039010 
039120 
039510 
0396!0 
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Os SOMO THz eeNDTH SMD THRE IeTesR SS eWHLeBURED 2 
BEG] 
Sleloc $3 SleSIl4+F3 MAYBeCZeLie™,t) 3 
NS¢WOTH CHR3 MAYBECQsL2e%_")3 SeDI 3 
END 3 
GQ BACK 3 
END OF LOGICAL 3 


SGNeWH1, £121] 3 
Q@: IF T3eNOT C€GTRMI©ABSCWH1)>PCMAXI)D) AND TYPESINTEGR 
THEN PCWH1s.WHis ISD) 3 
T2¢(MS3¢MAXWOTH*™3"SGNI+423 WHLEABSOCWHL) 3 
IF TYPE=BRBLPREC THEN 


OTYPE$ 


GOTOQ: 


MAXITS33 


_THRERS 33 


THRELS #3 


TRuUte! 


FALS#33 


BEGIN 
WHIGTLEPCWH2eWHIsOsTENDCO]sOLM)3 WH2eP 3 
IF WHi=0 THEN BEGIN TYPE+*DBLPREC? GO ZERO END? FINDE 3 
IF MAXWOTH<7 
THEN PCWH2aWHisHALFe (NOT POCMAXT)) AND WHts DLAs eWHISaes DEL) 3 
IF LSSi*e— LSS 0 THEN PCOsTENCO)* TENCO9O*EJ* TENCE] *DLD) 
ELSE PCTENT69F4E 7, TENDED) 3 
Tie/eP3 T3eF 3} 
IF Til GEQ WH1 THEN IF Ti>WH1 OR T3>WH2 THEN Ete@4 3 
ENRe24 3} 
PCWH2sWH1s TENT OO+ABSCE Ie TENCABSCE)J/IF LSS1*E LSS O THEN 
PCDLM) ELSE PCDLD)) 3 
TieP3 T3¢P 3 
IF Ti2PCTHREH) THEN IF T4>PCTHREH) OR T3>PCTHREL) THEN ENRe23 3 
PCWH2sWHI> TENE CTIS©ABSCENR@E"1)) +69) sTENCTiJ* IF ENRSE THEN 
P(DLD) ELSE PCDLM)) 3 
WHi]ePs RNDUPSENREQ4. 3 
PCTI©P»,WHIsTENCS5S] sTENCI6] sDL De» HALF ots WH3eISDeDELe T3eWH1s Os WH3 
sTENLSSI2*TENCLGI»DLMeDLS) 3 
WHIeP 3 
PCT3¢PsWH1s Gs TENC 8] > DLO HALF os WH2e ISD>DEL>T3eWHL» Os WH2e Or TENE 
B1sOLM»DLS, WH1sISD»DEL) 3 
IF P(Os,OZLISTYPEeWHY THEN 
BEGIN PCDEL,8) 3 
IF CLISTYPE*WH2)"0 THEN BEGIN PCDEL216)3 LISTYPE*WH3 END 3 
END 3 
COUNTZ; TIeP4+T1 j 
IF USEXPNOTATION THEN 
BEGIN 
IF ENR+T32MS3. THEN 
IF £272 THEN BEGIN DECPT*FNReO$ GO DFTYPE END 
ELSE IF CENReMS§3@T3)<0 THEN 
BEGIN WHiewHiSs TYPE+=DBLPREC# GO @ END 3 
GTRMI¢ENRS ROUNDANDSPLIT 3 
IF NOT (94E OR T3414) THEN GO GOTOS 3 
IF LISTYPE THEN PCTENLCT3¢T34CIF LSS4 THEN "1OsE ELSE *¢92 
E)) "41 e.WH3*ISD) 3 
RNDUP¢1; GO ETYPE1L 3 
@CQOOO7T77T7 777777777 
@1143013331500045 
@©0003112121167260 
wTRUEN $ 
"PALSE 3 
END 3 
IF FNL+FNRST2 THEN 


we tee “en 


02979830 
02979845 
02979860 
02979875 
02979890 
02979905 
02979920 
02979935 
02979950 
02979965 
02979980 
02979995 
02980010 
02980025 
02980040 
02980055 
02980070 
02980085 
02980100 
02980115 
02980130 
02980145 
02980160 
02980175 
02980190 
02980205 
02980220 
02980235 
02980250 
02980265 
02980280 
02980295 
02980310 
02980325 
02980340 


02980355 


02980370 
02980385 
02980400 
02980415 
02980430 
02980445 
02980460 
02980475 
02980490 
02980505 
02980520 
02980535 
02980550 
02980565 
02980580 
02980595 
02980610 
02980625 
02980640 
02980655 
02980670 


AA AA AA Ht Ht tt tt a a A 


039922 
O403%4 
040384 
O405%14 
040784 
040730 
0408!0 
040810 
040924 
0414142 
041393 
044722 
O4iet4 
O41Aai3 
042123 
0426!0 
042644 
043010 
O434%2 
O436%2 
0437142 
O44et4 
044310 
044633 
Oa4gaty 
O44Os4 
045340 
045830 
045910 
O461%4 
046534 
0467720 
046780 
047433 
0473%9 
047520 
047620 
047950 
047980 
048480 
048210 
O482t2 
048323 
O48721 
048980 
049984 
049440 
O496%4 
049913 
0502%2 
050323 
05050 
0350630 
050740 
0508t0 
050950 
050920 


@®eeeeeeeee?e8808e0e2088 080 20800 80 @ @4 


BEGIN 02980685 T O5140%1 

DF TYPES ENR«eTRZ¢O3 TLe FNL 3 02980700 T 051033 
IF LSS1 THEN ENROFNL@ Em] 02980715 fT 051233 

ELSE IF 23+RNOUPSFNL THEN 02980730 tT 0514431 

BEGIN TRZ¢FNL+FNR=TLe234+RNDUPS FNReO END 3 02980745 7 051780 
GTRMI©TL+FNReENR}  ROUNDANDSPLIT 3 02980760 YT 052120 

IF LISTYPE THEN 02980775 T O524!0 

BEGIN 02980790 7 O524%4 

IF DECPT THEN DECPTeFNR4+TRZ24 02980805 T 052483 

ELSE BEGIN 02980820 T O526%4 

T1¢T2¢03 DECPTeWH3¢T3¢RNDUP]LS GETWDTH 3 02980835 T 052733 

IF CTRZ¢*WOTH+WDTHEMS3419<50 THEN GO GOTOQ 3 02980850 T 053210 

GO ETYPE2 3 02980865 T O0535%2 

END 3 02980880 T 0536%0 

FNLeFNL#CE20) § 02980895 T 0536%0 

IF S54 THEN IF NOT ¢CTRZ*CENReENR*1920) THEN ENREO 5 02980910 T 053783 

IF T3<DECPT THEN GO GOTOQ 2 02980925 T O542%4 
PCTENCCT3¢T34¢1"DECPTI"11».WH32TS0) 3 02980940 T Q543%2 

END 3 02980955 7 O546%02 

FITYPE: WOTH*ENR+TRZ$ BASICONVERT# GO BACK 3 02980970 Tt O0546%2 
END 3 02980985 T O549!92 
PCWH3/TENCRNDUP+6)>5)3 IF NOT FTEST THEN GO OFTYPE 3 02981000 T 054982 

GO DTYPE 3 02981015 T 0553%2 

. END OF DBLPREC 02981030 fT 055410 
IF MAXWDTHs1 THEN GO TO MAXWOTHOF1 3 02981045 7 055410 
TLETENLOIXWHI 3 02981060 T 055584 
IF feWHL4O THEN 02981075 T 05563 
BEGIN FINDES EeERCCIF €>0 THEN TENCE] ELSE I/TENDC@EJ)>T1) END } 02981090 T 0558%0 

IF 73 AND EST2 THEN 02981105 T 05650 
BEGIN EeE+i 3 02981120 7 056684 
ITYPE: DECPT+03 GQ SETUP 3 02981135 T 056810 
END 3 02981150 T 0569%14 

If WH1S0 THEN 02981165 T 056934 
ZERO? BEGIN FNR©O4 FNL©13 GO FTYPE END 3 02981180 tT 057080 
RNDUPECMNTSSAGPCWHT Oe Tis TENLABSCE) Je IF LSSL«O>E THEN 02981195 T O572%2 
P(x) ELSE P¢/))) GEQ 5 3 02981210 T O57534 
LISTYPE@¢PCWHI»TENLABSCCENR]e 12" (MNTSSA>PCFIVEPT)) "End ) 1» 02981225 Tr O578314 
IF GTRMI THEN PC/) ELSE PCx)) 3 02981240 T 058183 

COUNTZ 3 02981255 T 058410 
IF GTRMI OR USEXPNOTATION THEN 02981270 TFT 0585150 
BEGIN 02981285 T 0586!4 

IF ENR#T3 LEQ MS3 THEN 02981300 T 058633 
ETYPEs BEGIN 02981315 T 058810 
PCWHI) 3 02981330 T O58a8%2 

IF NOT RNOUP¢TYPEZINTEGR OR DECPT=0 THEN 02981345 7 0588:3 

BEGIN 02981360 T 059484 

ENR*PCE210 AND CECE@ENRDSLO-eDUPI+1+ENR 3 02981375 T 059433 

DECPT©O3 PCTENCE**P+E]5/) 3 02981390 T 0596%1 

END 02981405 T 059823 

ELSE PCTENLABSCEFL™ENR) Je TF E<ENR THEN PCx) ELSE PC/)) 3 02981420 T 0599833 
P¢.WHisISO0) 3 02981435 T 0603%1 

IF WHIFTENCENR] THEN 02981450 T 060383 

BEGIN 02981465 T 060483 

IF CENReENR+PCE+RNOUPSIF LSS1 THEN P=(=10) ELSE*(P=9) 02981480 T 060581 

))<0 THEN ENREDECPTeO 3 02981495 T 0608!2 

E*E+1s PCTENCABSCENR@1) ]>e¢WHisISD) 3 02981510 T 061230 

END 3 02981525 T 061580 


eeevceveevceceeeeeeeeeeaewneee 8 8 


ETYPE {3 IF PCRNDOUP AND DECPT=02e0UP) THEN RNDUPeO 3 02981540 T 0615!0 
GETWOTH 3 02981555 tT 061783 
IF P THEN IF E=¢"10) AND MNTSSA<1+HALF THEN ENReO 02981570 T 061910 
ELSE DECPT¢FNLeEs9 3 02981585 T Q6223%2 
IF MAXWOTH<SGN+DECPT+CESENRI+WOTH THEN 02981600 T 062532 
NOF ITS: BEGIN IF NOT LSSt THEN GO OVRFLWs GO ZEROES END 3 02981615 7 0628314 
ENReTRZ¢0 3 02981630 T 0630!0 
ETYPE2? BASICONVERT; BUFF eP 3 02981645 T 0634%4 
STREAMCGTRMISFNREABSCF NR) sS¢FNR<OsCelLF ABSCTYPE) S0BLPREC 02981660 T 0632%2 
THEN "OD" ELSE VE"s RUFF) 3 02981675 T 0635%1 
BEGIN 02981690 T 0637%2 
STeLOC CF ST#SI+73 DNSe€CHRS MAYBECSeL ot") 5 02981705 T 063782 
SleLOC FNR} DS«GTRMI DEC} GTRMI«DI 02981720 T 0639%2 
END 3 02981735 T 0640%2 
GO BACK 3; 02981750 T 064033 
FIVERPTS s:$ 5.49755813885 3 02981765 F 064434 
GET3% PCUSEXPNOTATIONs DEL) 3 02981780 y 064310 
END ? 02981795 T O644%4 
FUNNYE? [FF NOTCE#T2 OR GTRMI) THEN GO CHOOSEI 3 02981810 7 064434 
IF CENR#MS3"*7T3221 THEN GO ETYPES DECPT«O 3 02981825 T 064620 
IF NOT CCENReEMS32T73) OR RNDUP OR MNTSSAK<14+HALF) THEN GO NOFIT 3 02981840 FT 064910 
GQ ETYPE 3 02981855 T 065232 
ZEROES! WHIeFNL©O3 IF SGN AND MAXWOTHS2 THEN GO MAXWDTHOFA3 FNReT2 3 02981870 T 065384 
FTYPES PCWHIxXTENEFNR]e eWH1eTSO)s DECRT«1 3 02981885 ~Y O657%1 
IF “2<E£ AND WHI=TENLDE*FNL+FNR] THEN 02981900 T 0659%2 
BEGIN FNLeEFNL4+13 PCTENC CEE +l DECPTeFNR>O)*1LI],eWHis ISO) ENDS 02981915 7 066233 
SETUPS ENR#TRZ¢Os GO FITYPE 3 02981930 T 0668%2 
END 3 02981945 T O067034 
IF FNR*¥FNL LEQ T2 THEN GO FTYPE. 3 02981960 T QO4670%1 
IF .$S1.8ND SGN THEN IF MAXWOTH=2 THEN GO MAXWDTHOF. 3; 029814975 T O67210 
PCRNDUP)S IF NOT FTEST THEN GO FTYPE 3 02981990 T O674%2 
GO FUNNYE 3 02982005 T 0676!2 
MAXWOTHOF 3 02982020 tT 067720 
EeO 3 02982035 T 0677340 
CHOOSET: 02982050 T 067733 
If NOT GTRMI THEN PCWHie eWHieTSD) §& 02982065 T 067733 
IF TENCE*E+1I]2WH1 THEN GO GET3 3 02982080 tr O0679:2 
IF PCMAXWDTHS190DUP) THEN SGN*SGN AND WHI40 3 02982095 T 068230 
IF NOT CP AND CSGN OR WH1>?9)2 THEN GO ITYPE 3 02982110 T 0685%4 
OVRFLW? 02982125 T 068754 
WOTH#MAXWDTHS PCNIDIS >  NIDE]NIS CHECKBUMPANDSKIPs NIDe|P 3 02982140 T 0687714 
STREAMCSVMAXWDTHIS¢SVMAXWDTHe[36%61,BUFF) 3 02982155 T 0694%2 
BEGIN SVMAXWDTHCOSeLIT™x")3 SC32CDSe2LIT*x") 3 SVMAXWDTHEDI END} 02982160 T 0693%2 
GQ BACK } 02982170 T 069633 
END OF FORTRANFREEWRITE 3 02982185 7 049782 
SIZE= 0698 wORDS 
emcees et ene ARACEAE AUN tS LE et edhe eriemennt napisy 5 omwmnntzatningensinnranarnzmsunssrssaintnast WO isaB INIA CMN iA A ions danat bie heii Sl rie se aeRO SR EEN BE ESE EIS ERNE EB ESE IEE A EON eh NRTA RSS aeRO Stewie cca eeaggitrugeepenerne 
PROCEDURE FINNAMES 4154 02982500 y O0000%0 
START OF REL SEGMENT? OFSK ADDRESS = 00427 
BEGIN , 02982520 7 000080 
COMMENT FILX FILE TOP..I0 DESCRIPTOR 02982540 T O000%0 
FMTA FORMAT OR NAMELIST OR: 0 02982560 y 000030 
LISX ACCIDENTAL ENTRY DESc, OR O 02982580 T 0000!0 
i 02982600 T c000f0 
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REAL 


ARRAY 
NAME 


INTEGER 


REAL 
ARRAY 


NAME 


REAL 


REAL 
NAME 
INTEGER 


BOOLEAN 


DEFINE 


a. 


FIRST BUFFER POSITION 
ARGUMENTS 


FIELD 
WIOTH 


LAs 
CE* 


EXPONENT 


CURRENT BUFFER POSITION 
BUFFER SIZE IN CHARACTERS 


RETURN AFTER WRITE 
SIGN 


PARL i 
EOFL =z "Oe 
FORTERR = 24s 
LISxX = "3s 
FI = "5s 
DKADR = ™ Os 
READINT = 3» 
SELECT = 443 
FMTA = Ale]; 
FILX = 87» 
MEM 3 a3 
JUNK1 ‘Ss 473 
LISTYPE = 203 
PRTBASE = 10[«]> 
TEN = 220 «l]> 
FIBC*)3 
LISTADR3 
BUFF » & 
BSIZE 2 & 
NBC» 
NLteNL&sSRSe 
NFCI»* 
DH 1-. 
WH 4 » & 
WH23 
NAMEV3 
Wi3 
RPT», 
W ak 
WT » & 
Ti » % 
Ol » & 
D2 » & 
CNT» 
EXP » & 
EXPSGNe 
NCR  & 
LCR » & 
CKR 
DONE TOG , % 
SGN » % 
LGTGs 
NTAERR » 
NL Ts 
NFL» 
CTOG3 
LOGV = Abs 
INTEGV =1t» 
DBLV s 58, 
CMPLX¥ = Ot» 
SPC = 3h» 
NUM = 2#» 
10 = t#e 
KIND = (FIBL4].CA%I41)#» 
MAX = @7777777777777Hs 
ELMTYP = LISTYPE . (C44t4l]#s 
DLN = (LISTYPE,C44%24] = HBLV)#> 


02982740 
02982760 
02982780 
02982820 
02982840 
02982860 
02982880 
02982900 
02982920 
02982940 
02982960 
02982980 
02983000 
02983020 
02983040 
02983060 
02983080 
02983100 
02983120 
02983140 
02983160 
02983180 
02983200 
02983220 
02983240 
02983260 
02983280 
02983300 
02983320 
02983340 
02983360 
02983380 
02983400 
02983420 
02983440 
02983460 
02983480 
02983500 
02983520 
02983540 
02983560 
02983580 
02983600 
02983620 
02983625 
02983640 
02983660 
02983680 
02983700 
02983720 
02983740 
02983760 
02983780 
02983800 
02983820 
02983840 
02983860 


te et as se st a st 


00000 
000080 
000080 
000030 
000010 
0000%0 
000010 
N00010 
000010 
000080 
000080 
000010 
000050 
000020 
000040 
000030 
00000 
000010 
000080 
0000 #0 
00000 
Q000f0 
0000%0 
000080 
000040 


000010 


0000%0 
000030 
000010 
000080 
000080 
0000%0 
oleloren Ze) 
o00n?0 
000010 
000080 
0000t0 
000080 
0000%0 
0000!0 
0000%0 
000030 
olezelon xe) 
o00nto 
000080 
000010 
olereloh ne) 
000040 
000010 
0000!0 
000080 
0d00%0 
000030 
0000!0 
000080 
000080 
000010 


CMPLX = (LISTYPE,C4424] = CMPLXV)#s 02983880 T 0000!0 

TWOD = LISTYPE,[38%11] 4» 02983900 T O000f0 

SIZFEF = (33215) #> 02983920 T O0000!0 

BASEF s C18ti51#3 02983940 T O000!0 

LABEL NMLST»NLERReNLPsNLPAsNRPoNLISRT*NLL» NLPBasNRPL 02983960 T O000%0 
COMMENT * * * * * START OF SUBROUTINE DECLARATIONS * # # * # ko we of 02983980 T 0000!0 
SUBROUTINE CKPB: . 02984000 T 000010 
BEGIN COMMENT INITIALIZE FILE AND ACQUIRE RECORD SIZE} 02984020 7 00014!0 
LCR « Bx(BSIZE « PCMKSsDKADRetoFILX»READINT) 3 02984040 tT 000110 
BUFF «© ¢*FILX),£3321513 NCR © 03 02984060 T 000333 
END CKPBs 02984080 T 0006!0 
SUBROUTINE READS; ; 02984100 T O0006%4 
BEGIN 02984120 T 000780 
PCMKSsDKADRs Os FILX»READINT)3 02984140 tT O0073%0 
IF DONE TOG THEN PCXIT)3 02984160 T 0008314 
IF CC*FILX).027211) THEN PCXITDIE 02984280 T 000994 
CKPB? 02984300 7 001420 
END READS3 02984320 T oO01250 
% PARAMETERS FOR LIST CONTROL 02984340 fT O012%4 
BOOLEAN ATQGs»TWDTS 02984360 T OO12%4 
ARRAY ARYL = LISTADRI*]3 02984380 T OOfoty 
INTEGER INDXs SIZE 02984400 T 001291 
DEFINE NXTELM = IF TWOT THEN PC*LARICINDX.C3327]) 15 INDX.C49381sC0C) 02984420 T OO12%1 
. ELSE CARICINDx194#3 02984440 T O0L224 
SUBROUTINE SKPC3 % SKIPS CURRENT CHARACTERSe PUTS NEXT CHARACTERS 02984460 T 0012314 
BEGIN? *® IN NBC 02984480 TFT 0014340 
STREAMCPLOBUFF eP2¢08P3¢0)3 02984500 Tt 001380 

BEGIN 02984520 7, O014%2 

St « P13 SI © Sy #13 Pi © S13 02984540 7 OOL4%2 

DI ¢« LOC P23 Of © OL+73 DS «& CHR} 02984560 7  0015%4 

END} : 02984580 T 0014610 

NBC « P3 BUFF ©« P} 02984600 T Q0016%4 

WT © WT =13 - 02984620 T OO017%4 

END SKPC3 02984640 T 001832 
SUBROUTINE SCALE3 02984660 T 001823 
BEGIN 02984680 T 001980 

IF (DL © DL + CNT) > 14 02984700 T 001980 

THEN DOUBLECWHIsWH2sTENCICNT le TENLGOFCNT JX» 02984720 tT 002031 
DH1sOsteesWHleWH2) 02984740 7 002383 

ELSE WHLe WHIXTENCCNTI+DH4s 02984760 T 00253814 

DHL © OF 02984780 tT O002810 

END SCALES 02984800 tT 002883 
SUBROUTINE GETNUM} 02984820 T 002910 
BEGINS 02984840 tT 002980 
STREAMCPI¢BUFF sP2¢IF WT < 8 THEN WT ELSE Se P3¢Q02P4¢08P5¢0)3 02984860 T 0029:0 

BEGIN . 02984880 7 003340 

SI « Ply 02984900 T 003330 

P2CTF Sc =e * " THEN TALLY © TALLY #1 02984920 7 03324 

ELSE 02984940 T 003424 

BEGIN IF SC 2 "0" THEN TALLY © TALLY # 14 02984960 7 0034%3 

ELSE JUMP OUT4 02984980 T 003534 

END} 02985000 T 003684 

SP ecSTo 4493 02985020 T 0036%4 

p2 « TALLY3 02985040 T 0036:3 

SI] « Pi3 O1 « Loc P35 DS « Pe OCT; 02985060 T 003730 

Pi ¢ ST} 02985080 T 0038!0 

DI « LOc P43 DI « DI + 73 DS © CHR} 02985100 T 003831 


ENN G 


ENDs 
NBC ¢ P}3 
ETNUMS3 


DHL « P3 


SUBROUTINE GETSIGNS 


BEGIN 


END .G 
LABEL 


BEGIN 


BLSGN 


BEGIN 


BEGIN 


END 3 
END3 


3 


BEGIN 


5#0)3 


Sl#P13  Dye+P2 


P2cnl 


PY 


eD1™83 
« S13 


4 


GO TO RINSGN3 
Lit IF $C 2 °"0" THEN 


BEGIN 
L3! P2 


L228 PSCPLeDLS TALL Yep23 PICIF Sc#" © THEN 
TALLY¢TALLY 413 
OL ¢ LOC P43 0S « 7 LIT "Or; OS « CHR3 


JUMP OUTS 


¢ TALLY 


60 TO RTNSGN3 


END; 


CNT © P3 


BUFF ¢ P3 


STREAMCPL¢BUFFeP2¢CTF WT > 63 THEN 63 ELSE WT) sP3¢0s 
P 


IF Sc#™ " THEN JUMP OUT TO L413 
St -¢ SI + 43 TALLY © TALLY «+ 1)3 


IF SC ="," THEN GO TO L33 
TALLY © TALLY4+43 


P2 


TALLYed3 


IF 
IF 


P3 

SI 

60 
RTNSGN? 
END; 
NACe¢P$ 
ETSIGN3 


« TALLY: 


PS*¢TALLY 3 
Sc="=" THEN TALLY*1 ELSE IF Secs 


SC="a" THEN TALLY©O ELSE 


BEGIN TALL Y«O3 


© TALLY? 
¢ SI-+ 13 
TO L23 


SGN¢P}; 


NCRTNsBLSGN3 
SUBROUTINE NUMCONVERTS 


DH1 t= Di t= 02 t= EXP $= EXPSEN t= OF 


WHL © WH2 # =03 


WT © Ws 


GETSIGN} 


IF DTAERR THEN GO TO NCRTN 


WT ¢ WT 


THEN IF WT <$ 0 THEN GO TO N 


CNT¢P3 


~ CNTS IF NBC <0 


IF NBC $ 9 THEN 


GETNUM; 


IF CWT ¢ WT = (D1 © CNT)) $ 0 THEN GO TO NCRTN; 


WHL © DHi; 


PLleTALLY3 


DTAERRe CCRUFFeP sO) 3} 


cd 


% BLANK FIELD 
CRTN ELSE GO TO BLSGN3 


WHILE NBC S$ "9" OR NBC =F" # OG 


GETNUM; 


SCALES 


IF (WT ¢ WT*CNT) 


IF NBC = "2" THEN 


< 


0 THEN GO To NCRTNS$ 


ST¢S1+1)3 


GO TO RTNSGN END; 


P&e(w))} 


P2*TALLY)$ P1i¢SI 


"#" THEN TALLY¢O ELSE 


02985120 


02985140 


02985160 
02985180 
02985200 
02985220 
02985240 
02985260 
02985280 
02985300 
02985320 
02985340 
02985360 
02985380 
02985400 
02985420 
02985440 
02985460 
02985480 
02985500 
02985520 
02985540 


02985560 - 


02985580 
02985600 
02985620 
02985640 
02985660 
02985680 
02985700 


02985720 © 


02985740 
02985760 
02985780 
02985800 
02985820 
02985840 
02985860 
02985880 
02985900 


02985920 - 


02985940 
02985960 


02985980 © 


02986000 
02986020 
02986040 
02986060 
02986080 
02986100 
02986120 
02986140 
02986160 
02986180 
02986200 
02986220 
02986240 


T 
T 
T 
T 
T 
y 
T 
T 
T 
iv 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
y 
t 
T 
T 
T 
T 
T 
T 
T 
Mi 
T 
T 
T 
T 
i 
T 
T 
t 
T 
T 
7 
T 
; 
T 
T 
T 


003980 
OO3984 
0041424 
O044%2 
004220 
O042t0 
004512 
0046S], 
004634 
00463 
004832 
004984 
O04g9t%> 
004983 
005041 
005044 
00502 
005330 
005510 
0056!3 
005730 
005710 
005733 
005a%0 
O05at, 
0058!3 
006083 
006433 
006212 
0062%3 
006310 
006331 
006334 
006382 
O064te 
006633 
0066!3 
Q067tO 
0067%0 
0069133 
O07 484 
O072%0 
007210 
007380 
007480 
0078523 
007834 
007910 
O07 982 
0081:3 
008432 
008623 
008613 
008930 
0094%4 
009193 
009483 
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BEGIN 
SKPC3 
IF WT<SO THEN GO TO NCRTN 3 
WHILE CNBC S$ "9") OR (NBC = " #) DO 
BEGIN 
GETNUM3 SCALES 
D2 ¢ D2 + CNT; 
IF € WT ¢ WT = CNT) § 0 THEN Go TO NCRTN3 


END} 
END; 
IF NBc = "0" OR NAC = "E* THEN SKPC3 
IF WTSO THEN BEGIN DTAERR¢TRUE$ GO TO NCRTN END 3 
IF CNBCH"+") OR CNBCH"&") OR CNBCe"™ ©) OR CEXPSGN*¢C(NBCH%=") ) 
THEN SKPC3 
IF WTSO THEN BEGIN OTAERR*€TRUE3 GO TO NCRTN END # 
IF NBC > "9" THEN DTAERR © TRUE 
ELSE 
BEGIN 
GETNUM3 
EXP ¢ IF EXPSGN THEN C*DH1) ELSE DHL 
IF CWTeWT*CNT?) S$ 0 THEN GO TO NCRTN3 
IF NOT NLT THEN WHILE WT > 0 DO SKPC3 
END} 
NCRTNS 


IF WH1 = 0 THEN IF SGN THEN WH1 © #03 
END NUMCONVERTS 


LABEL NMBLNK3 
REAL SUBROUTINE NMSCN; 


BEGIN: 
NMBLNK 3 . 
If NCR 2 LCR THEN READS? 
STREAMCPI¢BUFF esP2¢(CTFCTIe€LCR*NCR)263 THEN 63 ELSE T1)> 
P3 «0%P4<Q)3 
BEGIN 
SI «Pts 
P2cIF Sc #" " THEN JUMP OUT TO L413 
SIT ¢« ST + 13 TALLY © TALLY + 1393 
P2 « TALLY3 TALLY © 13 
GO TO Leas 
Lit P2 « TALLY TALLY © O3 
L2: Pt «© TALLY} P3 ¢ SI3 
END? 
BUFF « P3 NCR © NCR4P}. IF P THEN GO TO NMBLNKS 
STREAMC PL «BUF Fe P2e0sP3¢0, Phe" sPS5e¢O2NFL? 3 
BEGIN 
St « Fi3 
NFLCIF Sc2"0" THEN JUMP OUT TO NU) 3 
IF $C 3 ALPHA THEN 
BEGIN 
NI « LOc P43 OY € DI + 23 
6CIF SC < "A" THEN JUMP OUT? 
DS ¢ CHR# TALLY © TALLY #* 173 
P41 « SE} P3 ¢ TALLY? : 
ve PALLY ©: 43° GO TO EXIT; 
END 


NFLCIF SC#"*" THEN IF SC#t+" THEN IF SC#"&" THEN JUMP OUT} 


JUMP QUT TO NU) 3 


02986260 
02986280 


02986300 © 


02986320 
02986340 
02986360 
02986380 
02986400 
02986420 
02986440 
02986460 
02986480 
02986500 
02986520 
02986540 
02986560 
02986580 
02986600 
02986620 
02986640 
02986660 


02986680 


02986700 
02986720 
02986740 
02986760 
02986780 
02986800 
02986820 


02986840 


02986860 
02986880 
02986900 
02986920 
02986940 
02986960 
02986980 
02987000 
02987020 
02987040 
02987060 
02987080 
029871400 
02987120 
029871440 
02987160 
02987180 
02987200 
02987220 
02987240 
02987260 
02987280 
02987300 
02987320 
02987340 
02987360 
02987380 
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009232 
009310 
0094t0 
0095%4 
00978 
0097%2 
010030 
010191 
0103%2 
010430 
010420 
010730 
O109%2 
011340 
0411540 
O117%2 
0411920 
OL119%2 
012030 
012140 
0123%2 
012583 
012982 
012982 
O129%2 
O132%2 
0132%3 
013283 
0133%0 
013340 
013340 
013540 
013823 
013983 
013983 


014010 


0141%2 
Ol42%4 
0142:3 
014370 
014332 
O144to 
O1dasy 
0146%2 
014833 
01483 
0149t0 
015033 
O15.t4 
015134 
0151423 
015340 
0153:%3 
O1S4ty 
015423 
045433 
015633 


| 


TALLY ¢ 13 P3 © TALLY: 
OI « LOc P23 pr ¢« DI + 73 
IF SC 2"#" THEN BEGIN DSe_LIT*a"s SIeSI+1 END ELSE 


IF SC ="£" THEN BEGIN OSeLIT "93 SY ¢ ST+#4 END ELSE 
IF SC "2" THEN BEGIN DSe_LIT "€"%3 ST ¢ SI+1 END ELSE 
DS «CHR; 

Pl ¢ SI3 

TALLY © 3% GQ TO EXIT? 


Nu? 
P41 « SI$ TALLY « 23 

EXIT? 
PR ¢ TALLY> 

END; 

Ti © Ps NAMEV © P3 NCR © NCR + P3 NBC ¢ P3 BUFF «& P3 

IF Ti = ID THEN NBC « NAMEV3 

NMSCN ¢ T13 


END NMSCNS 
SUBROUTINE NLCONVS 


BEGIN 


IF NBC = -"." THEN 


BEGIN: 


END3 


STREAMCPIsBUFFSP2¢0)3 
BEGIN DI © Pis DI « DI *™ 13 PL © DIS END3 
BUFF « Ps NCR ¢ NCR = 43 


W # LOR*NCR3 

NUMCONVERTs 

IF (NCR « NCR + (WRWT)) 2 LCR THEN READS} 
Ti © EXP = Das 

IF WHL > MAX 


THEN 
IF Ti 2 0 THEN DOUBLECWHLsWH2eTENCTI J] > TENL694TI Ip Xe 
eeWHis WH?) 
ELSE OOUBLECWHY*WH2>TENC@TL) + TENL OO" TL Ie /» 
es» WHI» WH?) 
ELSE 


IF Tl 2 0 THEN WH1 «© WHI x TENrT1) 
ELSE WH1 «© WHI / TENC "T4123 
IF SGN THEN WH1 ¢« = WH 


END NLCONV$ 
LABEL NLR» SUBD} 
SUBROUTINE SUBEVULS 


BEGIN 


NLRs 


IF NMSCN 4NUM THEN GO TO NLERR?: 

CHR © FMTACNLIGNLI4+13,C126]3 % # DIM 
NFECI « 13 NLCONV3 

IF (D240) OR CEXP # 0) THEN GO TO NLERR3 
S$8S ¢ WHiw13 

IF NMSCN # SPC THEN GO TO NLERR3 

IF NBC = ")" THEN GO TO SUBD; 

IF NFCI = CHR THEN GO TO NLERR3 

NLCONV3 


02987400 


02987420 - 


02987440 
02987460 
02987480 
02987500 
92987520 
02987540 
02987560 
02987580 
02987600 
02987620 
02967640 
02987660 
02987680 
02987700 
02987720 
02987740 
02987760 
02987780 
02987800 
02987820 
02987840 
02987860 
02987880 
02987900 
02987920 
02987940 
02987960 
02987980 
02988000 
02988020 
92988040 
02988060 
02988080 
02988100 
02988120 
02988140 
02988160 
02988180 
02988200 
02988220 
02988240 
02988260 
02988280 
02988300 
02988320 
02988340 
02988360 
029886380 


02988400 © 


02988420 
02988440 
02988460 
02968480 
02988500 
02988520 
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015610 
O158t0 
015870 
015810 
0158%2 
015940 
016082 
016032 
0162306 
0163%2 
016323 
016440 
016432 
016482 
O164%ea 
016520 
016570 
016544 
O165%2 
O1l6ete 
017012 
017130 
017340 
017320 
017320 
017383 
O17 ary 
017522 
017682 
O17 B94 
Ol7er4 
017932 
018430 
018550 
018644 
0186?3 
018730 
O19aks 
019280 
019643 
O197%2 
01973 
O20080 
O203%4 
0205:0 
020534 
O205%4 
020610 
020610 
020810 
021082 
021230 
O214%2 
0215383 
021880 
O219%4 
022032 


° 
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IF (D240) OR CEXP#0) THEN GO To NLERR3 02988540 T 022210 
WHL ¢ WH1 ™ 13 D2 ¢ O3 02988560 T O224t2 
WHILE D2<NFCI DO WHI © WHIxFMTACNLI*(D2ep241913 02988580 7 022632 
SBS ¢ SBS + WH13 02988600 T 023431 
NFCI «© NFCI + 13 02988620 T O232%2 
GO TO NLR3 02988640 7 023313 
SUBD! 02988660 T O234%4 
INDX ¢ INOX + SBS; 02988680 T 023481 
Ti © NMSCN3 02988700 T 023532 
END SUBEVUL;3 02988720 T 023712 
COMMENT © w * & * ok * & * # END OF DECLARATIONS * + * * # ke wow ee 02988740 T 023733 
NFLeL 3 02988745 T 023723 
FILXCNGQT 4) ¢« EOFL: FILXCNOT 33 « PARL3 02988760 T 024830 
FIB ¢ FILXENOT 233 % OPEN FILE IF NOT OPEN 02988780 tT 0254:%2 
IF FIBE5],€45%#2) # (TL * 2) THEN 02988800 7 025384 
POMKSsOsTLeFILXelsSELECT)3 02988820 T 0255%4 
% SET/CHECK FOR MIXED FORMATTED = UNFORMATTED 1/0 02988860 T O257%4 
CKPB3 02988880 T O257%4 
IF FI8£0) = 0 THEN FIBLO] t= 4 ELSE 02988900 T 025830 
IF FIBLO] NEQ@ 1 THEN PCMKSsFIRCO] oF ILX.C33215] ¢4eFORTERR)3 02988920 T 026033 
NMLST3 02989000 T 026433 
NLE © FMTACFYJel2:1033 02989020 T 026433 
NLT « TRUES 02989040 T 02664 
SKPC} NCR ¢ NCR + 13 02989060 T 0267:0 
WHILE NMSCN ¢ SPC OR NBC #4 "$" DO BEGIN READS SKPC3 END3 02989080 T 026914 
NCR ¢« NCR + 43 02989100 7 O274to 
IF NMSCN # ID THEN GO TO NLERR3 02989120 7 027533 
IF FMTACFIJe012%36)] # NBC THEN . 02989140 T 027880 
BEGIN READS$ GO TO NMLST3 END3 . 02989160 Y 027982 
NLP: IF NMSCN #4 Ip THEN GO TO NLERR3 02989180 T 028142 
NLPAS 02989200 T O284!10 
NLI © FI4#13 T1 © NLEG 02989220 T 028410 
WHILE T1 >0 90 02989240 T 0286:0 
BEGIN 92989260 T 028734 
IF NBC = FMTACNLI],(€12236] THEN GO TO NLPB 02989280 Tr O287%4 
TL © TL © 43. 02989300 T O289%4 
NLT ¢© NUIT + 2 * FMTACNLI413.013613 . 02989320 T O290%2 

END; 02989340 T 029332 
% NOT FOUND 02989360 T 029430 
WHILE (T1¢ NMSCN) # SPC ORCNBC # s* AND NBC # "$t) DO 02989380 T 029480 
IF T1 = NUM THEN NLCONV3 02989400 T 029832 
IF NBC = "$" THEN BEGIN DONETOG * TRUE READS END} 02989420 T 0301482 
GO TO NLP3 02989440 T 030580 
NLPB? 02989460 7 030532 
ATOG «© CTOG ¢ FALSE 02989480 T 030582 
LISTYPE « FMTACNLI],0221013 — 02989500 T 030683 
: IF CTLePMTACNLT413.018830)) £0 THEN 02989520 T 030894 
BEGIN 02989540 T 031033 
SIZE CINDX¢T1,BASEF 471 eSIZEF } 02989560 T 0314214 
ATOG « TRUES 02989620 fT 031430 
END? 02989640 y 034413 
IF (T1 © FMTACNLI417,£7#113) < 1024 THEN 02989660 T 031413 
LISTADR « CPRTBASELT1]] 02989680 T O0317%4 
ELSE LISTAOR ¢ IFUL. (3931] THEN CMEMCLISX"T4,041#731) 02989700 T O3Laty 
ELSE C€MEMECLYSX+71,06402811793 02989720 T 032430 
IF ATOG THEN TWOTeNOT PCHCLISTADREMEMEC#CLISTADRI)2£18315]])» 02989740 T 032633 
TOP> XCH* DEL) 02989745 T 0330314 
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ELSE Wie*LISTADR 5 


IF LGTG=O0 THEN T1*NMSCN ELSE BEGIN NBCeLGTG$ LGTG*O END} 
IF NBC ="C(" THEN 
BEGIN 
IF NOT ATOG THEN GO TO NLERRS$ 
SUBEVUL 3 
END; 
IF NBC # "=" THEN GO TO NLERR$ 
Ti © NMSCN3 
NRPt IF Tl =NUM THEN 
REGIN 
NLCONV3 
IF NMSCN #SPC THEN GO TO NLERR$ 
IF NBC # “*" THEN GO TO NLISRT; 
RPT * WHis 
IF (D240) OR CEXPZO)THEN GO TO NLERR3 
IF NMSCN = NUM THEN GO TO NRP# 
END3 
NRPL 8 
IF NBC = "eo" THEN 
BEGIN 
IF ELMTYP #4 LOGV THEN 
BEGIN 
NLCONVS T1 © NMSCNS GO TO NLISRT3 
ENDS 
Ti & NMSCNS 


NLL$ WH1 © CNBC.Ci2%6)= "T"); 
WHILE CTI*NMSCN) # SPC OR (NBC¥*S$* AND NBC # “atty 


GQ 
END} 

IF 
BEGIN 

IF 


NO TF T1= NUM THEN GO TO NLERR3 


TO NLISRT3 
NBC &"(" THEN 


NMSCN # NUM THEN GO TO NLERRS 


NLCONVS JUNK1 ¢WH13 
CTOG « TRUES 


TE 
IF 


NMSCN # SPC OR NBC # "+" THEN GO TO NLERR3 
NMSCN #NUM THEN GO TO NLERR; 


NLCONVS 
WH2 ¢ WHis WHL © JUNKI3 


IF 
GO 
END} 
IF 
GO 
NLISRTE 
IF 
BEGIN. 
IF 
W4 


NMSCN # SPC OR NBC # ")" THEN GO-TO NLERR3 
TO NLISRTS 


ELMTYP #LOGV THEN GO TO NLERR$ 
TO NLL3 


ATOG THEN 


INDX 2 SIZE THEN GO TO NLERR3 
* NXTELMs 


INDX « INDX+ (DLN OR CMPLX)3 
INDX ¢ INDX + 13 


ENDS © 
IF 


ELMTYP = INTEGV THEN WICOJeWHY DIV 1 ELSE 


WLCOJ] + WH13 


TF 
IF 


CDOLN OR CMPLX) THEN W101] «wha; 
NOT €CTOG E@V CMPLX) THEN GO TQ NLERR3 


02989750 
02989760 


02989780 


02989800 
02989820 
02989840 
02989860 
02989880 
02989900 
02989920 
02989940 
02989960 
02989980 
02990000 
02990020 
02990040 
02990060 
02990080 


02990100 


02990120 
02990140 
02990160 
02990180 
02990200 
02990220 
02990240 
02990260 
02990280 
02990300 
02990320 


02990340 © 


02990360 
02990380 
02990400 
02990420 
02990440 
02990460 
02990480 


02990500 | 


02990520 
02990540 
02990560 
02990580 
02990600 
02990620 
02990640 
02590660 
02990680 
02990700 
02990720 
02990740 
02990760 
02990780 
02990800 
02990820 
02990840 
02990860 
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03374:0 
0333:0 
0337%92 
O33a%4 
033833 
0339%2 
034,410 
034130 
O342%4 
0343:2 
O34qry 
0344%3 
034610 
0348:0 
O349%4 
0350%0 
O352%2 
0355%0 
Q355%0 
0355:0 
035523 
O356%4 
0357%2 
035870 
0364!0 
036130 
O362t2 
O364%1 
O367%4 
O370%4 
037033 
037033 
O374%2 
037220 
037410 
0375?3 
037632 
0380%14 
038230 
0383%0 
O38 4teo 
038844 
0388'3 
038853 
0390390 
039140 
039440 
039484 
039473 
039310 
O397%2 
0404 %4 
0402%0 
0402%td 
O4085t2 
040633 
041142 
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~ PROC 


COMM 


REAL 


ARRA 
NAME 


REAL 
INTE 
REAL 


ARRA 


NAME 
REAL 


IF ATOG THEN IF (RPT © RPT#4) > O THEN GO TO NLISRTS 
NFL©O3 WHILE NBC#¥%s.* AND NBC#*S" DO PCNMSCNSDEL )3 
IF NBC = "$" THEN BEGIN DONETOG © TRUES READS$ ENDS 
IF NOT ATOG THEN GO TO NLP3 
IF ELMTYP # LOGV THEN IF (NMSCN sID ) 
THEN GO TO NLPA ELSE IF NBC2"s" THEN GO TO NRP 
ELSE BEGIN WH1*WH2+0; 6O TO NLISRT ENDS 
IF CT1 * NMSCN) = NUM THEN GO TO NRP3 
IF NBC = "4" THEN GO TO NRPL3 
WH1 ¢ NBC3 T1 © NMSCN# 
IF NBC # "ys" THEN 
BEGIN 
LGTG « NBC3 NBC « WH13 GO TO NLPA3. 
ENDS 
WHL © (WHI.01226] = "T!); 
GQ TO NLISRT3 
NLERR? 
PCMKSsFIBCO],FILXsC33¢15)] »1eFORTERRD3 
END FINNAME3 


EOURE FOUTNAMES 4155 


BEGIN 
ENT FILX FILE TOP I0 DESCRIPTOR 
FMTA FORMAT OR NAMELIST ORO 
LISx ACCIDENTAL ENTRY DESC, OR O 
; 
FORTERR = 24s 
LISX = "41s 
FI = 3,» 
DKADR = mas 
Y FMTA = —2C*), FPB = 3C*) 3 
FILX = 5% 
MEM = 23 
ALGOLWRITE = 12: 
SELECT = 143 
GER LSTRN = 193 
LISTYPE = 20s 
ARRAYSTUFF: = 182 
NAMEV = 213 
Y PRTBASE = 10Le]> 
TEN. = 22[*]s 
TPAR = 23fels 
FIRE #14 
LISTADRS 
BUFF » & FIRST BUFFER POSITION 
BSIZE » ® ARGUMENTS 
FLG » & TRUE FOR SERIAL Ivo 
WH4» 
WH2 , % 
Wt s % 
Wwe » % 
NFCT 3 % NEXT FORMAT CHAR LOCATION 


NFLed 3 


02990880 
02990900 
02990920 
02990940 
02990960 
02990980 
02991000 
02991020 
02991040 
02991060 
02991080 
02991100 
02991120 
02991140 
02991160 
92991180 
02991200 
02991220 
02991240 


SEER RLS SENTERO TAN ON teats ine st pean 


02991260 


START OF REL SEGMENTS DISK 


02991280 
02991300 
02991320 
02991340 
02991460 
02991500 
02991520 
02991540 


92991560 © 


02991580 
02991600 


02991620 


02991640 
02991660 
92991680 
02991700 
02991720 
02991740 


02991760 
02991780 © 


02991800 
02991820 
02991840 
02991860 
02991880 
02991900 
02991920 
02991940 
02991960 
02991980 
02992000 


T O413%3 
T 0416%3 
T O422%02 
T 042630 
YT 0426%3 
tT O430%4 
| 0431433 
T O43410 
y 0436%2 
T 043733 
T O44039 
T QO444%4 
T 0441443 
T 044323 
T 044313 
T O448%2 
T 044610 
T 044630 
T OQO44810 
SIZE=2 0449 


tT O00d0T0 
ADDRESS = 
000010 
0000%0 
900080 
0000t0 
oLelexen Ry) 
000030 
O000!0 
000080 
0000!0 
000030 
000080 
oO00t0 
0000%0 
000080 


000040 
000030 
000020 
0000:0 
000030 
000030 
000030 
00000 
000080 
000030 
000080 
000080 
0000!0 
0000%0 
0000:0 
000080 
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000030. 
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| 
| 
| 
| 
| 


e0442 


e 


INTEGER DH4 » & CONV 
DHe  & ERTED NU 
DH3 2 & MBER 
OW » & FIELD 
WT yp & WIOTH 
Ti ,& 
8) a & DEC™ 
OT » % IMAL P# 
01 » & LAe 
02 » & CE= 
03 » & $ 
ZEROS 2 & TRAILING ZEROES 
EXP » % EXPONENT 
SHFT » & INTEGER PART OF SHIFT 
Cone eo & EDITING FUNCTION 
SKP » & REDUNDANT POSITIONS 
NCR a % CURRENT BUFFER POSITION 
LCR » & BUFFER SIZE IN CHARACTERS 
CHR 3% CURRENT CHAR FROM FORMAT 
BOOLEAN DONETOG » & RETURN AFTER WRITE 
SGN 2 & SIGN 
PRNTR 2% TRUE IF PRINTER OUT PUT 
DTOG » & DOUBLE PRECISION TOG 
CTOG 3 & COMPLEX NUMBER TOG 
DEFINE LOGV = tes 
INTE GV T1ts 
OBLY = 5t#s» 
CMPLXV = Ot» 
ETYPE = Of. 
DTYPE = At, 
ITYPE = 5%, 
LTYPE = Of» 
ELMTYP = LISTYPE , [C44i4)#,» 
DLN = (LISTYPE.£4424] BNpLV) es 
CMPL X = CLISTYPE,£4424)] = CMPLXV) 8s 
TWwON = LISTYPE,C36%1I1#>» 
ENDLIST = (LSTRN & Cel) ) fs 
SIZEF = (333145383 


LABEL EFRTNsEsDCele Le AST» COMMe NMI sNM2 9 FMERR} 
COMMENT © *» * * * START OF SUBROUTINE DECLARATIONS * * * * # & # & GB 
SUBROUTINE CKPRB; 
BEGIN COMMENT INITIALIZE FILE AND ACQUIRE RECORD SIZE3 
LCR «© 8x(BSIZE « PCMKSsFLGrDKADRe Or ("12 FIL X*#ALGOLWRITE) 23 
IF PRNTREPRNTR&CCCTISFIBE4),[C8:4)])=1 OR Tis? OR T1*#i2) AND FPBEFIB(4) 
0 013241243).043251<20) 047247241 THEN 
IF BSIZE GEG 17 THEN BEGIN LCR 3s 1323 BSIZE t= 17 END3 
IF PRNTR AND BSIZE=17 THEN LCRe120 3 
BUFF t=cIF T1 t= PRNTR THEN TPAR ELSE *FILx).€33215173 
IF CCNOT T1) OR PRNTR, £46243) THEN 
STREAMCP2 © CBSIZE™1),£36261>5 
PR36T1L, CATIA] +BSIZE"1sP4eBUFF) 3 
BEGIN DI ©« P43 OS ¢ B LIT * %3 
SI ¢ P43 
P2(08S ¢ 32 WOS3 OS « 32 WDS); 
DS © P3 WDS; 
ENDS 
NCR ¢ O03 


02992020 
02992040 
02992060 
02992080 
02992100 
02992120 
02992140 
02992160 
02992180 
02992200 
02992220 
02992240 


02992260 


02992280 
02992300 
02992320 
02992340 


02992360 © 


02992380 
02992400 
02992420 
02992440 
02992460 
02992480 
02992500 
92992520 
02992540 
02992560 
02992580 
02992600 
02992620 
02992640 
02992660 
02992680 
02992700 
02992720 
02992740 
02992760 
92992780 


02992800 


02992820 
02992840 
02992860 
02992880 
02992885 
02992900 
02992920 
02992960 
02993020 
02993040 
02993060 
02993080 
02993100 
02993120 
02993140 
02993160 
02993200 
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0000!0 
000010 
0000%0 
000080 
o000%0 
0000%0 
000010 
000020 
000020 
000080 
000050 
000080 
000080 
000030 
000050 
0000!0 
000080 
0000:0 
o000%0 
olereleR Re) 
0000380 
0000t0 
000070 
o00ntO 
000080 
0000t0 
elelelen ae) 
0000%0 
0000t0 
000080 
00000 
00000 
00001t0 
000030 
000030 
0000!%0 
000080 
000020 
000080 
0000%0 
000050 
0001,%0 
000710 
000482 
000910 
001330 
OO16EY 
001883 
0022%2 
002420 
0026:0 
0028 %4 
002933 
0030!0 
00314%14 
003433 
003230 


REAL 


ENO CKPRS 


SUBROUTIN 
BEGIN COM 
IF PRNTR 
BEGINS 


E PRNT3 
MENT 
THEN 


NCR ¢ Q3 
STREAMCPL*O3P2¢TPAR)S 


BEGIN SI ¢P23 


IF NCR 


DI ¢ P23 
NCR ¢ P3 
IF NCR = 
IF NCR 


ait 


GENERATE A CALL FOR CAR. CONT. AND FOR QUTPUT? 


DI « LOC P13 OI «D1 + 73 DS «CHR; 
DS ¢« LIT " "3END3 


" " THEN D2 ¢ 16 ELSE 
"O" THEN 02 ¢ 32 ELSE 
"+" THEN D2 ¢« O ELSE 


IF (D2 ¢ NCR) > 9 THEN D2 © 163 
IF NOT PRNTR,€C4681)] THEN FIBCI7IJ¢FIBL1714+BSIZE 5 


PCMKSs02.F42t21s02.C44th]sPRNTRel46tL1,BSIZEs+FILX*ALGOLWRITED 3 


FIBC6]+FIBCOI*(D2=0) 3 


IF NOT C*FILX). C1951) THEN PCF YLXs@2000000000»2sCOM*sDEL»DEL)3 


PRNTReW3 


CKPB 3 


STREAMCPL¢TPARsP2enF IL Xe P3¢BSIZE. [3616] sP4eBSIZE)3 


BEGIN 


SI + Pls DI « P23 DS « P4 WDS3 
P3(DS ¢32 WDOS3 DS © 32 wNs)3 
DIeP1s PacDSesLIT™ ") 3 


END; 


FIBCI7JeFIBCi7I"BSIZE; IF DONETOG THEN PCXIT) 3 
END ELSE BEGIN PCMKS»FLG»DKADR»OsBSIZEsFILXsALGOLWRITE)3 
IF DONETOG THEN PCXIT)3 


CKPB 
ENO PRNT? 


BOOLEAN A 
ARRAY ARYL 


END 3 


% PARAMETERS FOR LIST CONTROL 


TOGseTWOTs 


= LISTADRE*]3 


LABEL RTNLST*SRT3 


SUBROUTINE GETNMLSTS 


REGIN 


BEGIN 


END? 
ENO G 
BEGIN 
SRT: 
BEGIN 


BEGIN 


INDXsSIZEsNL Is NLES 


DEFINE NXTELM = IF TWOT THEN PCHCARICINDXs £3337] ] 1+ INOX,£40%81sCNC) 


ELSE ARICINDXI#; 


IF C(NLE ¢ NLE = 1) <0 THEN LSTRN © @ 4 ELSE 


NAMEV © FMTACNLT© NEI+11,012236)3 
LISTYPE « FMTA CNLIV,C231033 
ARRAYSTUFF © FMTACNLI#NLI417,018230]3 


If (Ti ¢ 


FMTACNLIJ.€7211] ) < 4024 


THEN LISTADRe [CPRTBASELTII] ELSE 
IF T1,03921) THEN LISTADR © CMEMILISX*"C(TI, Lans79502 


ELSE LISTADR « CMEMELISX4#(71, 04088] )1)3 


NLT © NLT + FMTACNLII.019613 


ETNMLST3 


SUBROUTINE GETLIST3 


IF ATQG THEN 


IF DLN THEN 


02993220 
02993240 
02993260 
02993280 
02993300 
02993320 
02993340 
02993360 
02993380 
02993400 
02993420 
02993440 
02993460 
02993480 
02993520 
02993540 
02993560 
02993580 


02993600 © 
02993620 — 


02993640 
02993660 
02993680 
02993700 
02993720 
02993740 
02993760 
02993780 
02993800 
02993820 
02993840 
02993860 
02993880 
02993900 
02993920 
02993940 
02993960 
02993980 
02994000 


02994020 


02994040 
02994060 
02994080 
02994100 


02994120 


02994140 
02994160 


02994180 
02994200 


02994220 
02994240 
02994260 
02994280 
02994300 
02994320 
02994340 
02994360 


sa st st a a 8 st se ss a st a sg st ss 


0032:3 
0033:0 
003320 
003340 
003384 
003323 
003419 
0034680 
003780 
003810 
0038t2 
O040%2 
004310 
004582 
004B%2 
005210 
005584 
005733 
006410 
006310 
0065i2 
006542 
006632 
006733 
007080 
007084 
OO73%4 
007633 
007733 
007920 
OO79%4 
0079384 
007984 
CO79t4 
007934 
007934 


O079%4 


OO79TY 
008080 
008070 
0083%4 
0083%3 


 O084%4 


008733 
eek Ton 
009413 
009333 
009930 
0102 %4 
010434 
O104%4 
O104%2 
010810 
010520 
010534 
010533 
010730 


@eeeee5eeeeeses#5qeee#e#s#eeeeee#e®e6 


WH1 © NXTELM3 
INDX «© INDX + 143 
WHA ¢ NXTELM3 
END ELSE 
BEGIN 
WHL © NXTELM3 
WHE © OF} 
END3 
IF CINOX ¢INDX + 41) 2 SIZE THEN 
BEGIN 
ARRAYSTUFF © 03 
ATOG « FALSE} 


6Q TO RTNLST3 


IF cTQG THEN 

BEGIN. % IMAGINARY PART OF COMPLEX 
WH1 © LISTADRE 133 
WH2 © O3 
CTOG « FALSE 
@0Q TO RTNLST$ 

Ends 
GETNMLST3 
IF ENDLIST THEN GO TO RTNLST3 

IF ARRAYSTUFF # 0 THEN 

BEGIN 
ATOG « TRUE 
SIZE*CINDX*ARRAYSTUFF.C18215])+ARRAYSTUFF,.SIZEF 3 
TWOTENOT PC*CLISTADREMEMCECECLISTADRI2.£1831533),TOP)3 PCDEL) § 
GO To SRT; 

END} 
IF NOT PC*LISTADRe TOPs XCHsDEL) THEN LISTADRePC*LISTADR) 3 
WHi «© LISTADREOIS 
WH2 ¢ IF DLN THEN LISTADRE1iJ] ELSE O03 
CTOG © CMPLX3 

RTNLST$ 

END GETLIST; 

SUBROUTINE NMSZ$3 


BEGINS 
STREAMCPLECNAMEVJ]$P2¢0)3 
BEGIN 
SI «P13 SI « SI + 23 
4CIF SC = " "* THEN JUMP OUTS 
SI ¢S]T + 13 TALLY © TALLY + 193 
P41 «TALLY; 
END} 
NFCI « P3 
END NMSZ3 
SUBROUTINE PUTS 
BEGINS 
STREAMCPLI©CNAMEVISP2¢NFCIleP3¢BUFF 3 
BEGIN 
SI « P13 ST ¢SI + 23 DS ¢p2 CHR 
P1 ¢« DI3 
END3 
BUFF « P3 
END PUT3 
+ x Pa 


02994380 
902994400 
02994420 
02994440 
02994460 
02994480 
02994500 
02994520 


02994540 - 


02994560 
02994580 
02994600 
02994620 
02994640 
02994660 
02994680 
02994700 
02994720 
02994740 
02994760 
02994780 
02994800 
02994820 
02994840 
02994860 
02994880 
02994900 
02994910 
02994920 
02994970 
02994980 
02994985 
02995000 
02995020 
02995040 
02995060 
02995080 
02995100 
02995120 
02995140 
02995160 
02995180 
02995200 
02995220 
02995240 
02995260 
02995280 


02995300 


02995320 
02995340 
92995360 
02995380 
02995400 
02995420 
02995440 
02995460 
02995480 


a a st a a a A A A ss st A 


010742 
011240 
OLL3ty 
011733 
011753 
Ollast 
O122%3 
012382 
O123%2 
0125%4 
012533 
012622 
012734 
012734 
012783 
012733 
012870 
O12at2 
013030 
013013 
0134%2 
013240 
01320 
0133%0 
O134%2 
O1L135%4 
013513 
013632 
O1L39%1 
014384 
014333 
014323 
014683 
OL4a7ia 
01514342 
01533814 
O153%4 
0153%2 
015470 
015410 
O155%4 
O155%4 
01553 
015740 
015733 
0188%0 
015834 
0158%3 
015980 
015920 
015980 
016012 
0160%2 
016482 
016183 
016230 
0162%2 


SUBROUT 
BEG 


IN 
IN 


E FUNNYZERQ3 


SKP © W = (D+6+S6N)3 
STREAM(P1¢ BUFF EP2¢SKPsP3¢SGNsP4e(D44))3 
BEGIN 
OL «Pl? DI « OY + Pee 
P3(DS © LIT "="3 JUMP OUT To Los 
Lt OS ¢ 2 LIT "o,"3 
P4aC(DS © LIT @ 3 
Pi « OF3 


-END3 


BUFF «  P3 


END FUNNYZERO; 
SUBROUTINE FINDES 


BEGIN 


ERTN3 


IF DTOG THEN 
DOUBLECTENCO]+0sWH1s WH2sx,eeWH1eWH2) 
ELSE WH1 « TENLOJ x wWH13 
EXP © (CO8WHIC42234618WH1r132%13412)%,9039) +,53 
Wo « Of 
IF OTOG THEN 
TF EXP 2 QO THEN DOUBLECTENCEXPJ] + TENLO9+EXP) > ¢oW19W2) 
ELSE DOUBLE C1*O* TEND ™EXP Je TENT O9"EXPJ + /seeW1eW2) 
ELSE W1 ¢ IF EXP 2 0 THEN TENCEXP] ELSE 1/TENC@EXP]3 
IF WHI > Wi THEN GO TO ERTN3 
IF WH1 = W1 THEN 
IF WH2 2 W2 THEN GO TO ERTN; 
EXP ¢« EXP{3 


END FINDES 
SUBROUTINE NUMCONVERTS 


BEGIN 


END NUMCONVERT3 


IF 01 2 0 THEN 

BEGIN 
NOUBLECWH Is WH2sTENC LO] » TEND ESI s/s eeWieW2) 3 
DHL ¢ WL DIV 1,03 


END3 
IF 02 > 0 THEN 
BEGIN IF DTOG THEN 
BEGIN 


NOUBLECWHI»sWH2sDH1*OsTENC 16] sTENC BS ]exeme 
TENE BI eTENC77)a/eeeW1eW2)3 
DH2 ¢ Wi DIV 1? 


END 
ELSE DW2 ¢ WH1 DIV TENC8]3 
ENDS 
IF OTQG THEN 
BEGIN 


DOUBLE CWHLsWH2snH12O> TEND 16] >TENC B85 }exe 
Eo DR2rO*TENL BIsTENC77 J axetemeeeWisW2)3 
DH3 © WI OLIV |3 
END 
ELSE OH3 © WHI DIV 13 
EXP © EXPetL} 


SUBROUTINE SETD3 


BEGIN 


IF DLN AND OT > 23 THEN 


02995500 


02995520 © 


02995540 
02995560 
02995580 
02995600 
02995620 
02995640 
02995660 
02995680 
02995700 
02995720 
02995740 
02995760 
02995780 
02995800 
02995820 


02995840 - 


02995860 
02995880 
02995900 
02995920 
02995940 
02995960 


02995980 - 


02996000 
02996020 
02996040 
02996060 
02996080 
02996100 
02996120 
02996440 
02996160 
02996180 
02996200 
02996220 
02996240 
02996260 
02996280 
02996300 
02996320 
02996340 
02996360 
02996380 
02996400 
02996420 
02996440 
02996460 
02996480 
02996500 
02996520 
02996540 
02996560 
02996580 


02996600 - 


02996620 


016243 
016310 
0163%0 
O165%4 
016732 
0167290 
O168%4 
0170380 
O17022 
017423 
017240 
O17 234 
017283 
017320 
017310 
017334 
O17 684 
O17BI0 
018293 
01832 
018333 
018810 
019433 
Q19942 
020083 
020442 
020334 
O204to 
O204to 
020433 
020510 
020510 
020533 
0204614 
020984 


O210%2 


021042 
O214%4 
021280 
0212!%2 
O21534 
021783 
021910 
021980 
O222%2 
02222 
022213 
022334 
022523 
022984 
0230%2 
0230!2 
023234 
0233%2 
023383 
023420 
023430 
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BEGIN 
ZEROS*DT*233 OT « 233 D1 « 73 D2 « D3 © 8} 
END ELSE IF DT>12 AND NOT OLN THEN 
BEGIN 
ZEROS¢DT*123 OT * 123 Dleos M2 © 43 DB © 83 
END ELSE IF 07216 THEN 
BEGIN 
D1+DT "163 D2¢D3¢8; 
END ELSE IF nT > 8 THEN 
BEGIN 
D1ieOs02eDT"83 D3e8s 
END ELSE 
BEGIN 
Ni+N2«O3N3eDTS 
END; 
END SETO3 


SUBROUTINE RNDOFF Ss 


BEGIN IF OTOG THEN 
IF T1 2 0 THEN 
DOUBLE CWHI es WHO ee Se TENLCTIJ es TEND Ti +69] o Xe te ees WHisWH2) ELSE 
DOUBLE CWHL oe WHO os So TENC MTL es TENLOO"T1 Jefe tee o Wht eWH2) 
FLSE WHi © WH + CIF T120 THEN SxTENC TL] ELSE S/TENE™T1393 
END RNDOFF: 
SUBROUTINE SCALE? 
BEGIN TF DTOG THEN 
BEGIN IF Ti 2 0 
THEN DOUBLECWHLs WH2sTENLC TL Je TENLTI+69) 9 Xs ee WHI es WH2) 
ELSE DQUBLECWHLs WHO*sTENC@T1 Ie TENC69"TI1 I 9/9 ee WHI 2 WHO D3 
IF WHI 2 TENEDOT] THEN 
BEGIN 
EXP. « EXP + 13 
DOUBLE CWH1I» WH2s TEND 1]205/, es WHI s WH2)>3 
END ; 
END ELSE WH1 ¢ IF T1 2 0 THEN WHIXTENETLI] ELSE WHI/TENCHT193 
END SCALE3 
Praca keekkekeee ST AR T OF EDIT#CONTROL Fee ae ee RE 
SUBROUTINE CONVERTS 
BEGIN 
DTOG += FALSE3 
SGN ¢WH1,f13133 IF CODE < LTYPE THEN WHi © ABSCWH1)3 WT © Wi DT © DE 
DHL © DH2 ¢ DH3 «© ZEROS ¢£XP ¢ SKP © SHFT + Di « D2 ¢« D3 « Q3 
GO TO PCCONEsDUPsADD)3 
GO TO FMERR; 
GO TQ FMERR; 
GO TO FMERR} 
GO TO E3 
GO To Ne) 
GO TO 13 
GO Te v3 
Lt COMMENT LOGICIAL CONVERSIONS 
IF W >1 THEN SKPeW=CWTE1); 
WHLe QR&CIF WH1 THEN "TT" ELSE “FP oCt2s4226)3 
STREAMCP1. t= BUFFEP2 i= WH1sP3 $= SKPs PA se WwT)3 
BEGIN DI t= F13 DI t= DI + P33 
SI := LOC P2s SI t= SI + 23 
NS t= P4 CHR} Py t= DY3 
END: 


02996640 
02996660 


02996680 


02996700 
02996720 
02996740 
02996760 
02996780 
02996800 
02996820 
02996840 
02996860 
02996880 
02996900 
02996920 
02996940 
02996960 
02996980 
02997000 
02997020 
02997040 
02997060 
02997080 
02997100 
02997120 
02997140 
02997160 
02997180 
02997200 
02997220 
02997240 
02997260 


02997280 © 


02997300 
02997320 
02997340 
02997360 
02997380 
02997400 
02997420 
02997440 
02997460 
02997480 
02997500 
02997520 
02997540 
02997560 
02997580 
02997600 
02997620 
02997640 
02997660 
02997680 
02997700 
02997720 
02997740 
02997760 


AH AA AAAs st st a a a st A tt st ht ot st tt a a ts 


023614 
023633 
024033 
024342 
024420 
O024Bi4 
024932 
025080 
025232 
025343 
Q254%4 
025710 
025750 
025732 
0259%a 
025932 
0259%3 
026010 
026094 
0264%2 
O26631 
027110 
027620 
027730 
027710 
O277it 
027810 
O282%4 
028633 
O287:3 
028824 
028912 
O29a%4 
O29n%4 
029784 
029732 
0297%2 
029830 
029810 
0298:3 
030333 
030910 
031040 
031032 
031140 
O344%2 
031210 
031242 
0313'0 
O313%2 
0313%2 
031612 
031993 
032112 
O322%1 
0322383 
0323%2 
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BUFF 
GO To 
It 


f= Ps 
COMM; 
COMMENT INTEGER CONVERSIONS 
IF WH1=O AND WH2=0 THEN DT © 03 ¢« 4 ELSE 
BEGIN IF OTOG THEN 
NOUBLE CWHisWH2ee,Se¢e te WHisWH2) % ROUND OFF 
FLSE WHL ¢ T1 ¢ WHY 
FINDE3 
IF EXP < 0 THEN DT ¢« 03 ¢ 1 ELSE 
BEGIN 
IF COLN AND EXP224) OR CNOT DLN AND EXP212) THEN GO AST3 
OT « EXP+13 SETD$ NUMCONVERTS 
END; 
END; 
IF OT + SGN > W THEN GO To AST3 
IF W > OT + SGN THEN SKP « W ™ DT -™ SGN3 


STREAMCP14¢03P2 ¢ DisP3 © DHisP4 © D2eP5 ¢ DH2>, 
P6 © D32P7 ¢ DH3*P8 « SGN*P9 © SKP»P10 ¢ BUFF); 


BEGIN DI © p1ds POCDI « Ol + 193 
PBCDS e°L7T "e™)53 
St ¢Loc P34 DS + P2 DEC 
SI « LOC P53 DS + P4 DEC 
S$] « LOC Prs DS « P& DEC 
Rae Oa4 

ENQs 

BUFF « p3 


GO TO COMM; 


OCs 
Es 


COMMENT DOUBLE PRECISION CONVERTsSAME AS E CONVERT; 
COMMENT E CONVERSIONS : 
DTOG © TRUES 
SETD3 
IF WH1=0 AND wWH2 = 0 THEN 
BEGIN 
IF W < (0+6+ SGN) THEN GO TO AST; 
FUNNYZERO? GO TO COMM; 
END ELSE 
BEGIN 
FINDE: 
IF (SKP « Wp = 5 = SGN) < 0 THEN GO TO ASTS SETD3 
IF OT LSS O THEN OT s# 03 
Ti © EXP = OT3 RNDOFF? 
SETD: 
TLicDT"1=EXP3 SCALE? 
NUMCONVERTS 
END} 


STREAM(P4 © O3P2 ¢ SKP»P3 © SGNsP4 © D1isPS « DHi»s 
P6 ¢ D2eP7 ©¢€ DH2eP8 ¢ D3eP9 € DH3eP1O © CDLN)« 
Pit « CEXP < O)sP12 ¢ ABSCEXP)sP13 © SHFT»P14 © ZEROS*¢P15 «BUFF)3 


BEGIN 


DI ¢ P15; DI ¢ DI + P23. P3CDS © LIT "m3 
Pa ¢ DT DS © LIT "."3 

SI « Oc P53 DS « P4 DEC; 

SI ¢ 0c P73 DS © P6 DEC3 

ST. « LOC P93 DS ¢ P8 DEC} 

Pq_4cos ¢ LIT ™ "03 OS .« LIT we; 

P{OCDT «© OL = 13 OS « LIT “pw)3 
p> - eh en 

P11CDI « DI = 13 DS © LIT "t=ny3 


02997780 
02997800 
02997820 
02997840 
02997860 
02997880 
02997900 
02997920 
02997940 
02997960 
02997980 
02998000 
02998020 
02998040 
02998060 
02998080 
02998100 
02998120 
02998140 


02998160 © 


02998180 
02998200 
02998220 
02998240 
02998260 
02998280 
02998300 
02998320 


02998340 © 
02998360 
02998380 


02998400 
02998420 
02998460 
02998480 
02998500 
02998520 
02998540 
02998560 
02998580 
02998600 
02998620 
02998640 
02998660 
02998680 
02998700 
02998720 
02998740 
02998760 
02998780 
02998800 
02998820 
02998840 
02998860 
02998880 
02998900 
02998920 


AAA HHH HAH HH Ht Ct st at st A tt st tt A tt 


032323 
032424 
032433 
032423 
O328%1 
032910 
0334:3 
0335%4 
033630 
0338%2 
033910 
O344%9 


034810. 


034830 
034830 
034913 
035324 
035570 


035682 


035733 
035930 
035943 
036012 
036484 
0364%2 
0364%3 
O0362%4 
0362:3 
03623 
036283 
036340 
036510 
036613 
O367%4 
034695892 
037482 
037452 
0372140 
0373%0 
037770 
037910 
038140 
0348210 
038570 
038610 
038620 
0387 '3 
039010 
039280 
039484 
039520 
039533 
039632 
O397%4 
039920 
OK00t> 
040120 
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END; 
BUFF « P3 


AST? 
STREAMCP1 
BEGIN 
BUFF ©¢ P3 
COMM: 


SI « LOc Pi23 DS « 2 DEC} 
Pl ¢ OF 
P13¢Dr1 « Pes SI «+ P23 SI ¢ SI + 13 
OS « P13 CHRS DS ¢ LIT ","3 JUMP OUT TO X)F X3 


60 TO COMM; 


¢ OPQ « BUFF s»P3 ¢« W)3 
DI ¢ Pas P3CDS © LIT "Ne")3 Pi ¢ DI3 END3 


END CONVERTS 


COMMENT © & # xe ® & * # Ww * END OF DECLARATIONS * woe * ke Ho we ke ow eG 
FIRB ¢« FILXCNOT 2173 


IF DKADR 


* OPEN FILE IF NOT OPEN 
< 0 THEN BEGIN FLG © 1% DKADR «0 END} 


TF FIBCS1,043343 THEN PCMKSsOsOsFILXetsSELECT)3 


— PRNTRe2x¢ 


IF PRNTR 


FIBCES1.€41:2140) 3 2%% IFF FILE IS CLOSED» SETS PRNTR,C46i1]=1, 
THEN STREAMCTPAR)$ DS*8LIT" ™ 3 


CKPBS ARRAYSTUFF « Q3 


IF FIBCO] = 0 THEN FIBLO} t= 1 ELSE 

IF FIGCO} NEQ 1 THEN PCMKS+FIBL6],FILX £33215] 24s FORTERR)S 
LSTRN «03 CHR « * "S$ NLI « FI3 

NAMEV « CHR&"™S$"C1834286]3 

NCR «NCR + CNFCI ¢ 293 PuT3 

NAMEV «© FMTACNLI],01293613 

NLE © FMTACNLI2.£281073 

NMSZ3 PUTS NCR « NCR + NFCI3 | 

NAMEV « CHRS NCR « NCR + CNFCI ¢ 123 PUTS 


NM1s GETLIST# IF ENDLIST THEN 
BEGIN: 
STREAMCPL*CBUFF)3 
BEGIN 
Ot ¢« Pls DI « DY = 33 DS « LIT "8"; 
END3 
DONETOG « TRUES PRNT3 
END3 


IF PRNTR THEN PRNT3 


CODE*eNAMEV 3 NAMEVeCHR3 NCReNCR#(NFCI©2)3 PUT3 NAMEV«eCODE3 


NM238 


BEGIN 


NNSZ3 

IF ELMTYP = INTEGV THEN 

BEGIN W «123 D ©03 CODE ¢« ITYPE END ELSE 

IF ELMTYP = LOGV THEN 

BEGIN W «13 CODE « LTYPE END ELSE 

IF FLMTYP = DBLV THEN 

BEGIN W «293 D «233 CODE ¢« OTYPE END ELSE 

REGIN W «183 0 * $23 CODE © ETYPE END3 

IF (6 + W + NFCI + € IF CMPLX THEN (W+3) ELSE 0) + NOR) 
2 LCR THEN PRNT3 

PUT? % NAME 

NCR © NCR + NFCT + 33 

NAMEV ¢ CHR&"™ ="012236812)3 NECI. «3% PUT; 

IF ELMTYP &= CMPLXV THEN 


IF CNCR#W+W46) 2 LCR THEN PRNT3 
NCR « NCR + CNFCI ©€1)3 NAMEV © CHR&™C"£1284286)3 PUTS 


02998940 
02998960 
02998980 
02999000 
02999020 
02999040 
02999060 
02999080 
02999100 
02999120 


02999140 


02999460 
02999180 
02999200 
02999220 
02999240 


02999260 © 


02999280 
02999290 
02999300 
02999320 
02999340 
02999420 
02999430 
02999440 
02999450 
02999460 
02999470 
02999480 
02999490 
02999500 
02999510 
02999520 
02999530 
02999540 


02999550 


02999560 
02999570 
02999580 
02999590 
02999600 
02999610 
02999620 


02999630 © 


02999640 
02999650 
02999660 
02999670 
02999680 
02999690 
02999700 
02999710 
02999720 
02999740 
02999750 
02999760 
02999770 


Ea a a aa a a a a st a st st 


O402%2 
040320 
O403%4 
O40ate 
O406F4 
040642 
040720 
040730 
O407t2 
O409t0 
0414140 
O414%2 
O41132 
O414%3 
044423 
042333 
042682 
0429%2 
043920 
O435%4 
043683 
043942 
044312 
044523 
O447%2 
045080 
045,42 
045340 
0456%4 
046010 
046010 
046210 
0462%2 
O463R4 
O463%4 
O46484 
O4b4to 
04660 
046620 
046840 
047323 
Q474tO 
O47 S84 
047810 
048484 
O4B38 4 
O48510 
048713 
OAD0IS 
O49524 
049830 
049910 
050033 
0504!0 
050534 
050533 
051030 
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NCR ¢ NCR + We CONVERT 

NCR © NCR + (NFCI¢1) 
CTOG ¢ TRUE: 
GETLISTs 
NCR ¢ NCR + Ws CONVERT: 
NCR © NCR + CNFCI €493 
NAMEV © CHR&") eo" 4283621273 PUTS 

END 
ELSE 

BEGIN 
IF €NCR + W + 3) 2 LCR THEN PRNT3 
NCR © NCR + Ws CONVERT? 
NCR ¢ NCR + (NFCI © 323 
NAMEV © CHR&™,"£42:4226]3 PUT3 

END} 
IF NOT ATOG THEN GO TO Nt; 
GETLIST} GO TO NM23 

FMERR? 

PCMKSsFIRC GI] sFILX. £33545] 20sFORTERRD} 

END FOUTNAME3 


me ean MT LESTER RLS T EE EEE RTE ERI EO TH ARS tn bg RIMMING STNG GN ab eae gacaeeestaw pcp yurn ag aeean 
is RHR ERR EGR SST rg Ln eteet renee cmmnent Tag tte Paneer mere Surae oye ete TT 


PROCEDURE DABS 3 % 052 


COMMENT ABSOLUTE VALUE OF A DOUBLE PRECISION NUMBER3 % PF 
BEGIN REAL X zm oie 
XL o= "2s 
; JUNK = 473 
PCXsSSP5 e JUNK» STDeXLeRTN)3 
ENN DABS 


PROCEDURE CABS 3 % 053 


COMMENT COMPLEX ABSOLUTE INTRINSIC} % PF JUNE. 67 
BEGIN REAL X = “15 
YR 2, 
SQRTs4+1 3 
PCINTDESCCSQRTI)) 3 
IF ¢X ¢ ABS€X)) = 0 OR CY «© ABSCY)) = O THEN PCXe Ye ADD RTN) 
ELSE IF X > Y THEN PCMKSst9YoXs/*DUP*MUL sADDs SQRTsXeMUL) 
ELSE PCMKS#15X2Y¥s/*DUPsMUL 2 ADDs SQRT + Ye MUL D3 
PERTNDS , 
END CABS} 


PROCEDURE AINT 3 % 054 


3 
3 NAMEV © CHR&™s"C12842:6)5 PUT; 


WORDS 


SEAR Men SHEAR RARER aN ee tan 


02999780 TF O51810 
02999790 T 051770 
02999800 TF 0522:0 
02999810 T 052233 
02999820 T 0524:0 
02999830 T 052630 
02999840 7 052723 
02999850 T 053120 
02999860 T 053;,:0 
02999870 T 0534:0 
02999880 T 053410 
02999890 fr 0537140 
02999900 T 053940 
02999910 T 054033 
92999920 T Q5&4aio 
02999930 7r 054410 
02999940 T 0544%3 
02999950 7 054622 
02999960 7 O546!%2 
02999970 T QS548!9 
SIZE= 0549 
03000000 T OdO000%0 
START OF REL SEGMENTS DISK ADDRESS «= 
JUNE 67 03000100 TF O000t0 
03000200 tr c00nt0 
03000300 T 0000!0 
03000400 T O000:t 
03000500 Tt O000t0 
03000600 T 0004!2 
SIZE= 0002 
03100000 7 O000!06 
START OF REL SEGMENT3 DISK ADDRESS = 
03100100 T O000%0 
03100200 T 0000%0 
03100300 7 d000t0 
03100800 fT O000t0 
03100410 rt O000tO 
03100500 T 0004%2 
031900600 T 0006%4 
03100700 T 001033 
03100800 T O014%0 
03100900 T OO14%14 
SIZE* 0015 
03200000 T 0000!0 
START OF REL SEGMENT? DISK ADDRESS = 


00461 


WORDS 


00462. 


wORDS 


00463 


cy @ e@ & @ e ® ®@ & ® @ & e @ ] & cs] & @ a ®& &, 


ee ee ee ee ee, ee ee en er er. 


BEGIN REAL xX = °43 03200100 
POXetsD1TVaRTN)3 03200200 
END AINT3 03200300 
PROCEDURE MATHS % 055 03300000 

START OF REL SEGMENT? DISK 

COMMENT MATHEMATIC MANIPULATION INTRINSIC % PF JUNE 67 03300100 
CODE = 3xTYPECOP 1) + OXOPERATOR + TYPECOP 2) 03300200 
TYPE VALUE OPERATOR VALUE 03300300 

REAL 0 + 0 03300400 

NOUBLE 4 - 4 03300500 

COMPLEX 2 * 2 03300600 

Doo . / 33 03300700 

BEGIN REAL CODE = =1» 03300800 
A = "3>» 03300900 

R= ss 03301000 

C= "5s 03301100. 

0 = "6s 03301200 

FRR = 24% 03301250 

T3 03301300 

LABEL RPLUSD» RPLUSC» DPLUSC# CPLUSD» CPLUSC*RLESSDeRLESSC»DLESSC» 03301400 
CLESSD»CLESSCoRTIMED*RTIMECsDTIMECeCTIMEDsCTIMEC®RDIVDDs 03301500 
ROIVOC*ODIVDCsCDIVDDsCOIVDC»sCTIMERsCDOIVDRs INL INES 03301600 

GO TO PCCONDE»DUP?ADD); 03301700 
GO TO INLINES % REAL + REAL 0 03301800 
GO TO RPLUSD3 * REAL + pOUBLE 1 03301900 
GO TO RPLUSC3 % REAL + COMPLEX 2 03302000 
GO TO INLINES % MOUBLE + REAL 3 03302400 
GO TO INLINES %* OOUBLE + DOUBLE 4 03302200 
GO TC DPLUSC3 % DOUBLE + COMPLEX 5 03302300 
GO TQ INLINES % COMPLEX + REAL 6 03302400 
GO TO CPLUSD3 % COMPLEX + DOUBLE 7 03302500 
GO TO CRLUSC3 % COMPLEX + COMPLEX 8 03302600 
GO TO INLINES % REAL = REAL 9 03302700 
GO TO RLESSDS % REAL = DOUBLE 10 03302800 
GO TC RLESSC % REAL = COMPLEX se 03302900 
GO TO INLINES % NOUBLE = REAL 12 03303000 
GO TO INLINES % DOUBLE = DOUBLE 13 03303100 
GO To DLESSC % MNOUBLE = COMPLEX 14 03303200 
GO TO INLINES 4 COMPLEX = REAL 15 03303300 
GO TO CLESSD3 % COMPLEX = DOUBLE 16 03303400 
GO TO CLESSC3 % COMPLEX = COMPLEX 17 03303500 
GO TO INLINE? % REAL * REAL 18 03303600 
GO TO RTIMEDS & REAL » DOUBLE 19 03303700 
GO TO RTIMECs. % REAL * COMPLEX 20 03303800 
GO TO INLINES % QOOUBLE * REAL 21 03303900 
GO TO INLINES % DOUBLE * DOUBLE 22 03304000 
GO TC OTIMEC3 % OQUBLE x COMPLEX 23 03304100 
GQ TO CTIMERS % COMPLEX x REAL 24 03304200 
GO TO CTIMED % COMPLEX x DOUBLE 25 03304300 
GO TO CTIMECS % COMPLEX =x COMPLEX 26 03304400 
GO TO INLINES % REAL / REAL 27 03304500 
GO TO RoOIVOOS % REAL / POUBLE 28 03304600 


y 000010 
y ooootd 
T 9001430 


T oooato 
ADDRESS «= 
00001%0 
900080 
o000toO 
0000%0 
000d0!0 
000010 
0000f0 
000080 
el exelen ee) 
00000 
000080 
000040 
000080 
oo0c0t0 
000010 
000010 
000080 
0000f0 
000184 
00043 
O00aty 
000283 
O00 %1 
000333 
O004at{ 
000433 
OOOS!t 
000533 
000634 
000613 
000724 
0007%3 
0008tt 
000823 
0009214 
000933 
OdLor4 
0010%3 
OO1L21 
00113 
OOyaty 
001233 
0013%4 
0013743 
OOLa%4 
001433 
O015t4 


A a HH st a a tt ss st 


SIZEs 0002 WORDS 


00464 


eeeeeeeeeeeeeeewnee eee 6 


GO TO Rolvoe3 


& REAL /¢ COMPLEX 29 
GO TO INLINES & QOUBLE / REAL 30 
GO TO INLINES % DOUBLE / DOUBLE 31 
GO TO DpIvocs  OOUBLE / COMPLEX 32 
GO TQ COIVORS % COMPLEX / REAL 33 
6QO TO COIVOD3 & COMPLEX / DOUBLE 34 
GO TO Corvocs % COMPLEX / COMPLEX 35 


RPLUSD? PCOsCeBeAsDL Aa eBeSTDs eCoSTDSXITIS 
RPLUSC? PCAsCeADD® Be .CoSTDe,ReSTD*XIT)} 

DPLUSC? PCAsC» ADD» eCeSTDe Be De STDeXITIY 

CPLUSD! PCAsCeADDe eCeSTDsXIT)3 

CPLUSCE. PCASC#ADD2 oCoSTDo Bs De ADD» .DeSTHeXIT IF 
RLESSO2 PCOrCe BeAr DLSseBeSTD» .CeSTOsXITI3 
RLESSCS PCC»AsSUBSB9 CHS» .CoSTD» Be STDeXIT)$ 
DLESSC! PCCreAsSUBs CeoSTDsBeCHSe De STDs XIT)3 
CLESSN! PCCHeAsSUBs Ce STDsXIT)3 

CLESSC! PCDeBsSUBs De STDr Ce As SUBs eCeoSTDe XIT)S 
RTIMED! PCOreCeBe Ae DLMse.BeSTDe,CeSTDeXITI3 
RTIMECS PCCeDUPs Be MUL» eCoSTDeAsMULs Be STDeXITI} 
DTIMEC? PCC#DUPZASMULs .CoSTDeBe MUL» De STDeXIT3 
CTIMER? PCAsDUP*Be MUL» eBs STD eCoMUL» aCeoSTDeXITI3 
CTIMED? PCAsDUPsCeMUL» eCoSTOeDeMULs eDeSTDeXIT)S 
CTIMEC? PCAs CeMUL»DeBeMUL» SUBsC*BeMULearDe MUL ADDs .OeSTDs eCaSTDeXIT)3 


RDIVDDs PCOsCeBrAsDLDs eBsoSTDe oCeSTOPXITIS 


RDIVOC! PCC»AsDUPsMUL sBsDUP»MUL* ADD» /eDUPs Be MUL» CHS» 
aCeSTOsAsMULs «Bo STOeXIT)? 

DDIVOC! PCCeAsDUPs MUL Bs DUPsMUL* ADD e /sDUPs Be MUL se CHSe 
Ds STDeAsMULs oCoSTO»XIT)3 

CDIVDR? PCBtAs/s eBeSTDaCeAs/e eCeSTDaXIT)3 

COIVOD? PCCeAs/e eCoSTDDe Ae /e Ds STDOXIT)E 

CDIVDC! PCAsCeMUL*BeDeMULs ADD» As DUP>MUL* Bs DUPs MUL» ADDs pp Te STNo/> 
AsDeMUL* Be CoMULs SUBS T#/s.DeSTD» .CoSTDeXITI3 

INLINE? P¢MKSs102ERR)3 % COMPILER WRITERS ERROR 

ENO MATH} 


PROCEDURE XTOI$ — % 086 


COMMENT VARIOUS COMBINATIONS OF X TO THE I % PF JUNE 67 
CODE = 3xTYPECOP 1) + TYPECOP 2) 


TYPE VALUE 
REAL Q 
DOUBLE 4 
: COMPLEX 23 
BEGIN REAL CODE = mls 
: A ™3» 
Bos "4, 
C = °Ss 
ND = "6s 
JUNK F478 


Tarte Ve4e2eERR=+32B00L=+d4eCDTOGS4+5 § 

REAL EXPINTS27e°LNINT S29 3 

INTEGER Ja+6el¥JeR=CNTGG } 

REAL EXPs+7sLN3+8eDEXPSEXP*DLOG=ELNs CABSE+9n ATAN254#10sSQRTHH lle 


03304700 
03304800 
03304900 
03305000 
03305100 
03305200 
03305300 
03305400 
03305500 
03305600 
03305700 
03305800 
03305900 
03306000 
03306100 
03306200 
03306300 
03306400 
03306500 
03306600 
03306700 
03306800 
03306900 
03307000 
03307400 
03307200 


03307300. 


03307400 
03307500 
03307600 
03307700 
03307800 
03307900 
03308000 


03400000 


START OF REL SEGMENTS DISK 


03400100 
03400200 
03400300 
03400400 


03400500 © 


03400600 
03400700 
03400800 
03400900 
03401000 
03404100 
03401200 
03401300 
03401350 
03401400 


03401500 © 


- 
T 
T 
i. 
T 
T 
7T 


T 
T 
T 
1 
T 
T 
T 
T 
T 


T 
T 
T 
a 
T 
T 
T 
T 
ii 
T 


ad 


T 
T 
T 
T 
T 
T 


001533 
00416%14 
001633 
QO01734 
001773 
001834 
001823 
OO19t4 
002133 
002480 
002684 
002733 
003022 
003320 
00350 
0038'0 
O0039%2 
O042%4 
Q044:3 
004752 
OO5084 
0053!0 
005513 
0060%2 
0063%0 
006624 
006880 
0074714 
007320 
007523 
00782 
0082:3 
00B86%14 
008750 


SIZE= 0088 


T 


0000%0 


ADDRESS = 


A a 


00000 
000080 
0000%0 
0000!0 
000010 
000080 
000080 
000050 


WORDS 


00467 


O000t0 © 


0000f0 
Q000t0 
0000%0 
00000 
0000380 
0000%0 
0000?0 
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biti Saale Stine et lt 


© 


COSs412eSINee+13 3 

PEFINE DFE CDOFLISFLAGCOFL OR T) # 3 

LABEL REXPORsDEXPOR,REXPODsDEXPOD.CEXPODsCEXPORsREXPOCsDEXPOCeL 1» 
LeeLee lL4sCEXPOCesCOENTsRDENT,TOPL es TOPIL eo PI2eTPI2sHAF sPI»MAXe 
FOS6sL 5ePITseCREL ePICKsRXLeRx2eREXPORL*CEXPOD2 F 


PCORBS. 124127] 0-DF(FORTERRI)202020)3 IF CODESO THEN GO REXPOR 3 
IF cODR<S THEN IF CODE#2 THEN REGIN PCDFCDEXPI)sDFCOLOQGI))% GO PICK END; 
PCDFCEXPI)sDFCLNI)»DFCCABSI ) »DFCATAN2I) sOFCSQRTI) sDFCCOSI) »DFCSINID) 3 


GO 


TO 
TO 


T+O 3 

P¢(CODEsDUPs ADD )3 

REXPORS % REAL «** REAL 0 
REXPOD: % REAL ** DOUBLE 1 
REXPOCS % REAL ** COMPLEX 2 
DEXPOR3 % MOUBLE ** REAL 3 
DEXPOD? & DOUBLE ** DOUBLE 4 
DEXPOCS % OOUBLE «** COMPLEX 5 
CEXPORS % COMPLEX ** REAL 6 
CeEXPODs % COMPLEX ** DOUBLE 7 
CEXPOC3 & COMPLEX ** COMPLEX 8 


DEXPOC® RePC.C)3 TePC.D)s CHeC+ORCl 181 8BISOlC 47392133 GO L3 3 
REXPOCS ReP(.B)s T*PC.C) & 


L33 


L43 
L53 


L41t 


423 


IF €=0 THEN BEGIN PCO)3 GO Li END 3 
IF BeO THEN 
BEGIN 
IF A2Q THEN BEGIN P(1)3 Gn Li END 3 
IF C>O THEN GO L5 3 
IF ABSCA) LEQ PCMAX) THEN IF PCAs .-B00L2TSN)5A THEN 
BEGIN AeBGOL 3 
PCABSCC)sAeMKSs .EXPeLODs INTCALLC#PCeLNI*XTOIID DEL? 3 
IF B40 THEN GO L23 IF BOOL THEN PCCHS) 3 
PCRsSTDe Osta STDeXIT) 3 


END 3 
TePCPII «A; PCMKSsMKSsABS(CI) oLNeaAe Xe EXP D3 690 L23 
END 3 
TeCVeEPCMKSs ABSCC)eLN))xB 3 
IF AzQ THEN 
BEGIN 


IF C>O THEN PCMKSaTsCOSsReSTOoMKSeTeSINe le STDeXIT) § 

PCMKS»CrPCPI))xBs EXP) 3 

PEOVER eMK Ss Te COS exe Re STO eMKSe Te SINeVexeleSTOsXIT) 3 

END: 3 
IF C<O THEN 

BEGIN PCMKSsVxAwBxPC PII sExP)3 TeT+#PCPI])xAs GO L2 END 3 
IF ABSCA) LEQ 1923 THEN IF PCA, eBOOLeISN)SA THEN GO La 3 
P(MKSsAXVeEXP)4 GO L2 & 


CEXPOC! IF B=0 THEN GO CEXPOD2 3 


Pyi 


the 
MAX 33 
PITs3: 


RePCet)# LePp(.0)3 IF D=O THEN GO L3 3 
IF C=O THEN BEGIN TeABS(D)3 PCPIT)3 IF D<O THEN PCSSN)3 VeP END 
ELSE BEGIN TePCMKSsDeCeCABS)3 VePCMKS»sDeCeATAN2) END 3 
TeCBOOLePCMKSsTeLN))xB4VxXA3 POCMKS+BOOLXA™VXBeSEXP)3 GO L2 3 
3,14159265359 ; 
@O0O7777777777777 5 

- 61444444176652104 § 


REXPOR!: IF Bs 0 OR B = 1 THEN PCXIT)3 


IF A = 0 THEN P(1>.BsSTD®XIT)3 
IF ABSCA)<4096 THEN IF (J#A)=A THEN 


REXPOR1: BEGIN IF BOOLeU<O THEN Jed 3 


03401510 
03401520 
03401600 
03401700 
03401710 
03401800 
03401900 
03401910 
03401920 
03402000 
03402400 
03402200 
03402300 
03402400 
03402500 
03402600 
03402700 
03402800 
03402810 
03402815 


03402820 © 


03402825 
03402830 
03402835 
03402837 
03402840 
03402845 
03402850 
03402855 
03402860 
03402865 
03402870 
03402875 
03402880 
03402885 
03402890 
03402895 
03402900 
03402905 
03402910 
03402915 
03402920 
03402925 
03402930 
03402950 
03402965 
03402970 
03402975 
03402980 
03402985 
03402990 
03402991 
03402992 
03403000 
03403100 
03403200 
03403300 


a a ss hs) ts ss as sh st a gs) ss 


000010 
00000 
000010 
000050 


000080 


000080 
0004%2 
0009%2 
001682 
O017%4 
0018314 
001833 
001934 
001933 
o020t1 
002083 
002154 
002153 


(002281 


0022:3 
002830 
002982 
003132 
OO3a%4 
003273 
003443 
0036:0 
003853 
004030 
004333 
004610 
004732 
O047 ta 
0054214 
0051 °4 
005333 
0054%2 
005530 
005910 
0060%2 
O06ate 
006482 
006544 
OO7Ot 
007382 
007514 
OO76te 
007984 
0083%4 
OO8734 
OO93%4 
009530 
0096t0 
0097380 
0099%2 
010443 
010482 


eoeeoseeeevsee3e3eweeeeeeeeee 6 


REXPOD! 
DEXPOR: 
DEXPOD! 
RDENT?$ 


CEXPOR? 


CDOENTS 


PCJeeTsSTOsBd3 
WHILE ¢(T « (J « ToeCa6erid) x 0 D0 
BEGIN PCDUP)3 
IF J THEN 
BEGIN Vie V #* 43 
PCDUP )3 
END3 
PCMUL)3 
ENDS 
WHILE (V ¢ V = 1) 2 0 Do PCMUL)3 
TF BOOL THEN PC1*XCHe/)3 
IF COTOG#O. THEN 
BEGIN 
IF CDTOG>2 THEN PC.CaeD) ELSE PC,Boel) 3 
Je CUeA) AND 33 
IF BOOL AND J THEN JeCJ+#2) AND 33 
IF C=O THEN RX1! PCOsXCHsSTDsSTDsXIT) 3 
IF J = 0 THEN GO RX4;3 
IF J=1 THEN BEGIN PCxCH)s GO Rx4 END 3 
IF J®2 THEN RX23 PCO*XCH*# STD XCHe CHS» XCHeSTD»XIT) § 
PCXCH)I3 GO RX2 3 
END 3 : 
P¢,BeSTOeXIT93 
END; 
IF B>0 
THEN PCMKSsMKSs Bo LNINTsAsXeEXPINTs eBe STN sXIT)E SFORTRAN ONLY 
PCMKSs41sERR)3 
PCO*#eBeeC)3 GO RDENT 3 
P(CCeaBo es CeBs BeOs GO RDENT 3 
PCNaeCeeD) 3 ; 
CODE*Ps ReP3 JUNKeP3 IF C=O THEN PCOsCODEsSTDsXIT) 3 
IF ARO THEN PCLseReSTpeOscopksSTOeXIT) } 
IF B = 0 THEN 
IF ABSCA)<PC( F096) THEN IF CJe¢ASA THEN 
BEGIN IF BOOL ¢ J < 0 THEN J ¢ #y3 
PCJa.TeSTDeJUNKeC) 3 
WHILE CT © (J © 7),£36811]) # 0 DO 
BEGIN PC .AsSTDsDUPs As XCHPADZ 
IF J THEN 
BEGIN Ve V + 43 
PC.APSTD®DUPSAsXCHSADS 
END} 
PCDLM)3 
END; 
WHILE (V ¢ V ™ 1) 2 0 DO PCDLM)3 
IF BOOL THEN PCeTeSTDsO0sXCHsteXCHsTsDLD) 3 
PCReSTOsCODE*STD»XIT) 3 
END3 
IF €>0 THEN PCMKSsMKSs JUNKs CoDLOGs JUNKs Bs As DLMs DEXPs CODES STDe 
HUNK eRe STDeXIT) 3 
PCMKSs11/ERR)3 
IF B =Q THEN IF C = 0 THEN PCXIT)3 
IF A = 0 THEN PC15,BeSTD+ 0s eCeSTDsXIT)3 
IF ABSCA)<P(FO096) THEN IF (Jea)eA THEN 
BEGIN 
IF Cso OR B20 THEN 
BEGIN CDTOGe+CDTOG OR 23 IF BO THEN BeC3 GO REXPOR1 END 3 


03403400 
03403500 
03403600 


03403700 — 


03403800 
03403900 
03404000 
03404100 
03404200 
03404300 
03404400 
03404410 
03404415 
03404420 
03404422 
03404424 
03404425 
03404430 
03404435 
03404440 
03404445 
03404450 
03404500 


03404600 © 


03404700 
03404710 
03404800 
03404900 
03405000 
034054100 
03405200 
03408100 
03408200 
03408300 
03408400 
03408500 
03408600 
03408700 
03408800 
03408900 
03409000 
03409100 
03409200 
03409300 
03409400 
03409500 
03409600 
03409700 
03409800 
03409900 
03410000 
03410100 
03410200 
03410300 
03410305 
03410310 
03410315 


SAA AA AAA AA A A tt a tO tt a 


010733 
010823 
O114%2 
0411%3 
O112%0 
0113%3 
011420 
011420 
O114ts 
O116!0 
011940 
O120%2 
O121%1 
012133 
O124%2 
0126814 
012994 
013473 
013310 
0135%0 
013884 
013930 
013920 
013983 
0139%3 
014030 
0143!2 
O144ty 
0145%2 


0148, 


0149%0 
015233 
015573 
0156%2 
015913 
016340 
016434 
016780 
016812 
016a:%3 
O170!%e2 
O1724%0 
O17230 
O172%¢ 
017283 
0175:3 
O178to 
017983 
017933 
048ato 
0185'0 
018583 
O0188it2 
019482 
O0194t4 
019423 
0196%2 


@®eeesrseeese#eeee#eeeee2eee8e¢8e80e0e0e 86 


IF BOQLeJ<O THEN Jeng 3 
GO CREL3 FO96!2%: 40963 CREL? 
PCJ* .TeSTDeCeB)s 
WHILE (T «© (J © T),£36211]) 4 0 00 
BEGIN PCsAsSTDsDUPs As XCHs A); 
IF Jo THEN 
BEGIN Ve V + 43 
; PC,AeSTD2DUPSAeXCHE ADS 
END3 


END} 
WHILE (Ve Vo* 1) 2.0 90 
PC.A2STDs.Be STD» .CeSTDsDUPsAsMUL*BeCoMUL* ADD» 
XCHsCHSsBsMUL Ae Ce MUL» ADD D3 
IF BOOL THEN PC eAtSTDecHSsQUPsDUPsMUL » As DUP» 
MUL 2 ADD, eBeSTNe/eAs Be /)} 
IF COTOG THEN PC,C#STD+eDeSTD*XIT) 
ELSE PC.«BeSTDs eCeSTDsXIT)3 
END} 
C + CV © PCMKSsMKSesMKSeCe Be CABSelL Ne As MUL es EXP) ) 


XCA © POCMKSeMKSs Ce Br ATANZs Ap MUL» TOPIeMOD2 oTe STNeSIND DE 


POCMKSst{sA2»D0UPsMULeSUBsSQRT)3 
IF T > PCPI2) THEN IF T < PCTPI2) THEN PCCHS 2? 
PCVeMUL»,B2 37073 
IF COTOG THEN PCCo.DsSTOs Be -CoSTDDS 
PCXIT)3 
CEXPONS AcAFORALLTELFIBIBBLA7TIOL4) F 
CEXPOD2: IF c#0 THEN [F 030 THEN PCXIT) 3 
IF A®O THEN PClse.CaSTD2Qe.DeSTNeXIT) § 
B ¢ C3 
C « D3 
COTOG « TRUES 
GO TO CDENTs 
: @44462207732504203 TOPIL t2s @00055060432304643 
s ©14540000000000003 
$ @1141444176652104; 
$ @11445545743763143 


END xXTOYT3 


PROCEDURE IDINT 3 % 057 


COMMENT DOUBLE TO INTEGER CONVERTS &% PF JULY 67 
BEGIN REAL x = “41> 
XL = 9°23 
POX + ORXLLPLIBIRXLEA7TI9E LI ede DIVeRTNDS 
END IDINTS 


PROCENURE FLOAT 3 % 0460 


PCDUPsMUL* XCHeDUPs MUL» SUBs gAr STD eMUL*DUPS ADD ADS 


03410400 
03410450 
03410500 
03410600 
03410700 
03410800 
03410900 
03411000 
03411100 
03411200 
03441300 
03411400 


03411500 | 


03411600 
03411700 
03411800 
03411900 
03442000 
03412100 
03412200 
03412300 
03412400 
03412500 
03412600 
03412700 
03412800 
03412900 
03413000 


03413050 


03413100 
03413200 
03413300 
03413400 
034143500 


03413600 — 


03413700 
03443800 
03413900 
03414000 


03500000 


START OF REL SEGMENTS DISK 


03501000 
03501001 
03501002 
03501004 
03501005 


03600000 


02003 
t 030383 
T 020510 
T O0206%4 
T 020930 
T O210%2 
T O21033 
T QO@t2%2 
tT O21480 
T 021420 
YT O24710 
T O217%2 
T 021983 
T 022370 
T 022532 
T Q228314 
T O230%4 
rT O232:4 
T O23410 
rT O0234t0 
T 023612 
7 O244%1 
T Q243!0 
T 024583 
T 024683 
T O24910 
T O24914 
T O252t2 
T O255%1 
7 O25824 
r 025910 
T 0259383 
y O260%2 
T 0261!0 
T 0263340 
T 026430 
T 026530 
T 026640 
T 0266%0 
S1ZEs 0267 


T odgdoto 
ADORESS = 
rT ooo0tog 
7 Q000%0 
7 000010 
rT 000020 
T 0003%o2 
SIZEs 0004 


y 000040 


wORDS 


00476 


WORDS 


er ee ee ee ee ee ee ee ee | e eo @ ® ee e 8® @ ° ® | 6 


BEGIN REAL K = =43 
P(Xs RTN)3 
END FLOATS 


PROCEDURE SNGL 3 * 061 


COMMENT SNGL INTRINSIC (DOUBLE TO SINGLE CONVERT)3 % PF 
BEGIN REAL X = "t>» 

XLs "23 
POX + OR8XELELIBIRXLEIA7Z S98. 1eRTNDG 


END SNGL3 


PROCEQURE DBLE 3 % 062 


COMMENT DBLE INTRINSIC CSINGLE TO DOUBLE)? %& PF QUNE 67 
BEGIN REAL X s 1» 
JUNK = 473 
P(Xs ,JUNKsSTDeQeRTN) 3 
ENO DBLE: 


PROCENURE AMOD 3 % 063 


BEGIN REAL X = "2" Y = =4;3 
POX MOD Ys RITNI3 
END AMOD3 


PROCEDURE TIME 3 % 064 


COMMENT FORTRAN TIME INTRINSIC (LIKE ALGOL)S % PF JULY 67 
BEGIN Real x se13 

P(Xs1eCOMsRTN)S 

END TIMES 


PROCEDURE DMOD 3 % DOUBLE PRECISION MoD INTRINSIC # #065, 


START OF REL SEGMENTS DISK ADDRESS = 
03600100 r 0000%0 

03600200 T 0000%0 

93600300 T 000032 

SIZE* 0001 


03700000 T 0o000!%0 


START OF REL SEGMENT} DISK ADDRESS = 
JUNE 67 03700100 T 0000t0 
03700200 T 0000%0 

03700300 7 000080 

03700400 t 000010 

03700500 T 000310 

03700600 tT 000310 

SIZE= 0004 


03800000 T O000%0 


START OF REL SEGMENTS DISK ADORESS = 
03800100 r 000010 

03800200 T O000!0 

03800300 fr dO000t0 

03800400 T 00000 

03800500 fr 0001%4 

SIZE= 0002 


03900000 T 0000:0 

START OF REL SEGMENTS DISK ADDRESS = 
03900100 ry 000030 

03900200 y 000070 

03900300 T 000130 

SIZE= 0002 


04000000 fT 0000%0 

START OF REL SEGMENTS DISK aDDRESS = 
04601000 rt 000030 

04001002 T 000080 

04004003 fT O000!0 

04001004 fT 000;4¢%0 

SIZEs 0002 


04100000 tT 0000%0 
START OF REL SEGMENTS DISK ADDRESS = 


00477 


WORDS 


00478 


wORDS 


00479 


wOROS 


00480 


WORDS 


Q0481 


WORDS 


00482 


Gt 


BEGIN 
REAL Hs+2s Baels BLS"2» Az@3» AL="4, E=173 LABEL GeQ 3 


IF B=0 THEN IF BL=0 THEN PCMKSSINTCALLC13*FORTERRID) 3 

IF PCAL»ABS(A) sBL»NABSCB)sDLAsDUPI=0 THEN GO Q 3} 

IF P<O THEN PCALsApsEsesRTN) 3 

IF CE*PCALsAsBLeBeDLOeDUP).£326])>13 THEN PC,FeISD) $ 

P(XCH) 3 

IF £20 OR H.E2!1] THEN BEGIN PCDELs Os XCHeE DS 8 3PCeGseeLODsLND oe XCHIEND 
ELSE BEGIN PC13"E)3 22 PC.GstsLODslL ND) END 3 

TF PCDUPSABSCH)+9012DLAsBL»NABS(B) sDLMeAL*ABS(CA)2DLA)20 THEN 
PCEe&OsRTN) 3 

PCDEL + XCHeBL Be DLM»CHSsAL rArDLAseEreeRTN) 3 


Gtts@3777777777777777, & OYNAMIC MASK CONSTANTS.» 

OB77777TITITT77770 O37 TIT 7TT77TITTO0 e@ 37777 7TTTTITTPOO0 sO 3777777777770000» 
®3777777777700000 +8 3777777777000000 2 3777777770000000»*3777777700000000. 
®3777777000000000s 3777770000000000 5 3777700000000000s" 3777000000000000; 


PROCEQURE DMAX4 3 


COMMENT DOUBLE PRCISION MAX ROUTINES < oRF 


END OF DMQn 3 


% 066 


JUNE 67 


BEGIN REAL X = 1s 


XL = "2s 
JUNK = 17s 
RCW = +0s SIZE = +15 NEW = +29 NEWL = +39 JUNKL = 443 


PCERCW) INX O20*%RCWSFCX*ls INX» SUBs 0% 0eXLe Xe gJUNKS STD D3 
WHILE (SIZE ¢ SIZE =-2) > ono 
IF PCNEWL ¢ *PCAXsSTZE sADDs .NEW*STNo de ADD)» NEW € *POCNEW) » 


JUNKL » JUNK» DLS*XCH*eDEL) > O THEN 
BEGIN JUNKL e« NEWL; 
JUNK «© NEWS 
END} 


PCJUNKLSRTN)3 
END OMAx13 


PROCEQURE DMIN1 3 


COMMENT DOUBLE PRCISION MIN ROUTINES % PF 


% 067 


START OF REL 


04100100 
04100200 


04100300 - 


04100400 
04100500 
04100550 
04100600 
04100700 
04100750 
04100800 
04100850 
04100900 
04101000 
04104050 
04101100 
04101200 
04101300 


04200000 


SEGMENTS OISK 


04200100 
04200200 


04200300 © 
04200400 © 


04200500 
04200600 
04200700 
04200800 
04200900 
04201000 
04201100 


04201200 


04201300 
04201400 


04300000 


START OF REL SEGMENT? DISK 


JUNE 67 


BEGIN REAL X = "1, 


XL = "2s 
JUNK -& 17» | 
RCW = +0 SIZE = +4» NEW = #29 NEWL = 435 JUNKL & 443 


PCERCW] INX Or OeRCWoF CX Le INXs SUBS Or Oe XL eX» eJUNKe STD) F 
WHILE (SIZE © SIZE = 2) > 0 00 
IF PCNEWL ¢ POX sSIZEs ADD» eNEW* STN9 12 ADD) 9 NEW ¢ *PCNEW) >» 


JUNKL » JUNK ®DLS*XCH»DEL) < O THEN 
BEGIN JUNKL « NEWL$ 
JUNK © NEWS 
ENDS 


04300100 
04300200 
04300300 
04300400 
04300500 
04300600 
04300700 
04300800 
04300900 
04301000 
04301100 
04301200 


000040 
00000 


T 
T 

T GQodo!to 
T O004te 
T OQ07%2 
T 000933 
T 0014333 
7 001410 
T OO01984 
T O0022%0 
T O0261t0 
T O027%2 
T O030%2 
T 00320 
T 003610 
T O040%0 
7 O04420 
SIZE= 0045 


T O000I0 
ADDRESS «= 
000020 
yt 000080 
T O000f0 
T 000080 
T O0001%0 
T 0000%0 
T 000333 
T 00060 
T 
T 
T 
T 
T 
T 
I 


—_ 


O009g%2 
OOtiis 
00122 
001334 
0043%3 
OOLaty 
SIZE= 0015 


rT O00 
ADDRESS = 
0000:0 
000080 
0000!0 
o0d00to 
. O000t0 
000050 
000383 
0006#0 
0009!2 
Ooi, 
0019%2 
OO0L3%4 


Se eee Nee Mee Bee ee ee ee ee 


wORDS 


00484 


WORDS 


00485 


PROCEDURE SIGNV 3 % 070 


COMMENT SIGN INTRINSIC % PF JUNE 67 
BEGIN REAL S$ = =1s 

-X = "23 
PCX)3 
IF S,fi1:1] THEN PCSSNsRTN) ELSE PCSSPeRTNDE 
END SIGN3 


PROCEDURE OSIGN 3 % O74 
COMMENT COMPLEX DOUBLE SIGN INTRINSIC % 
BEGIN REAL S «= “t» 
; x = "39>, 
XL ™4» 
JUNK = 173 


P(X)3 

IF S.fl:i) THEN PCSSN) ELSE PCSSP)3 
PO,JUNKeSTOeXLeRTND3 

END OSIGN3 


PROCENURE DIIM 3 % O72 


BEGIN REAL X = ses ¥Y = @43 


PCX =CIF X S ¥ THEN X ELSE YOsRTNDE 


END OIIMS 


PROCEQDURE REALP 3 % 073 


COMMENT COMPLEX TO REAL INTRINSIC3 & PF 
BEGIN REAL X = #43 

PCX»RTN)S 

END REALPS 


PROCEDURE AIMAG 3 % 074 


PF 


JUNE 67 


JUNE 67 


04301300 T 001383 
04301400 T OOLatt 
SIZE 0015 


04400000 T 0000%0 


START OF REL SEGMENTS DISK ADDRESS = 
04400100 7 000080 


04400200 T 000010 
04400300 T 0000t0 
04400400 7 000030 
04400500 T 0000%1 
04400600 tT 000310 

SIZE= 0004 


04500000 T O000t0 
START OF REL SEGMENT DISK ADDRESS = 
04800100 tT 000080 


04500200 T 0000%0 
04500300 T aQ000%0 
04500400 T c0000%0 
94500500 T O000f0O 
04500600 T O000%O 
04500700 fT O000%1 
04500750 T O002R%2 
04500800 T 0003%2 

StzeE= 0004 


04600000 T O000f0 

START OF REL SEGMENTS DISK ADDRESS = 
04600100 7 0900080 

04600200 T O00080 

04600300 7 0003%0 

SIZES 0004 


04700000 T 00000 

START OF REL SEGMENT? DISK ADDRESS = 
04700100 T 000080 

04700200 T 00000 

04700300 T 000010 

04700400 T 00082 

SIZES 0001 


04800000 T 000030 


00486 


wORDS 


00487 


WORDS 


00488 


WORDS 


00489 


WORDS 


e 


: START OF REL SEGMENT’ DISK ADORESS = 
COMMENT IMAGINARY PART OF COMPLEX NUMBER; % PF JULY 67 04801000 tr GOOdn!0 
BEGIN REAL Y = ™23 04801010 T O00080 
PCYsRTNI3S 04801020 T 00000 
END AIMAG3 04801030 T OQdd0%2 

SIZE=. 0001 

PRA@CEDURE CMPLYX 3 % O75 04900000 T dQ00080 
START OF REL SEGMENTS’ DISK ADDRESS = 

COMMENT TWO REALS TO A COMPLEX; % PF - JULY 67 04900100 7r 000080 
BEGIN REAL Y = #15 04900200 T 0000!%0 
X = "2, 04900250 7 dQ000%0 

JUNK = 173 04900300 T O000!%0 

POCxXs, JUNK es STD 2 YoRTN) 3 04900400 tT 000020 
ENO CMPLX3 04900500 TFT 000434 
— S$rZeE= 0002 

PROCENURE CONJG # % O76 05000000 tf addcta 
START OF REL SEGMENTS DISK ADDRESS = 

COMMENT CONJUGATE INTRINSIC; % PF JUNE 67 05000100 T oad00f0 
BEGIN REAL X = “ts 05000200 T 0000!0 
XL = "2s 05000300 T Q000%0 

JUNK =. 1738 05000400 7 O000%0 
POXs eJUNKe STN eXL eCHS@RTN) 3 05000500 fT 9000080 
END CONG 05000600 fr 000132 

SIZEs 0002 

PROCEDURE DEXP 3 % O77 05100000 tT O000%0 
START OF REL SEGMENTS DISK ADDRESS = 

COMMENT DOUBLE PRECISION EXPONENTIAL INTRINSIC3 % PF JUNE 67 05100100 T oadcgafO 
BEGIN REAL X = “ta 05400200 T 000080 
XL = 2» 05100300 T.. O00gtO 

JUNK = 17» 05100400 7 000080 

TeTL 05100500 T 000080 

BOOLEAN SIGsHUGES 05100600 T o000!%0 
INTEGER N3 05100700 T 000010 

LABEL AT1i3*.G2elLG2lLeEMAXsHAF sAs AL eBeBLeoCeCLeDeDLeEoELeFoFlL eGeGles 05100800 Tr d00030 
CLGLeoHsHL a Te TL eds IL a Ko KLeb obi eMeMLs 058100900 T d000%0 

MEFINE TIMES = NOPsDLAeXLaeX»NOPsOLM#3 054101000 T oO000%0 

IF SIG «© X.C124] THEN X © ABS(X)3 05101100 tr 000030 
IF HUGFeX>27 THEN IF X>PCEMAX) THEN PCMKS» INTCALL(14*FORTERRI)) 3 05101150 T O004%0 
05101250 T 0009%0 

POXL sXe GeleLG2e0L De eXsSTDsDUPe Xe XCHe Xe Oe ATI 32 DL As Oe ATL 32 0L Sz 05101300 fT O009%0 
e JUNK a STNsDL Se eXeSTDe XL eSTD)2 05101400 T 0013%4 
T¢ 43 IF HUGE THEN WHILE (N © N + £) § JUNK DO PCTL»sDUPs Ts XCHe Ts DLAs 05101500 fT 001520 
aTeSTOe, The STD) 05101501 T O02081 

ELSE WHILE (N © N # 41) < JUNK DO T © PCTsDUPS ADDS 05101502 Tt O02181 

POCML sMoxlLoXellM)s 05101600 rT 0026%1 


00490 


WORDS 


00494 


wORDS 


00492 


wORDS 


00493 


®eeseveeeeveeveeweeeeeeweewnewneeeee 


33 PCLLeLeTIMESsKL eo Ke TIMES s JLo Je TIMESs IL a Te TIMESs HL sHe TIMES e GL eGoT 
FLeFsTIMESsELeo Ee TIMESs DL »DeTIMESsCLeCeTIMESs BLs Bo TIMES» AL se AsT 


CLGLaLG2eTIMESs OetesDLAsTLeTeDLMs sJUNKs STD) 
IF SIG THEN PCOsxXCHe le XCHs JUNKeDLDe JUNKO STDS 


~PCRTNI 


AT13 #38 @01510000000000003 
HAF %8$ @11540000000000003 


EMAX £23 @1122360000000000; CLGL 
LG2 #8: @11554271027757503 iG2-b 
M tt: @71333302330351773; MI. 
$23 ©132544725 15033303 — Lb 
K 122 @13016166473077143 KL 
J $33 @12736417332650773 wh 
I $23 @126744647721405723 IL 
H tit @1241552224137002; HL 
G 23 @12326130010731743 Gl 
OR i: @1223777137704414 FL 
E ff. 812450302211370523 el. 
D tts @12053541777470543 DL 
Cc $$: @41747312533373543 Ch. 
B tit @11634326043270114;3 BL 
A $23 @415172775737760a3 AL 
END DEXP3 


PROCEDURE CEXP 3 % 100 


COMMENT COMPLEX EXPONENTIAL INTRINSICS 


BEGIN REAL X = "1 
Y = "2s 
JUNK = 47 3 
LABEL EMAXse TOPT »PI2sTPI23 


®00071736325670303 
®00071736325711653 
®00054056761536453 
@00037457606412443 
@00026760257006453 
@00066644624034243 
@00034541661173423 
@00072636267410445 
®00020616103346543 


@000040741592126223 


®©00057574002721763 
@00022375777663263 
@00016575231342653 
@©00020276303767723 
@00064307252753473 


% PF JUNE 67 


TF ABSCX)>PCEMAX) THEN PCMKS»INTCALLC15,FORTERRID) + 


POMKSsINTCALLOX*EXPI) 5 ¢XeSTN»eMKSeteMKSe¥eTOPIsMODsDUPs SSP» .YeSTD» 


CALLINTCSINI ) sDUPaXeMUL»s pJUNKs STD eDUPsMUL es SUBsCALLINTCSQRTI)»MUL) 3 
IF ¥ > PCPI2) THEN IF Y < PCTPI2) THEN PCCHS)3 


PC JUNK» XCHe .JUNKs STD 2 RTND3 
EMAX $23. @11223600000000003 
TOPI t:3 @11462207738504243 
PT2 323 @©14414441766521043 
TPT2 t2: @1144554574376314;3 
END CEXP3 


PROCEQURE DLOG 3 # 101 


XL = "2s 
JUNK = 472 
Te TL? 


05101700 
05101800 
05101900 
05102000 
05102100 
05102200 
05102300 
05102400 
05102500 
051402600 
05102700 
05102800 
05102900 
05403000 
05103100 
05103200 
05103300 
05103400 


05103500 ~ 


05103600 
051403700 


05103800 > 


05103900 


05200000 


START OF REL SEGMENTS DISK 


05200100 
05200200 
08200300 
05200400 
05200800 
05200900 
05201000 
05201100 
05201200 
05201300 
05201400 
05201500 
05201600 
05201700 
05201800 


05300000 


| START OF REL SEGMENTS DISK 
COMMENT DOUBLE PRECISION NATURAL LOG INTRINSIC3  % PF JUNE 67 
BEGIN REAL X 5 "te 


03300400 
05300200 
05300300 
05300400 
05300500 


T 
T 
T 
T 
y 
T 
T 
T 
- 
T 
T 
T 
T 
7 
T 
T 
T 
T 
T 
T 
T 
T 
T 
$1 


T 


Q027%2 
004030 
005230 
00560 
005et3 
005910 
o060t0 
O06t!O 
006310 
006530 
006740 
0069!0 
00740 
007310 
007510 
007780 
Q079#0 
0081430 
0083!0 
0085!0 
008780 
008920 
009780 
ZE= 0092 


0000%0 


ADDRESS = 


T 


T 
T 
tT 
T 
T 
tT 
T 
T 
T 
T 
T 
T 
T 
T 

SI 


T 
A 


ee 


000080 
000040 
000020 
000080 
000030 
000030 
000342 
0008%2 
O014t4 
001780 
OoLart 
002080 
002410 
0022:0 
002380 
ZE=s. 0024 


0000t0 
DDRESS = 
0000%0 
0000%0 
000080 
000030 
O0000tO 


WORDS 


00497 


WORDS 


00498 


ececevoeeveeveeevneeeereeeeeee e 


INTEGER NS 
BOOLEAN LESS1Ls 


LABEL HAF sl G2eLG2h »SQ29SQe2lesAsALe Be BL eo Ceo Cl esDeDLeEsEL oF eo Fh »GeGls 


DEFINE TIMES = NOPsDLArXL»XsNOPsOLM# 


HeHL ele lbs deJL3 


IF X LEQ O THEN POMKSs INTCALLC164(X2Z0)eFORTERRID) 3 
IF LESS1 © X « 4 THEN PCOsds XL eX OL De eXeSTDe eXLe STDDE 


PCl»e.NeST 


WHILE (JUNK © PCJUNK*DUP*ADD)) 
IF PCXLs Xs Oe JUNK se DL D2 gJUNKs STDs oe Te STNe JUNKe SQ2L + SO2sDLS»XCH*DEL) < 0 


THEN 
BEGIN 


END E 


PCTs JUNKe Os TLe DLS» Te JUNKs Os TL eo DLAs DLO» .JUNKs STDs e Te STNeDUPs JUNK e XCHe 


Ne JUNKsSTD)3 


No © Nom U3 
PCHAFsTLsSTD)3 
LSE TL « 43 


$$ X DON ¢ N + 13 


JUNK SDLMs XeSTOe aXbLeSTNoXe IL ade DLS 


tt PCIL se Te TIMESs HL eHe TIMES s GL so Ge TIMESs FL oFeTIMESsEL es Es TIMES» 


NlLeDeTIMESsClLeCeTIMESs RL eRe TIME SSAL pAs TIMES» 
Or2eDL As Te JUNKeOLMsOeNeL Gl sh G2rDLM,DL Ar eJUNKs STD) 3 


ES 


2 of 22 82 an os 


vo #2 85 98 ee te 
= 92 +e se se 


= 
we 
A 


$33 
ND DLOGs 


THEN PCJUNK*CHS*,JUNKsSTO)3 


@11540000000000003 
@11554271027757503 
@1155520236314774; 
@11671005104674323 
@41665242044352243 
@41674206057572603 
@11510421012757203 
©115116601166433543 
@41513505642717103 
@11516161616161623 
©11522222222222223 
@1953146314631463;3 
@41552575252525253 


PROCEDURE CLOG } 


COMMENT COMPLEX LOG INTRINSIC; 


BEGIN REAL X = wile 


¥ B® md, 
JUNK © 17 3 


If Ye0 THEN 
IF Xs0 THEN PCMKSs INTCALLCL8sFORTERRI)) 


ELSE IF X>Q THEN PCMKSsINTCALLOXeL NID ep JUNKe@STD*2O9RTN) 3 


% 102 


% 


PF 


@00071736325711653 
@00073631102131363 
®00024 644604740163 
©00076510244670033 
©00021355007731253 
®00001026765655445 
@00011616215310113 
@00070716355103003 
©00066431723110513 
@00021766330220263 
@00014631767262433 
®00025252525070533 


WUNE 67 


JUNKO PCMKSs INTCALL CP CMKSe Xe INTCALLCY*sCABSI) De#LNIDD 3 


POMKSs¥s,INTCALLCX*sATAN2T)sRTN) 


END CLOG; 


PROCEDURE Al.0G103 


4 


4 103 


05300600 


05300700 — 


05300800 
05300900 
05301000 
05301100 
05301200 
05301300 
05301400 
05301500 
05301550 
05301600 
05301700 
05301800 
05301900 
05301950 
05302000 
05302100 
05302200 
05302300 
05302400 
05302500 
05302600 
05302700 
05302800 
03302900 
05303000 
05303100 
05303200 


05303300 © 


05303400 
05303500 


05303600 © 


05303700 
05303800 


08400000 


START OF REL SEGMENTS DISK 


05400100 
05400200 


05400300 | 


05400400 
05400900 
05400950 
05400975 
05401000 
05401100 
05401200 


05500000 


T 


T 
T 
T 
T 
T 
by 
T 
T 
af 
T 
T 
Bs 
T 
T 
T 
T 
T 

a 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
I 


0000%0 
exelelen te) 
0000!0 
00000 
000030 
000030 
000534 
000984 
001082 
OOl4ate 
O01Rs4 
OOLat3 
0020%2 
o021%4 
Q022%2 
002730 
002942 
004070 
004810 
0054%2 
OOS3t¢ 
0053%2 
005580 
0057480 
005940 
006480 
006340 
0065!0 
006740 
00691t0 
0074%0 
007310 
007510 
0077%0 
0079!0 


SrZE= 0080 


ei 


—4 


T 
T 
T 
T 
Ty 
T 
T 
T 
T 
I 


ADD 


000030 
RESS = 
000020 
000030 
oleZelen xe) 
000020 
0000%0 
000083 
O004gt2 
Oddo 4 
001383 
O016ts 


SIZE= 0017 


T 


000040 


wORDS 


90501 


WORDS 


e 


START OF REL SEGMENT? DISK ADDRESS = 

COMMENT LOG BASE 10 INTRINSIC3 & PF JUNE 67 05500100 T O000!0 
BEGIN REAL xa"1 3 05500200 7 000030 
LABEL LGIs 05500400 fF O000!0 

IF X LEQ O THEN PCMKSsINTCALLC19+¢X#0)2FORTERRID) 3 05500500 T o000t0 
PCMKSsINTCALLCXesLNID»LGI»eMULe RIN) 3 05800600 7 0006%4 
GY &$2 @41533626754251163 05300700 Tt 0007%0 
END ALOG103 05500800 T O00Rgt0 
S{ZE= 0009 

PROCENURE DLOG103 & 104 05600000 T addcto 
START OF REL SEGMENTS DISK ADDRESS = 

COMMENT DOUBLE PRECISION COMMON LOG INTRINSIC % PF JUNE 67 05600100 Tr Od000%0 
BEGIN RFAL xX. = "1s 05600200 T acgcnto 
XL = "2s 05600300 Y QO000!0 

JUNK = 173 05600400 7 0000%0 

LABEL LGIsL Gili 05600600 T 000080 

IF X LE@ O THEN PCMKSsINTCALLC2144+¢(X40) eFORTERRID) 3 05600700 r d000!0 
PEMKSoXLe INTCALL (Xs DLOGI I» JUNKsL GIL »L GI» OL Me pJUNKe STDe RIND 3 054600800 T 000484 
LGT 22% @11533626754251153 LGIL $38 @000624146145232613 05600900 T 000884 
ENO O0L0G103 05601000 7 0011%0 
S1Z€= 0012 

PROCEDURE DSIN. 3 & 1405 05700000 T dQ000%0 
START OF REL SEGMENT3 DISK ADDRESS = 

COMMENT DOUBLE PRECISION SINE INTRINSIC3 % PF JUNE 67 05700100 T O0000!0 
BEGIN REAL X = ™4» 05700200 T 000030 
XL = "Op 05700300 7 000030 

JUNK = 17 05700400 tT O0000!0 

v3 05700600 YT 000080 

BOOLEAN SIG$3 05700700 y 000030 

LABEL TOPTsTOPILsPIsPILsPl2sPI2LeTPI2sTPL2Le 05700800 7 dQ000%0 
AsALsBeBloCoChLeDeDLsEsEL oF oF lL eo GeGLeHsHLeloIbL ede JL 3 05700900 7 O0000%0 

DEFINE ADDER = NOPsOLAs Ts» JUNKeNOPSDLM He 05701000 T 000080 
 SUBER = NOP»DLSsT» JUNKesNOPSDLM#3 05701050 T oO000t0 

IF SIG © X.f1%1] THEN X © PCXKsSSP)3 05701100 T 000080 
IF POMKSsXLsXsTOPILeINTCALLC TOPI*DOMODI) sJUNKs eXe STDs XL eSTNeXePlL2LePI2n 05701200 T. 000Q3%1 
DLSe#XCHseDELI>0 05701250 +t 000810 

THEN IF PCXLeXePILePIleDLS*xchHeDEL) < 0 05701300 T 000833 
THEN PCPIL»PIseXLeXsDLS) O5701400 yr 0011422 

ELSE BEGIN SIG © NOT Sig3 08701500 Tf 0013383 

IF PCXLeXsTPl2@Le TPL2eDLSeXCHs DEL) < 0 05701600 7 00145%4 

THEN PCXLoXsPILsaPT»DLS) 05701700 rT 001780 

ELSE PCTOPILsTOPI»XL*X»DLS)3 05701800 fT O019%4 

END 05701900 7 002420 

ELSE PcXhLsX)3 05702000 T 002130 
POgXsSTD» eXLeSTNeDUP Xe XCHe Xe DLMe eJUNKe STDe a Te STNeJUNKo Lee DLM) 3B 08702100 7  002a%0 
ts PCTLsTsaSUBERsHL she ADDERS GL» GsSUBERSFL oF s ADDERSEL sEsSUBER* DLs De ADDER? 05702200 T 002634 
CLeCsSUBERsBL + Be ADDERs AL sAsSUBERe Os le Qh Ar XL aXe DLMeeJUNKe STDI3 05702300 T 0039%0 

IF SIG THEN PCJUNKsCHSe. JUNK» STOD3 05702400 T OO04710 
PCRTN)3 05702500 7 004823 


00502 


WORDS 


00503 


WORDS 


00504 


@®eeeeeeeeeeee#eeee8ee0ee000 806 86 


Pra $$: @11414441766521043 PI2L 828 @00013214106461433 
PT $3 @4443410375524210; PIL 23 @00026430215142303 
TPI2 322 @14448545743763143 TPT2L t&s @©000416443203623433 
TOPI &23 @11462207732504203 TOPIL %%2 @00055060432304643 
J 32 @1421317506616043; Jb $2 @00041063415056473 
1 $33 @13711362616101213 IL tt: @00015614067213543 
6 tt: @13232717717323273 GL 222 @€0001122361440352; 
F $220 @42713022214116273 FL £2 @0002101305056316;3 
E $32 @4253271442547752;3 EL 123 @00023473331357653 
QD th: @12356167435125333 DL $33 @00007047031440003 
C tt: @12164006400640063 ch 322 @00040063544366743 
B «SEE @4174210421042104; BL 8 @00021042103665433 
A $32 @11512525252525253 AL $4: @00025252525252343 
H $3: @135625130123632433 HL. 333 @00073443761124573 
END DSINS 

PROCEDURE CSIN 3 % 106 


COMMENT COMPLEX SINE INTRINSIC} % PF JUNE 67 
BEGIN REAL xX = "Ls 
Y mop» 


LABEL EMAXsHAFsTOPL»PI2eTPla; 
IF ABSCY)>PCEMAX) THEN PCMKSsINTCALLC23e¢FORTERRID) 3 


PCMKSs INTCALLCYSEXPI)» DUP sDUP sl eXCHe/» Ye STNeSUBsHAFe MUL» oe TeSTDe 
YoADD sHAF eMUL »MKS aX, TOPT MODs DUP» SSP. XeSTDsCALLINTCSINI dae Ya STNeMUL » 


MKSeisYsDUPeMUL»sSUBsCALLINTCSQRTI)»T»MUL) 3 
IF xX > PCPT2) THEN IF xX < PCTPI2) THEN PCCHS)3 
POXCHs ee JUNK» STDs RT™N)3 


EMAX $22 @©11223600000000003 

HAF #3: @41454000000000000; 

TOPT $2: ©113462207732504213 

PI2 $82 @11414441766521043 

TPT2 $33 @11445545743763143 

END CSINES3 

PROCEDURE Cos 3 % 4107 


COMMENT DOUBLE PRECISION COSINE INTRINSIC} % PF JUNE 67 
BEGIN REAL x = "1s 

XL = "2s 

LOW = =4 3 

LABEL PIl2sPT2Li 
POMKS»XLeXePI2_sPIl22DLAsCALLINTCOSINI)»sRTN) 3 
P12 228 @11414441766521043 PI2L ¢8: @00013214106461133 
END O¢OS3 


05702600 
05702700 
05702800 
05702900 
05703000 
05703100 
05703200 
08703300 


05703400 © 
05703500 © 


05703600 
05703700 
05703800 
05703900 
05704000 


05800000 


START OF REL SEGMENTS DISK 


05800100 
05800200 


05800300 © 


05800400 
05800800 
05800900 
05801000 
05801100 
05801200 
05801300 
05801400 
05804500 
05801600 
05801700 
05801800 
05801900 
0§8020900 
05802100 


05900000 


START OF REL SEGMENTS DISK 


05900100 
05900200 
05900300 
05900400 
05900600 
05900700 
05900800 
05900900 


T 
T 
7, 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
I 


$ 


T 


004930 
~—005,%0 
005310 
005510 
005730 
0059?0 
006420 
0063%0 
006510 
006710 
006930 
0071440 
007310 
007530 
007720 
ZEs 0078 


0000%0 


ADDRESS = 


T 


T 
T 
T 
T 
T 
T 
t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
bi 
SI 


T 


o000t0 
0000!0 
000080 
eleteren xe) 
0000%0 
00000 
0000%0 
000383 
o00K8:3 
001431 
001810 
002033 
002133 
0023%0 
0024!0 
002510 
0026!0 
002710 
ZE= 0028 


0000%0 


ADDRESS = 


T 


T 
T 
t 
T 
T 
T 
T 
SI 


000010 
000040 
00000 
000020 
00000 
0000%0 
000382 
0006180 
ZEs= 0007 


WORDS 


90507 


WORDS 


00508 


wORDS 


bu = ° Splashes t: abs geet etl ees SOHNE Ee pe Ae ge de epg ee yates 


PI2 <2! @11414441766521043 


PROCEDURE ccos 3 % 110 06000000 
. START OF REL SEGMENTS DISK 
COMMENT COMPLEX COSINE INTRINSIC3 % PF JUN 67 06000100 © 
BEGIN REAL X = ts 06000200 
¥Y 2 92,5 06000300 

JUNK = 17» 06600400 

T3 06000800 

LABEL EMAXsHAFsTOPIsTPI2ePI2,MHAF 3 06000900 

IF ABSCY)>PCEMAX) THEN PCMKSs INTCALL(C24,FORTERRID) 3 06001000 
POMKSsINTCALLCY*SEXPI) sDUPsDUP sts XCHs/o, Ye STN* SUBsMHAF eo MUL eMKSe Xe TOPs 06001100 
MODsDUPs SSP + .XsSTO*CALLINTCSINI )¢ eT» STNeMUL» eJUNKs STDs Ye ADD oHAF a MULy 06001200 
MKSofeTeOUPsMUL *SUBsCALLINTCSQRTI) MUL) 3 06001300 
IF X¥ > PCPI2) THEN IF X < PCTPI2) THEN PCCHS)3 06001400 
PC JUNK se xCHs ,JUNK»sSTD*RTN)3 06001500 
EMAX $23 @11223600000000003 © 06001600 
HAF. 838 @41540000000000003 06001700 
TOP] #23 844462207732504243 06001800 
TPI2 233 @11445545743763143 06001900 
PI2 $3: @11414441766521043 06002000 
MHAF $28 @31540000000000003 06002100 
END ccOs; 06002200 
PROCEDURE TANF. 3 & 411 06100000 
. ; ; START OF REL SEGMENTS DISK 
COMMENT TANGENT INTRINSIC3 % PF MAY 67 06100100 
BEGIN REAL RSQ} 06100200 
REAL X = #13 06100300 - 
INTEGER 93 BOOLEAN 53 06100400 

LABEL Lisl 2esPMAXeMMAX sPTePloePI4s 061400500 

IF S$ ¢ X,C1#1] THEN X © PCXsSSP)S 06100600 
IF. €Q@ © PCXesPITeMODs «XeSTNesPl4eDIV)) # 0 THEN .X ¢ 06100700 
IF g=4 THEN PCPI2+X*SUB) ELSE IF @=2 THEN PCXePI2s5U8) ELSE PCPIsx»SUB)3 06100800 
IF X = QO THEN BEGIN IF @ = 1 THEN P(PMAX) ELSE IF Q = 2 THEN PCMMAX) 06100900 
ELSE PCO)3 GO TO 113 06101000 

END# 06401100 
Pet, X>DUP MUL» RSQ* STN» DUP» ,0097433825958sMUL + CHS» 1s ADD» MUL» 06101200 
fis 16,248537744sSUB, 06401300 

48, 74561 32319*RSQp/s 642497075488 SUB» RSQs DUP» 06401400 

000361003565256 MUL » CHS» y 136381360679» ADD» MUL» ADD,» 06101500 

. 7 /sADD)3 06101600 
IF Q = 0 THEN PCXsXCHs/) 06101700 
ELSE IF Q.°3_1-THEN: eekel 06101800 

ELSE IF @ = 2 THEN PCXa/eCHS) 06101900 

FLSE PCX*#XCHse/sCHS)3 06192000 

1? 06102100 
IF S THEN PCCHS)3 06102200 
PCRTNDS opus 06102300 
PMAX 888 @O7777777777777773 06102400 
MMAX. 232 BO7T777TT7TIIT7I777 TS 06102500 
PI $23 @41431103755242103 06102600 


06102700 


T 000080 
ADDRESS «= 
0000%0 
rT 000080 
T QO000tO 
tT O00o!IO 
T 000010 
T oo00f0 
T oodntO 
T 000333 
T O009%0 
Y OOL4t4 
y 001733 
T 
T 
T 
T 
T 
T 
T 
T 
I 


—4 


002032 
002423 
0023!0 
002410 
002530 
002610 
0027:0 
002810 
SIZEs 0029 


T 000010 
ADDRESS = 
0000%0 
000080 
g000to 
0000!0 
000030 
000030 
O0003%2 
0006%3 
001282 
001733 
001930 
0019170 
0022t4 
002983 
002422 
0026%1 
002613 
002833 
003713 
004084 
004133 
004433 
004013 
0043%0 
O004gtO 


a a ms st a st 


0046 %0 


004510. 


00509 


wORDS 


00510 


@®eeeeee88e8@88e8e0808 8006080 0@ © @ @ @ 


PT4 ets 
END TAN} 


@1156220773250421; 


PROCEDURE COTAN 3 


COMMENT COTANGENT INTRINSIC3 


BEGIN REAL T 3. 


REAL X = "43 
LABEL PMAX3 


% 112 


% PF MAY 67 


IF CT@#PCMKSs INTICALLOX»*TANII))=0O THEN PCPMAX) 


PCRTN)I 
$22 @O7777777777777773 
END COTANS 


PMAX 


ELSE PCLsT#/)3 


PROCEDURE DATAN 3 


COMMENT DOUBLE PRECISION ARC TANGENT INTRINSIC; 
BEGIN REAL xX 


DEFINE AM = NOPsDLAsTsJUNKsNOP sDLM# >» 


= ois 
XL = "2s 
JUNK = 17% 
T3 


BOOLEAN SeUsYs 
LABEL SR3,SR3L°P16sPI6LsPI2+PL2LeAv At oBBLeCoCLeDsDLoEsELoF oF Ls 


% 113 


GeGleHebtle le ThL edo dL eKeKL ol ell aMoML3 


IF S$ ¢ Xef1!81] THEN X © PCXsSSP)3 
IF Y © xX > £ THEN PCOsdsXLeXeDLD» eXeSTD» eXLeSTD)3 


IF U « xX > 


SM = NOP sDLSsTeJUNKs NOP sDLM#3 


2679491924311 THEN PCSR3LsSR32024*+SR3LeSR32XLeXeDL Ar 


DLOeDL Ss» eX*eSTDe .XLeSTD3 
POXL sDUPsXsXCHs X*#DL Me, JUNK e STDs oe Te STNe JUNK eo ML eM ae DLM D3 


FE POLL Le AMe KL Ko SMe JL eds AMa TL is Le SMe pe AMs Gls GeoSMeFL oF AMe EL » Eg SMe 
Dh eDeAMeCl aCe SMeBl eBeAMsAls As SMe Org eDL Ar XheXeDLMeedUNKe STD DS 
IF U THEN PCJUNKePl6LePlOsDLAs eJUNKsSTD)S 


IF Y THEN PCJUNKsPI2LePL29DLSsCHSs.JUNKsSTD)3 
IF S$ THEN PCJUNKs CHS? JUNKsSTO)3 
PERTN)$ 
aig 


SR3 
P16 
PI2 


MAODTecLlArm = 


ae 8e se be ce fe #e we 


72 ee fe 8 6m 88 62 se OF 


oo 0@ se 88 2m 88 8m se 8O 


@11415666365644303 
@44544405221602653 
@114144414766521043 
@31614011240464143 
@11623032733235643 
@1162605113035023; 
@1163027321345406;3 
@1163274446267506$3 
0116360741567 34133 
@1164210421020314; 
@11647304730470143 
1165642721 350564; 


SR3L 
PLO 
Pla. 
ML 
LL 


72 22 we 2m ce 68 82 on $8 26 80 88 


22 ce ce 22 62 20 08 we 09 8p 08 Fe 
22 c8 2 82 22 2% 6h 99 80. 2 88) of 


#00023125163544553 
#00063313021455663 
@00013214106464433 
@00040727642603443 
@00016302621033723 
@00043015533673043 
@00033263233625443 
@©00014644113545763 
@00014242562075123 
@00017377162365623 
©00062662605055713 
©00064674437532403 


06102800 
06102900 


06200000 


START OF REL SEGMENT? DISK 


06200100 
06200200 
06200300 
06200400 
06200500 
06200600 
06200700 


06200800 


06200900 


7 
T 


004710 
O04R?0 


SIZE 0049 WORDS 


T 


00000 


ADDRESS = 


T 


T 
T 
T 
T 
T 
T 
Be 
T 
if 


000050 


00512 


000030 . 


0000%0 
0000!%0 
0000t0 
0004t0 
O005%4 
O008!t2 
OOO7FIO 


ZE= 0008 


06300000 T O000f0 
ADDRESS = 


START OF REL SEGMENTS DISK 
% PF JUNE 67 


06300100 
06300200 
06300300 
06300400 
06300500 
06300600 
06300700 
06300800 
06300900 
06301000 
06301100 
06301200 
06301300 
06301400 
06301500 
06301600 
06301700 
06301800 
06301900 
06302000 
06302100 
06302200 
06302300 
06302400 
06302500 
06302600 
06302700 
06302800 
06302900 
06303000 
06303100 
06303200 


AA HHH at ss tt st Ht st ss 


O000fO 
0000t0 
9000!t0 
0000tO 
000080 
000010 
foheleren Ze) 
Q000to 
N000%o0 
000080 
000323 
000733 
001453 
001334 
001633 
003310 
004310 
O045%4 
O04783 
004982 
0049%3 
005910 
005420 
0056:0 
005810 
006010 
006_!0 
O064t0 
0064!0 
006810 
0070!0 
007250 


wORDS 


60513 


eocececececeeeoer eee eceoe eee ees 


tb) $22 @11670707070707073 DL 33 @00005521656031753 

C $$: @1iSipr1iatiii1iras a $3: @00011110512327103 

B $8: @11514631463146343 BL $22 @00046314630706333 

A $83 @11525252525252523 AL $32 @00052525252524703 
END DATAN3 

PROCEDURE ATAN2 3 % 114 

COMMENT ARC TANGENT OF A/B INTRINSIC3 % PF MAY 67 
BEGIN 


REAL A @ =2.9 B8 = ™413 
LABEL PIsPI2sMPI25 
IF-B > OQ THEN 
TF A¥O THEN PCMKSs INTCALL CA/Bre ARCTANID) 
FILSE PCto) 
ELSE 
IF B < @ THEN . 
IF A>O THEN PCMKSsINTCALLCA/BsARCTANI Do PI» ADD) 
ELSE. 
IF A<Q THEN PCMKS»* INTCALL CA/Bs ARCTANI )s#PI»SUB) 
ELSE PcPY) 
FLSE 
IF A < 0 THEN PCMPI]2) 
ELSE PCPI233 
POCRTN)3 
PI $23) @414341037552424105 
PI2 $22 @11414441766521043 
MPT2 $83 @3141444176652104;3 
END ATAN23 


PROCEDURE DATAN23 * 415 


COMMENT DOUBLE PRECISION ARC TANGENT OF A/B INTRINSIC3 % PF 
BEGIN. REAL B os "Ls 
Blom "2s 
A om "3s 

AL = 4s 

JUNK = 17 3 
LABEL PTsPILaPIaeMPlasePT2L3 


IF A # 0 AND B #4 0 THEN 


BEGIN PCMKSsALeA*BL»BrDLDeCALLINTCDATANI)) 3 


IF 8.Cisi] THEN IF A > © THEN PCJUNKsPIL a PI» DLAs eJUNKs STD*RTND 


ELSE PCJUNKePIL PIs pL Se eJUNKsSTDeRTN) 3 

END ELSE 
IF B = 0 THEN IF Aelitt] THEN PCMPI2@s.JUNKeSTDsPI2L »RTN) 
ELSE PC PI2s,.JUNK»STDsPI2LaRTN) 


ELSE IF B.Citl] THEN PCPI»+JUNKsSTDePILeRIN) 


ELSE PCO» e«JUNKeSTN¢RINDE 
P(RTN)}3 


06303300 
906303400 
06303500 
06303600 
06303700 


06400000 


START OF REL SEGMENTS DISK 


06400100 


06400200 


06400300 
06400400 
06400500 
06400550 
06400600 
06400650 
06400700 
06400750 
06400800 
06400850 
06400900 
06400950 
06401000 
06401050 
06401400 
06401200 
06401300 
06401400 
06401500 


06500000 


START OF REL SEGMENT? DISK 


06500100 
06500200 
06500300 
06500400 
06500500 
06500600 
06300800 
06500900 
06501000 
06501100 
06501300 
06501500 
66501600 
06501700 
06501800 
06501900 
06502000 


T 
T 
T 
T 
T 
I 


$ 


T 


007490 
0076%0 
007830 
008050 
008240 
ZE= 0084 


000030 


ADORESS = 


ill 


T 
y 
7 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
7 
T 
tT 
ia 
3! 


T 
A 


Aad AH ot ts 


000030 
eteleren Be) 
000080 
N0008O 
000080 
000083 
0005t0 
0008:%3 
000523 
000730 
0011493 
004423 
0016%2 
OOL7 EY 
001784 
OO19F 4 
002020 
0020%4 
0022!0 
0023t0 
002410 
ZE= 0025 


000040 
DORESS = 
0000t0 
000030 
000080 
elelelon ae) 
0000t0 
0000!0 
000040 
000080 
000473 
0005%2 
000983 
001240 
001240 
001644 
001810 
002440 
O022t2 


wORDS 


00516 


wORDS 


00517 


@®eeee%ee e o ® °® ee ® eeee e | & e 


PY $22 @41434493755242103 PIL 
P12 8s @11414441766521043 Pla. 
MPT2 $33 @31414441766521043 

END DATAN23 

PROCEDURE ARSIN 3 % 116 


COMMENT ARC SINE INTRINSIC; 
BEGIN REAL X =e 
XSQ3 
BOOLEAN S»Us 


$33 800026430215142303 
t$t €00013214106461133 


% PF MAY 67 


LABEL PI2sHAF sAsBeCoDe Eo Fe Geto lado KeloMaN3 
PEPINE TIMES = AND» XSQsMUL#E; 


IF S ¢ XeC134] THEN X © PCXsSSP)3 


IF X>1 THEN PCMKSsINTCALL C26esFORTERRID) 3 


IF UeX>PCHAF) THEN X#PCMKSe12X2SUBSHAF »MUL» oXSQ*eSTNeCALLINTCSQRTI)) 


ELSE xSq © XxX} 


$? PCNOPsAeXSQsMUL*BeTIMESsCeoTIMESs De TIMESsEs TIMESs Fs TIME Ss Ge TIMES» 
He TIMES» laTIMESs Je TIMES se Ks TIMESs Le TIMESs Me TIMESs Ne TIMES» 


Le ADD» X*MUL DS 


IF U THEN PCDUPsADDeCHSsPI22ADD)s 


IF S THEN PCCHS)3 


PCRTN)3 

PI2 #3! @44414641766521043 HAF 
A 23 @44725067214106503 8 
C tt? 64473232061727030; 9) 
f t22 @414742273636363713 F 
G tts @44757241703607403 H 
Itt? @4461070473047305;3 J 
K $32 @44617434343434343 L 
M238 @4164637463146315;3 N 

END ARSINS 

PROCEDURE ARCOS 3 % 117 


COMMENT ARC COSINE INTRINSIC; 
BEGIN REAL X = "14 3 
LABEL PI23 


®11540000000000003 
@11727405566411353 
@44735747364675103 
@11747767450327423 
@11771146314631463 
@11613350564272143 
®11626666666666673 
@11512525252525263 


% PF MAY 67 


IF ABSCx)>1 THEN PCMKSsINTCALL C25 FORTERRID) 3 
POPIT2sMKS»TNTCALLOCX*ARSINI)sSUB) 3 


PCRTN)3 
Pra 28 @11414441766521043 
END ARCOS} 


PROCEDURE SINH 3 % 120 


06502100 
06502200 
06502300 
06502400 


06600000 
START OF REL SEGMENTS OSK 
06600100 
06600200 
06600300 
06600400 
06600500 
06600600 
06600700 
06600800 
06600900 
06601000 
06601100 
06601200 


06601300 


06601400 
06601500 
06601600 
06601700 
06601800 
06601900 
06602000 
06602400 
06602200 
06602300 
06602400 
06602500 


(046700000 
START OF REL SEGMENT? O1SK 
06700100 
06700200 
06700400 
06700500 
06700600 
06700700 
06700800 
06700900 


06800000 


T 002233 
T QOOa510 
tr 002780 
T 002830 
SIZE= 0029 


rT Odg0d0%0 
ADDRESS & 
000030 
Ty 000080 
rT O000f0 
rT 0000%0 
T O000%0 
rT 000030 
r oodcotO 
T OO003%2 
T 000633 
T OO012%4 
T O014%2 
y 002230 
T 002970 
T 003030 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
I 


=" 


0032!0 
003320 
OO33%4 
003640 
0038'0O 
004020 
004920 
O044toO 
004610 
004830 
005030 
SIZE= 0051 


rT O00Or0 
ADDRESS. s 
0000%0 
T 000010 
rT 000010 
T 000080 
T O003%2 
rT 000610 
y 

T 
SI 


—4 


O006?4 
0008!0 


ZE= 0009 


T 000080 


WORDS 


60518 


WORDS 


60520 


wORDS 


@o9eoee#eeeeee#e#8e@e2e8e808 200608000 6 


START OF REL SEGMENT; O1SK 


ADDRESS = 
00 


COMMENT HYPERBOLIC SINE INTRINSIC3 % PF MAY 67 06800100 T 0010 
BEGIN REAL X = "1 3 06800200 T ad00t0 
BOOLEAN S3 06800400 T 0000!0 
LABEL. EMAX3 06800500 T o0000!0 
DEFINE SIAM = /o1ADDsMUL#3 06800600 fT a000%0 
IF S ¢ x¥,€1!1) THEN X © PCxXsSSP)3 06800700 T 000030 
IF X>PCEMAX) THEN PCMKSs INTCALLC29eFORTERRID) 3 06800800 Tt 0003t0 
IF x ¢ ,5 THEN 06800900 T 0006314 
PCXsDUPsDUPsMUL sDUPSDUPsDUPs 729S1AMs4 22S AMs 202SLAMS Ge Si AM) ELSE 06801000 rT 000730 
PCMKSsINTCALLCX*EXPI) eDUP ste XCHe/sSUBs eSeMUL) F 06801100 T O0L4t4 
IF S THEN PCGHS)3 06801200 T 001933 
PCRTN)3 06801300 r 002033 
EMAX 228 @11223600000000003 06801400 T 0021:0 
END SINH$3 06801500 y 002210 
SIZE= 0024 

PROCEQURE COSH 3 % 121 046900000 T 0000%0 
START OF REL SEGMENTS DISK ADDRESS = 

COMMENT HYPERBOLIC COSINE INTRINSIC; % PF MAY 67 06900100 T O000!0 
BEGIN REAL X = =the 06900200 T 9000080 
T3 06900300 T 000080 

LABEL EMAX3 06900400 7 O000t0 
DEFINE SLAM = /s ls ADD» MULS3 06900500 T 0000%0 
IF CT¢ABS(X))>PCEMAX) THEN PCMKS*INTCALL( 30*FORTERRID) 3 06900600 fr 000080 
IF T $ ,75 THEN 06900700 T 000434 
POCXsNUPeMULs DUP 2 DUP 2s DUP sDUP s902S1AMsS69StAMs 302S1AMa 1 2eS1AMs 06900800 T a005!0 
*5eMULe12AD0D) ELSE PCMKSs INTCALLCXsEXPI)»DUP si >xXCHe/sADDs »SeMUL) 3 06900900 T O01294 
PERTN)3 06901000 rt 001933 
EMAX t£: @1122360000000000; 06901100 T 002010 
END COSHH: 06901200 T 002110 
SIZE= 0023 

PROCEDURE TANH 3 % 122 07000000 T 000010 
a6 START OF REL SEGMENT) DISK ADORESS = 
COMMENT HYPERBOLIC TANGENT INTRINSICS3 % PF MAY 67 07000100 ft O000%0 
BEGIN REAL T 3 07000200 Tt 0000!0 
REAL X = "43 07000300 tf 000040 
BOOLEAN $3 07000400 7 O000t0 

Ip S ¢ X,£424] THEN X © PCX»SSP)? 07000600 T 000030 
IF x. > 27 THEN IF S THEN PC4sCHSeRTN) ELSE PC1eRTND3 07000700 tT 0003414 
If X < ,44 THEN 07000800 T 00071!0 
POX» DUP» DUP MUL» DUP» DUP» DUP» 6+8886888889eMUL 2 17sSUBs 07000900 rf 000733 
MUL 2212/92 2ADD sMUL 259/91 *SUBSMUL 239/04 2 ADD MUL) 07001000 T 001140 

ELSE PCMKSsINTCALL(X*EXPI) *DUP® eTeSTNe ts XCHe /*DUPe TeADDe o Te STD 2 SUBST#/)3 07001100 T 01530 
IF S THEN PCCHS)3 07001200 7 0023:2 
PCRTN)3 07001300 fT 002412 
END TANHS 07001500 y 002413 
SyZeE= 0025 


90521 


WORDS 


00522 


WORDS 


00523 . 


WORDS 


@®eee%8@e@6mceemC mCi WC‘ (én ee oe eh ehmUcTmhlUcCOmhUC UC MhUC<C MC~<C OCU 


ae Bie eh Se ee fs SE nh 


8 


* 


wf & 


PROCEDURE DSORT 3 % 123 


0000tO 
DDRESS = 
0000t0 
0000!0 
0000%0 
000010 
00000 
000010 
0003!2 
000610 
OO11 4 
0014%3 
001310 
ZE= 0014 


Ma a 


$ 


T O00Ot0 
ADDRESS = 
T 000010 
T Q000%0 
rT 0000t0 
rT 000030 
T 000080 
T O0008O 
Ty 0003%2 
T 000833 
T 001270 
T 001410 
T O016%14 
T 0016%4 
T OO1810 
SIZE= 0019 


tT Q000t0 
ADDRESS « 
0000806 
000070 
0000!0 
000030 
0000tO 
000080 
O002%0 
001140 


07100000 

START OF REL SEGMENTS DISK 

COMMENT DOUBLE PRECISION SQUARE ROOT INTRINSICS$ 9% PF JUNE 67 07100100 
BEGIN REAL X = “41> 07100200 
XL = "2s 07100300 

HUNK = 17 3 07100400 

LABEL HAF} 07100600 

IF X LE@ O THEN IF X=0 THEN PCO» +JUNKsSTNeRTN) 07100700 
ELSE PCMKSsINTCALL(27eFORTERRID) 3 07100710 
PCXL #XsQeMKSe INTCALL (Xs SQRTID» eJUNK»STN»DLDs Or JUNKs DLAs Or HAFSDLMe eUNKs OF100800— 
STDeRTN)D 5 07100810 
HAF $23 @11540000000000003 07100900 
END DS@RT3 07101000 
PROCEDURE CSQRT 3 % 124 07200000 
START OF REL SEGMENT? DISK 

COMMENT COMPLEX SQUARE ROOT INTRINSIC3 x PF JUNE 67 072001400 
BEGIN REAL X = “14> 07200200 
YR "2p 07200300 

JUNK = 17 3 07200400 

LABEL HAF3 07200700 

IF X = Q THEN IF Y = 0 THEN PCO» +JUNKsSTNeRTNDE 07200800 
PCMKSsINTCALLCPCMKS* Xs INTCALLCYsCABSI) »XeSSP*ADDeHAF MUL 2 »SQRTID) 3 07200900 
IF X 2 0 THEN PC eJUNKsSTNsDUPsADDs Ye XCHp/eRTN) 07201000 
ELSE BEGIN IF Yef1!1] THEN PCCHS)3 07201100 
PCDUPsDUPsADD+ YeXCHs/ s+, JUNKs STDeRTNDG 07201200 

END; 07201300 
HAF &% @41540000000000003 07204400 
END CSQRT} 07201500 
PROCEDURE ERF 3 % 125 07300000 
START OF REL SEGMENT? OLSK 

COMMENT THE ERROR FUNCTION INTRINSIC3 % PF MAY 67 07300100 
BEGIN REAL x = “4s 07300200 — 
XSQeTs We 07300400 

LABEL Ar BeCoDe Eo Fo Goto lode Kol sMoNs OVERS MSRIPI3 07300500 
DEFINE MORE = ADDsXSQsMUL#s LESS = SUBsXSQ*MUL#3 07300600 
IF ¢XS8SQ © XxX) < 2,22 THEN 07300700 
tr POCNOPs AsXSQ*MUL PR eLESSsCs MORE s Ds LESS» E» MORE s Fe LESS+GeMOREs Hse LESS» 07300800 

: TeMOREs JoLESS#K »sMORE sl »LESSsM»MOREsNeLESSsOVERs ADD» XoMULaRTN)3 073900900 
IF xSQ < 24 THEN 07301000 
BEGIN W © (XSQ + 1445)x€T © XSQ + 6,6267867473) = 39,1779586414;3 07301100 
T © (XSQ + 12.5)xW = 45,5xT3 07301200 

Wee CXSQ + 10.5)xT = 33xW; 07301300 

T © (CX8Q + 8.5)7xKW = 22,5xT3 07301400 

We (€XSQ + 6.5)KT * 14xW3 073041500 

T © (XSQ + 465)KW = 7,5xT3 07301600 

Woe (€XSQ + 2.5)xT * 3xW3 07301700 

T © (XSQ + .5)*W ™ ,5xT3 07301800 


Se ee ee Mee Re Re ee ee ee ee ee 


O0Lart 
001910 
002223 
0025%2 
O028%4 
0031410 
0033383 
0036!2 
003984 


00524 


wORDS 


00525 


WORDS 


00526 


| 
1 


to: 


PCABSCX) + WseMUL*MKSs INTCALL CXSQ*2EXPI )»MSRTPI»MUL» T»MUL 9/912 ADD) 


END ELSE PC1)3 
IF X.C121) THEN PCCHS)3 


eee 


22. @4324164756260433; B ?#3 @1313314675626043;3 
, tae ®43063166666475633 D $23 ©12612427254311733 
Eo 3% @42514771347130371;3 F 83% @©12495756353135343 
G@o32t 4233347466027 3673 H 82% @©12237232226753443 
IT ott? @42437464311573023 J ot8? @12034005555000063 
K $83 @44725313363207153 L #2 @11615602634304503 
M 823 @41674613620640463 N #82 @14530044724530073 
OVER 322 @11417015656501033 MSRTP1282@31416133761106653 
END ERF3 
PROCENURE GAMMA 3 % 126 
COMMENT GAMMA INTRINSIC % PF MAY 67 


BEGIN REAL X & #1» 
Ea Vals 
BOOLEAN S$ INTEGER K3 
LABEL LisPMAX»sMMAXsPI»MPI3 
DEFINE SUBMUL = SUBsEsMUL#» ADDMUL = ADpsE»MUL4; 
IF § *« xX $ 0 THEN X © PCXsSSP)3 
IF X>52 THEN POMKSs INTCALL (C28,FORTERRID) 3 
IF CE © PCXsDUPRs.Y*SNDs o5eSUBs Ke TSNeSUB)) = 0 THEN 
BEGIN IF S THEN IF Kel47%1} THEN PCMMAX)ELSE P¢PMAX) 
ELSE IF K $ 2 THEN PC1) 
ELSE GO To Lis 
PCRTN)3 
ENDS . 
IF K ¢ 2 THEN Vv « CIF K = 0 THEN PC1sXsDUPs12ADDsMUL2/) ELSE 
IF K = 1 THEN 1/X ELSE 1) 
ELSE Lit BEGIN X « X = (Vv ¢ 493 
DO V+ XXV UNTIL (¢X © X * 1) < 23 
IF £ = 0 THEN PeEVeRTN)3 


<< 


END> 

ae POCNOPsEs .00006771057117aMUL» 
~000344293420456sSUBMUL» 
200153976810472,ADDMUL » 
"00246674798054»SUBMUL 
29109736958417.ADDMUL » 
~00021090746731*SUBMULs 
2074237907606 ADDMUL » 
2981578218785 AD0MUL, 
4418402517962 ADDMUL» 
0 4227843369622 ANDMUL » 
299999999999 AND» VeMUL se. VeSTN)3 


TFS. THEN PCDEL»MPIsMKS* INTCALL CPCPI)XY, SINT) ¢VeMULsYoMUL eo /) 3 
PCRTNYS 


2 @11431103755242103 
$2 @31431103755242103 
1 BO7777777777777773 
§ @277777777777 77773 


07301850 
07301900 
07302000 
07302100 
07302200 
07302300 
07302400 
07302500 
07302600 
07302700 
07302800 
07302900 
07303000 


07400000 


START OF REL SEGMENTS O1SK 


07400100 
07400200 
07400400 
07400500 
07400600 
07400700 
07400800 
07400900 
07401000 
07401100 
07401200 
07401300 
07401400 
07401500 
07401600 
07401700 
07401800 
07401900 
07402000 
07402400 
07402200 
07402300 
07402400 
07402500 
07402600 
07402700 
07402800 
07402900 
07403000 
07403100 
07403200 
07403300 
07403400 
07403500 
07403600 
07403700 
07403800 


T Q042t0 
T 004683 
T O062%4 
T 006333 
T 006410 
T 006460 
rT O06at0 
T 007030 
T OO7at0 
T 007420 
T OO76f0 
T 007820 
T OO8GtO 
I 


T 000030 
ADDRESS sz 
0000fO 
000020 
0000'0 
0000%0 
0000!0O 
000080 
0000!0 
00040 
OO0784 
001082 
0015%4 
001734 
OO1734 
001782 
0017%2 
002234 
002510 
002783 
0034%41 
00330 
0033%0 
003440 
003530 
003670 
003710 
003830 
0039%0 
004080 
004430 
004210 
004370 
0044t2 
0049%2 
004923 
005430 
005230 
005380 


es as a se se 


WORDS 


00529 


Lm 


END GAMMA$ 07403900 
PROCEDURE ALGAMA3 & 127 07500000 
START OF REL SEGMENTS DISK 

COMMENT LOG GAMMA INTRINSIC 07500100 
BEGIN REAL X 3 "1s 07500200 
TS 07500400 

DEFINE SUBMUL = SUB» TsMUL#s ADOMUL = ADHDe Ts MUL #3 079500500 
IF. X LEQ O THEN PCMKSs INTCALLC3470X40)eFORTERRID) 3 07500600 
IF xX<3.28 THEN PCMKS»INTCALLOPOCMKS»INTCALLCX*#GAMMAIT) )sLNIDsRTN) 3 07500700 
PC1lsXsDUPsMUL o/s eTeSND D3 07500800 

£3 PCNOP»s1.392432216906sCHS»MUL, 07500900 
2179644372369. ADDMUL» 075041000 
29295506535948,SUBMUL» 07501100 
69064102564103+ADDMUL» 07501200 
090191752691753»SUBMUL» 07801300 
-000841750841752ADDMUL» 07501400 
-00059523809524»SUBMUL, 07501500 
200079365079365*ADDMUL » 07501600 
»00277777777778sSUBMUL, 07501700 

0083333333333 2ADDeXe/ 2 91893853321 2ADDe 07504800 
XeDUP*,S5*#SUBsMKSs INTCALL CX*#LNI J eMULeXCH*e SUBS ADD) 3 07801900 

PORTN)} 07502000 
END ALGAMA} 07502100 
PROCEDURE ANDI 3 % 130 07600000 
START OF REL SEGMENTS OYSK 

BEGIN 07600100 

REAL A = " 1sB = 23 07600200 

PCA AND BsRTNYS 07600300 

END ANDI3 07600400 
PROCEDURE ORI ; % 434 07700000 
START OF REL SEGMENT? OYSK 

BEGIN 07700100 

REAL A ="1*B8 = 23 07700200 

PCA OR BeRTN)3 07700300 

END ORY3 07700400 
PROCEDURE CMPL 3 % 132 07800000 


START OF REL SEGMENTS DISK 


tT 005410 
SIZE= 0066 
ry 000030 
ADDRESS =a 
rT OO00tO 
T oOO00CfO 
T 000010 
T O000%0 
T oOoooddfo 
T O004%2 
T 0009143 
T OO014t2 
T 004310 
T 001480 
T 0045106 
rT 004680 
T OOL7tO 
T OO018t0 
T 001910 
T o0020!0 
T 002430 
T O0221t2 
T 0026%2 
ry 002633 
SIZE= 0040 
T OO00%0 
ADDRESS = 
tT 000010 
y 000040 
T oO000%0 
T 000,480 
SIZE= 0002 
T Q000t0 
ADDRESS «= 
TT 0000!0 
T 000010 
T O00010 
T 000480 
S1ZEs 0002 
r 000080 
ADDRESS = 


wORDS 


00532 


WORDS 


00334 


wORDS 


00535 


WORDS 


00536 


2 2 


oe a 


BEGIN 

REAL A = * 13 

Pc (NOT Ad*RTN) 
END CMPL3 


PROCEDURE EQUIVP3 2 133 


a 


0780041400 
07800200 
07800300 
07800400 


07900000 


START OF REL SEGMENTS DISK 


REGIN 
REAL A=zw1eB = 23 
PCA EQV Be RIND 
END EQUIVP: 


PROCEQURE FORTERR3 & 434 RUN"TIME ERRORS 


07900100 
07900200 
07900300 
07900400 


07900410 


START OF REL SEGMENTS DISK 


BEGIN 
COMMENT 
CODES O THRU 3 ARE USED BY THE FORMATING INTRINSICS, 
10 THRU 32 ARE USED BY VARIOUS MATH INTRINSICS; 
REAL CODE = "LoFIDsMFID* IND» BUFF» As*2sBae3,Camg,Dan5$ 
ARRAY TPAR( *]sFIBC*¥I]eFPBs3C4] 3 
NAME MEM = 23 
LABEL CD» FO95s CDi» CD2s DC» DC1» DC2> Goods 3 
LABEL CPLReXTOTsCSSC»DMOD sDEXPsCEXPsDLGZs0LGMsCLOGsALTZ»ALTMsDLTZsDL TMs 
CSIN*CCOSs ACOS*ASINSDSQR*GAMAsSINH*COSH*ALGZ*# ALGM*MAXNe ZERO ®NGTVe 
LOs Lisl 2el 3sLX*WRAPUPSFIGERS 
LABEL Las LS» L63 
SWITCH SW1 ¢ LO, Lie L2e LBs L4s LS, L63 
SWITCH SW2. ¢ CPLReXTOLsCSSCsDMOD*DEXPs CEXPsDLGZ»sDLGMsCLOGsALTZsALTM» 
DLTZs+OLTMsCSINsCCOSSACOS s+ ASINSDSORsGAMAsSINHsCOSHsSALGZ> ALGM3 
DEFINE STREM = STREAM(D ¢ CTPARC#s STO = STREM 031)42 ST2 & STREM 231354; 
DEFINE CCS5(CC551) = CCSS1CDSe*LIT™<"; Stead; DS*A13 CHR} DSeLIT">#) #, 
NASCNAS1sNAS2#NAS3) = ST©LOC NAS13 DS*NAS2 DECH NAS3CDI «DI #4 3 
DSeLIT"«e™) #y “ 
CO5¢cN512C05220053,0054.C055) = cC55(CD51)3 CDO52CNASCCD535CD54,. 
cD55)) #» 
SAVWEF #2 SAVDZE #8» WH23B #2 WH1I=C fe R=G #; 
SUBROUTINE GETFILE? 
REGIN ; 
FIB «© MEMCCNOT 2) INKX Aj} 
MFID «© FPBEINOD © FIBL4]-¢C13%11313 
FID « FPBLIND+41]3 
BeBb+ 13 
END GETFILE 3 
REAL Ths T2sT32T4sT5 cE S96 oF S77 GBB oe HemOeTE™ {Oe IRL 1 9Ks712 5 
INTEGER ITAsT2 3 
ARRAY TEN=22C*] 3 
LABEL LOOPs ALFA $3 
REAL SUBROUTINE SIZ 3 
BEGIN 


PROGRAM GENERATING VARIOUS ERROR MESSAGES WITH A DS, 
CODES 


07900500 
07900600 
07900700 
07900800 
07900900 
07901000 
07901100 
07901110 
07901200 
07901300 
07901400 
07901410 
07904500 
07901600 
07901700 
07901800 
07901810 
07901820 
07901825 
07901830 
07901835 
07901850 
07901900 
07902000 
07902100 
07902200 
07902300 
07902400 
07902405 
07902440 
07902415 
07902417 


07902420 


07902425 
07902430 


T 000010 
y O000!0 
T O000f0 
T 000083 
SIZE= 90014 


T 00080 
ADDRESS s 
T 0000:0 
T O00n%O 
T O0d008%0 
rT O00180 
SIZE= 0002 


T O000%0 
ADORESS = 
r = 00080 
000070 
0000%0 
000030 
O00gtO 
o000t6 
Q000f0 
0000!0 
0000'O 
000070 
000070 
0000!0 
000080 
000010 
000010 
000at0 
0000%0 
000010 
000010 
o000f0 
0000!0 
0000t0 
0000%0 
000450 
000440 


O005%2 
000780 
000a%1 
0008%2 
000832 
0008%2 
0008te 
0008t2 
0009!0 


st a st a 


0003%41. 


me 


WORDS 


60537 


wORDS 


00538 


eocecereveeceeceeer een eeeeeee 6 


TENCT3I¢TEN i¢0 3 
THEN GO LOOPS SIZ+T1 3 


NC68]3 
LOOP: IF TENCTi¢cTi+ilste2 
END OF SIZ 3 
Boe Ke kk ek eK ek em PROGRAM STARTS & & &# ee hk ee ee oe Hw 
TPAR|PCLTPARLCIJ]>CFX*s SFR IR1708338810] 3 
IF cODE=(€=2) THEN 
BEGIN T3¢53 T2«B 3 
STREAMCE s De Co Br AeN3ePCALFA) sNleSIZsT2eT2eAeN2eSIZaTPAR) § 
BEGIN 
Os¢tSLit"=DATA STMT ERR#™3 Sle_oc E% OSe*DEC 3 
DSe4L ITs. Tas SteLoc N33 SreSI+#D3 DSeCHR 3 
OS*4L1T*%,0Ts"s ST*#Loc N33 SI*SI#C3 DS*CHR 3 
OS*3LIT™sL="3 STeLOC BF DSeNY DEC 3 
DS¢3LIT%sD="3 OSeN2 DEC DSeeLITtse 3 
END 3 
GO WRAPUP 3 
END 3 
IF cODEs(€=1) THEN 
BEGIN 
STREAMCTPAR)3$ DS*33LIT**MIXD UNFMT/ALPHASMODE TAPE I/Qte™ § 
GO WRAPUP 3 
END 3 
IF CQDE=€"3) THEN 
BEGIN T3¢4s Teel; FID] CMFID]P(G095) "41 3 
STREAMCJsKe lo FP leSIZsOel 2eboF 2eSIZeF 34¢G>10 AND 15>GoeF es 
N3¢PCALFA) sClelT2eEsCeSTZsRlelT2eDeleReSIZe 
BUFF eCe VOB. L42%1) AND B, C4682] =0rAdeT24B, (681212 A5¢SI2Z 
XTeTes 1s ASSeJeCKeT2 SMF TD,A2¢€(T5¢B AND 15)8#12 OR T5=8, 
A3¢T5=12 OR TSA4sCDeP (DC) eCDLEP (DCL) »Ze0,CD2¢P(DC2)5 
A6©(T44¢B, 0195)" 29A7¢T26B8.618812)2A8eSIZx( (T4230 OR 
T2AFID) AND €T449 OR T240))2ABS¢MFIDET2 2A9¢T4211 AND 
T4514 OR CT4=30 AND CT2eB, C3021 2) 4F ID sALO+T2sA11¢SIZ>» 
ALIS*T2=MFIDeAL2¢T2¢IF J THEN A.C18#15] ELSE Ke 
AL3«SIZx]sTPAR) 3 
BEGIN DSeL1LIT™=DATA ERR #"3 ST¢LOC Js SIeSI+73 OSeCHR 3 
DSe2LIT™= "3 VONASCA4SASeAS559)3 ASCOSeLIT"K")3 ABCDSeLIT 
WE") STeLOC CO} SleSI+A63 DS*#CHR# NASCA7SAB2AB5) 3 
AQCDSeLITT%a"3 NASCA102A112A115))3 DSeaLIT™ => "3 JUMP OUT 
TO L124 DSe7LITMFMT IS "3 Liz SIeLac A123 DSeA13 DEC 3 
AZCDSeLIT™K")S AICOSeLITg")3 STeLQc Ki ST*#SI+73 OS*CHR 3 
OS¢Fi DECs F3CDSeLIT"."3s STeLac D3 DS*F2 DEC); OS¢é6_LIT 
" TYPE"3 STeLOc N33 STeSrt+F3 DS*CHR3 DS*6LIT"s COLH”™ 3 
NSe«c DEC; DSe6LIT%» CKRe"*; SI*BUFFS SI*SIle13 DSe*cHR 3 
DS¢6LIT",» RECH#"S STe*eLOC Ris OS*R DECS OS*3LIT" se™ 3 
END OF STREAM 3 
GQ WRAPUP. 3 
ALPAS 23 @2531625143242300 ; 
NCr2s WPYTAOLJUF DCLI33 @31272625242300003 Ncersis *cyooo" 3 
GO95%22 4095 3 
EN 3 
IF CODE=("4) THEN 
BEGIN 
IF COpDE.f£2%13 THEN 
BEGIN 
STREAMCTPAR)$ DS*#Z4LIT™@UNINITIALIZED. POINTERI©€” 3 
G0 WRAPUP 3 
END 3 


T 


07902435 
07902440 
07902445 
07902447 
07902448 
07902450 
07902455 
07902460 
07902465 
07902470 
07902475 
07902480 
07902485 
07902490 
07902495 
07902500 
07902505 
07902510 
07902515 
07902520 
07902523 
07902525 
07902530 
07902535 
07902540 
07902545 
07902548 
079025514 
07902554 
07902557 
07902560 
07902563 
07902566 
07902568 
07902569 
07902572 
07902575 
07902578 
07902584 
07902584 
07902587 
07902590 
07902593 
07902596 
07902599 
07902602 
07902605 
07902606 
07902607 
07902608 
07902610 
07902614 
07902615 
07902616 
07902617 
07902618 
07902619 


AAA AHA st a ot a tH HA A A st ts st st a 


00091t0 
O0L¢t4 
OOlLas 4 
O014t2 
O0L4g!? 
002031 
0024%4 
002331 
002843 
002833 
00314%2 
003324 
003520 
0036%2 
O038%4 
00382 
003910 
0039%0 
0040390 
O040%e 
004634 
O0H46?3 
004623 
004783 
005482 
0058:0 
006220 
0066%2 
007330 
Q0O75#3 
008033 
0085i2 
009420 
O0S4ta 
009734 
009933 
0105#0 
0108%3 
011330 


011533 | 


0119180 
012143 
0124:2 
012633 
012934 
012982 
0130%0 
013420 
013440 
Q435!0 
013530 
013630 
013682 
O1L37%4 
013783 
Older, 
014283 


. i oe Ooh. Sit ee eee Sty bikes tales Page yds wa Saye i aces uae - vel Gof CEILS i a eos tc eee ates sete cas 


zs “ee te al 


STREAMCTPAR)$ DSe¢32LIT'*"BINARY TAPE REC HAS < 3 WORDSte"™ 3 
GN WRAPUP 3 
END 3 


IF CODE=(€"5) THEN 


FOQ9OS¢:3 
Chis: 


LO3 


Lit 


BEGIN T3«83 CODEeH 3 
IF §=2 THEN REGIN COpEe303 IF WH1>63 OR WH1<10 THEN D*12 END 3 
IF A.CL?51<5 THEN BEGIN AeCOS12]¢A,£1881213 ReSAVWF De1O END 3 
IF D>9 THEN 
BEGIN FIBYPCEFIBELI]sCFX»SFBI&S(8238210)3 FIBLOJ6O 3 
BUFF Ee CCBRUFFEENITITCFID] FI gel 332151] 2022eWH2eWH1)), £33515)" 
FID)x8+BUFF.C3023) 3 
END 3 
FID©CMFIN©PCFO95) —1 | 
IND€CNDE>14 AND CCODEZ30 OR aA,(30:12I2FID) 3 
STREAMCALCF IR, AZ¢(T5¢A AND 15)512 OR T52BsA3*¢TS212 OR T5e4ds 
ASeTZe Ag LOLL 2D s ASeSIZXTS OT 241 ep ASSeTOSMFID es AGH (THe aA, (185) 
y=2eATETZEA,LAIB21L21 2AB+SIZx (T4229 AND T443 AND T4#4 
AND (T4730 OR T24 FID) AND (T449 OR T240))2AB5¢(T2e 
MFIO) sA9eT42141 AND T4S4i4 OR €T4e30 AND (T2eA,030%121) 
X FID) sALOeT2sAL1LESIZs ALL 5eT22MFIDsAL2«T4s3 AND A,gl4iti) 
sRLOeDZ1LOsReDFLO2R1eT2¢ReR2eSITZXT5» 
Vi2«De12sVVeN=2 AND WHiz31eVeD>2 AND D412, 
VieCODE™2sSKPWDeCODES3 OR CODEs29 OR (CODE=30 AND 
SAVW= FID) OR CODE=4 OR (CODE=9 AND SAVW20)sW14¢Ds14> 
WeDZ LAs WWESAVWEF IDeA W5eSAVWEMF IDs SKPD© CODE 
<11 OR INDsD16eN=16eDeD216200¢ 
SAVOD#F ID*e DS+¢SAVDEMF IDs D1 eT2¢SAVDsD2eSIZ+W1*T2+SAVWe 
W2eSIZeWH1 9 AL 3eBUFF sCDeP CCD)» COL]EPCCDL)sR5€0s 
CD2€PCCO2)eTPAR) 3 
BEGIN DSe16LIT"*VARBL FMT ERR= "3 ALZCDSeLIT"#") 3 
NAS(AGPA52A5S)3 ASCDSELITMK"DS AZCOSeLIT"S") 3 
ST*#LOC CD3 SI*ST+A63 DS*CHRS NASCA7#A82AB5) 3 
AQCDS#LITMa"S NASCALOSA11,A41159)3 DSea4LIT™ => ™ 3 
ALZCDOS*LIT™=")3 COSCRIOsRsR1sR2eR5)5 ASCOSeLIT™K")3 ASCDSe 
LIT"S")3 CCSSCV12)3 VCST*#LOC CDF STeSI+Vis DS*CHR)S VVCOSe 
LIT"’<"3 SI©LOC WHI ST*St4+7? DS*CHRS DSeLIT™>");SKPWOC JUMP 
NUT TO XXIWWCDSeLILIT"<MISSING W>%3 SKPDCJUMP OUT 2 TO Xx 
33 DIeDI=13 DSe7LIT" AND D>*S JUMP OUT TO XxX} CDOSCW1L4eWo Wd 
eW2eW5)3 GO XV XX? GO XTZ XV SKPOCYUMP OUT 1 TO XT)3 DSe 
Lites DDCDSeLiLIT*<MISSING D>"™3 YUMP OUT 4 TO xT) 3 
CO5€D16e04D1902205)3 XTs OSe3L IT se" 3 
ENO OF STREAM 3 
GO WRAPUP 3 
A098 3 
"PXTAOLIJ"S CDLFS3 @3127262524230000;3; coats? "cvo0d™ 3 
END 3 . 
IF CONE<10 THEN GO SwilCOde) 3; 
GO TO SW2E~CODE = 10313. 
% 0 
STREAMCP1¢QO'P2 © CTPARLOI1)3 
BEGIN 
DS « 14 LIT “FORMAT ERROR "3 
P1 ¢ OT3 
ENDS 
BUFF: © P3 
GO 70 Lx; . 
% 1 


07902620 


07902625 © 


07902630 
07902631 
07902632 
07902633 
07902634 
07902635 
07902636 
07902637 
07902638 


07902639 


07902640 
07902644 
07902642 
07902643 
07902645 
07902647 
07902650 
07902655 
07902660 
07902665 
07902670 
07902672 
07902675 
07902680 
07902685 
07902690 
07902692 
07902695 
07902700 
07902705 
07902710 
07902720 
07902725 
07902730 
07902735 
07902740 
07902745 
07902750 
07902755 
07902760 
07902765 


07902770 
07902774 | 


07902775 
07902780 
07902800 
07902900 
07903000 
07903100 
07903200 
07903300 
07903400 
07903500 
07903600 
07903700 


ea se ns ts a st a 


014233 
014831 
0148683 
0148:3 
014943 
015473 
015633 
O162%4 
016340 
OL67%4 


017354 


017543 
017533 
017722 
0181214 
018682 
019484 
O197%0 
O20e%4 
020524 


021082 


021532 
021983 
0223180 
022840 
023034 
02330 
023633 
0239%4 
O2a0h4 
024323 
O24Rt2 
025433 
025630 
26482 
027010 
O272%2 
027612 
027984 
028682 
029010 
029634 
029632 
029730 
029830 
030420 
030140 
0306!3 
031923 
0319%3 
O32151 
O32454 
032354 
032342 
032333 
032441 
032423 


eececevreveeceeeeeceeeeeee ee es 


Lot 


Lx3 


L3t 


Lai 


% VOID 


L538 


Lét 
CPLR: 
XTors 
CSSC3 


DMODS 


STREAM(P1¢02D © [TPAREO]I)3 
BEGIN 
DS «© 16 LIT "=NAMELIST ERROR "3 
Pi + O13 
END} 
BUFF « P3 
GO TO LX3 


% 
STREAMCP1¢0#D © CTPAREO]])3 
BEGIN 
nS ¢ 12 LIT "TYPE ERROR "3 
pi ¢« DI} 
END 
BUFF « P3 


GETFILES 
STREAMCMFID*FID* Be BUFF) 3 
BEGIN 
DI©BUFES DSesLIT"ON FILE "” 3 
Sl ¢ LOC MFIDs ST « SI + 143 DS © 7 CHR DS ¢« LIT "43 
SleLOC FID SI*St+13 OS*7CHR$ DOSe7LIT%s REC #" 3 
St « LOC Bs OS « 8 DEC# DS « 2 LIT Mse"; 
END} 
GO TO WRAPUP$ 
% 3 
STO} 
DS ¢ 18 LIT "DATA STMT ERRORS €"3 
GO TO WRAPUP$; ; 
% 4 
STREAMCPLEOSDeLTPAR(LOI) 23 
BEGIN 
NS*26LIT™"MIXED FMT/UNFMT TAPE I/O ™ 3 


P1, « OF; 
END3 
BUFF « P3 
oe TO LX3 


STREAMCP1ieO?De|(TPAREOJIJ 03 
BEGIN 
pNsisi6 LIT “#LIST SIZE ERROR: "3 
Pi « O13 
END; 
BUFF « P3$ GO TO LX; 
STO# &% 6 
DS © 21 LIT "INVALID ARG CONCAT#&«"3 
GO TO WRAPUP3 
STO3 .& 40 
DS « 31 LIT "*EXPRESSION COMPILATION ERROR «3 
GO TO FIGER: 
STO} & 11 
DS © 21 LIT "NEGATIVE BASE xTolso™3 
GO TO FIGERs 
STO3 % 12 
DS © 24 LIT "COMPLEX EXPONENT XTOL¢e'; 
GO TO FIGER: 
STO} % 13 


07903800 
07903900 
07904000 
07904100 
07904200 
07904300 
07904400 
07904500 
07904600 
07904700 
07904800 
07904900 


07905000 


07905100 
07905200 
07905300 
07905400 
07905500 
07905600 
07905700 
07905800 
07905900 
07906000 
07906100 
07906200 
07906300 
07906500 
07906700 
07906710 
07906720 
07906730 
07906740 
07906750 
07906760 
07906770 
07906780 


07906790 © 


07906800 
07906810 
07906820 
07906830 
07906840 
07906850 
07906860 
07906861 
07906862 
07906863 
07906890 
07906900 
07907000 
07907400 
07907200 
07907300 
07907400 
07907500 
07907600 
07907700 


4A as A tO At A tS a A a A ss Ht a 


032413 
0326%4 
O326i¢ 
0328%2 
0328%3 
03290 
Q0329:2 
033050 
033030 
Q03314%2 
033,42 
0333414 
0333%2 
033333 
O33at] 
O3354%4 
0335:0 
0336%2 
03362 


033840 


033984 
O341%4 
Q34a%4 
QO342%0 
0343180 
034330 
034410 
034633 
O347% 4 
O3947%4 
034883 
034833 
0352%4 
035274 
0352%9 
035233 
0353%4 
035383 
035333 
0355%4 
O355%4 
035733 
0358!0 
035671 
0359314 
O360%4 
0363%2 
0364:0 
0365120 
0369!2 
0370%0 
037130 
037434 
0374!3 
037533 
037934 
037923 


de we 


NEXP? 


CEXP? 


OLGZ: 
DLGM$ 


CLaGs 


ALTZS$ 
ALTMt 


OLTZ: 
DL™M3 


CSINS 


ccos: 


AcQgs? 
ASIN: 


DSQRs 


NGTV3 


GAMA 


SINKS 


COSH: 


MAXN3 


ALGZ& 


AL GM? 


wh ‘ rd ». SE a ad 


DS « 2O-LIT "*ZERQ MODULUS DMOptetts 

GO TO FIGER? 

ST23 % 14 
DS ¢ 6 LIT “DEXPse"5 

GO TO MAXNs 

ST23 % 15 
DS « 6 LIT “CEXPse"3 

GO TO MAXN: 

BUFF « TRUES % 16 
$723 % 17 


08 ¢€ 6 LIT "OLOGse"3 

IF BUFF THEN GO TO ZERO ELSE Go TO NGTV3 
ST2} % 18 
OS « 6 LIT "CLOG#e"; 

Go To ZERQ} 

BUFF « TRUES x 19 
ST23 x 29 
DS « a LIT “ALOGLOSe™; 

IF BUFF THEN GO TO ZERO ELSE GO TO NGTV; 
BUFF « TRUE % 2it 
ST23 % 22 
DS ¢ RB LIT “"“OLOGLOses 

IF BUFF THEN GO TO ZERO ELSE Go TO NGTV3 
ST2s % 

DS « 6 LIT "CSINZeE"S 

GO TO MAXN3 

$T23 % a4 
pS ¢ 6 LIT "“"ccQsSze"; 


23 


GO TO MAXNs 
BUFF « TRUES 4 25 
STREAM(B © BUFF»D « ETPARCO}1)3 & 26 


BEGIN DS « 19 LIT "*ABSCARG) «GTe 1 ARS 
St « Loc Bs SI « SIT + 73 
IF SC = "1" THEN OS ¢ 5 LIT "CQSte"™ 
ELSE 0S « 5 LIT "SINDEN"; 


ENDS 

GQ TO FIGER3 

ST23 27 
DS ¢ 7 LIT "DSORTS¢"} 

STO3 


DS ¢ 16 LIT "*NEGATVE ARGMNT "3 

G0 TO FIGERS 

$T23 % 28 
DS ¢ 7 LIT “GAMMA e"3 

GQ TO MAXN: 


ST23 x 29 
DS «© 6 LIT “SINH3«";3 

GO TO MAXNs 

$T23 a 30 
pS & & LIT “cOSHse"; 

STO3 


DS © 16 LIT "*ARGMT .GTe MAX "3 

GO TO FIGERS 7 
BUFF « TRUES % 34 
ST O39 RS ? 32 
DS « 8 LIT "ALGAMAte"3 

IF NOT BUFF THEN GO TO NGTV3 


07907800 
07907900 
07908000 
07908100 
07908200 
07908300 
07908400 
07908500 
07908600 
07908700 
07908800 
07908900 
07909000 
07909100 
07909200 
07909300 
07909400 
07909500 
07909600 
07909700 
07909800 
07909900 
07910000 
07910100 
07910200 
07910300 
07910400 
07910500 
07910600 
07910700 
07910800 
07910900 
07911000 
07911100 
07911200 
07911400 
07911500 
07911600 
07911700 
07911800 
07911900 
07912000 
07912100 
07912200 
07912300 
07912400 
07912500 
07912600 
07912700 
07912800 
07912900 
07943000 
07913100 
07913200 
07913300 
07913400 
07913500 


444 AAA a a a A A A A HAH AA TR AHA HA AH HHT VHA VAS 


0380%3 
038333 
0384'4 
O0385%t4 
03862 
038710 
036a:0 
O389%4 
0389%3 
0390%2 
039 4%2 
039883 
039430 
0395:0 
0396414 
039633 
039732 
O0398%0 
o400r0 
040424 
0402120 
040320 
O404ia 
040533 
040613 
040820 
0408g!2 
0409%2 
041083 
O414t4 
041240 
O413%4 
041680 
0416%2 
0414840 
OaLOttL 
0414932 
042020 
042140 
O042a%2 


042382. 


042610 
042682 
O42712 
042940 
0429%2 
O430%2 
0431433 
043234 
O43324 
O434t9 
0435!%0a 
043830 
043a%2 
O4394 
O440?4 
044173 


’ a 
a Net 


@eeeee#eeeee##8f @8@© 6 8@ 6 0@6hlUc8hUCOhlUCOhlU!O e 


ZERO? STO3 


DS ¢ 16 LIT “*=ZERO ARGUMENT "5 
WRAPUPS FIGER? 

PCCTPARCOIJ).£33215]+342C0M)3 
END FORTERR: 


PROCEDURE MAX3 % 135 


COMMENT MAX INTRINSIC RETURNING INTEGERS; % PF JULY 67 
BEGIN REAL X = 1» RCW = +0 SIZE = +42 JUNK # 423 
PCOs+RCWeFCX» Ef ROW] INX NOT O INX OsXCH»SUBs02X)3 

WHILE (SIZE ¢ SIZE *™ 12 > 0 DO 


“BEGIN PCDUP)3 


JUNK © *€PC,X2 # SIZE)3 

Ie P < JUNK THEN PCDEL*sDUP)3 
ENDS 
PC1sDIVsRTND3 
END IMAys 


PROCEDURE MINS % 136 


COMMENT MIN INTRINSIC RETURNING INTEGERS$ | % PF JULY 67 
BEGIN REAL X = =f» RCW = +0» SIZE = #45 JUNK = #23 
PCO*sRCWsFCX*#ERCW] INX NOT O INX O»XCHsSUBLO9X)$ 
WHILE (SIZE « SIZE * 1) > 0 DO 
BEGIN PCDUP)3 
JUNK © #€PC,X) + SIZE)3 
IF P > JUNK THEN PCDELsDUP)3 
END3 
PC1s0IVsRTN)S 
END IMINS 


PROCEQURE IMQD3 % 137 


COMMENT INTEGER MOD INTRINSIC? % PF - JULY 67 
BEGIN INTEGER x = *2» 
Y= "43 
PCX MOD YelsDIVsRTN)3 
ENf IMOp3 


PROCEDURE CONCAT 3 % INTRINSIC NUMBER @140, 


07913600 T Q44a%ea 
07913700 tT 044329 
07913800 T 044610 
07913900 T 044630 
07914000 T Q447!t0 

SIZE= 0448 


08000000 rT 0000!0 


START OF REL SEGMENT? DISK ADDRESS = 


08000100 000080 
08000200 000010 
08900300 T O000%0 
08000400 0003%4 
08000500 0005t2 


08000700 000784 
08000800 0008!3 
08000900 000084 
08001000 001030 


7 
Be 
T 
T 
T 
08000600 Tf 000533 
T 
T 
T 
- 
SIZE= 0011 


08100000 r O000%0 


START OF REL SEGMENTS DISK ADDRESS = 


08100100 T 000040 


08100200 O000t0 
08100300 000080 
08100400 000331 


T 

T 

T 
08100500 Tr 00085392 
08100600 tr 000523 
08100700 T O0071%}1 
08100800 7r 000a8%3 
08100900 T 0009314 
08101000 T O010tO0 

SIZE= OO11 


08200000 Tt oO000f0 


START OF REL SEGMENT? DISK ADDRESS = 


08200100 T 000010 
08200200 T o000t0 
08200300 T 000030 
08200400 r 0000t0 
08200500 T 0001!2 

SIZE= 0002 


08300000 FT d0000!0 


WORDS 


00553 


WORDS 


00554 


WORDS 


00555 


WORDS 


START OF REL SEGMENT? DISK ADDRESS = 
BEGIN % FORTRAN CONCATENATE INTRINSIC!E CONCAT#Y&ZEAIBiX), 08300100 T 0000%0 
REAL YseSs Ze"4s ERR=24 3 08300200 T O000!t0 
INTEGER AS"™3% BE"2» Xen 3 08300250 T QO000%0 
DEFINE R= @0055005570267022 #. % NOPsDIAsOPDC YsOPDCeZe 08300260 T 000080 

$= @0055006100650235 #3 & NOPsDIBsTRBeRTN, 08300270 fr o0000%0 

IF CAeA)<1 OR (CB*B)Y<1 OR CXeX)I<1 OR CPC4B*xXsDUP <A OR PCXCH)<B) 08300300 y aQ000t0 
THEN POMKSs6eERR) 3 08300400 T 000630 

GO PCPCRI&CB DIV 690122458378 CBR MOD 6)L15%9293]-PCS)2A MOD 6s TRB 3, 08300500 T 000884 
PRCA DIV 6)L12245231RXL 2434226), Beer sAsee lA) 3 08300600 T 001243 

END OF CONCAT 3 08300700 T 0016%3 
SIZE= 0019 

PROCEDURE FORTRANMEMHANDLERCAsH)2 VALUE H3 REAL H3 ARRAY AL*]s 26164 08301000 T 000030 
START OF REL SEGMENTS DISK ADDRESS = 

BEGIN % H=0 => VARYINGs H26 => FIXED, He{ => RELEASE. 08301100 T 000010 
REAL I 3 08301200 T 00000 
PCxAsTOP) 3 08301300 T d000%0 
IF #20 THEN 08301400 T O004%1 
IF P THEN PCARHE 324523) >Cu2)RCAIEC33L18t15),¢) 08301500 tr 90002%0 

ELSE FOR I*©A,C8i10}"1 STEP “i UNTIL O DO PCLALIIJI]¢0UPsLOD>» 08301600 T 000630 

PRHEL 32453335 XCHee) 08301700 rf OO412%2 

ELSE IF P THEN PCAs38sCOMsDEL) 08301800 fT 0014320 
ELSE FOR I1eA,f8210)"1 STEP =1 UNTIL O DO PC#ELALIIJ1]»38sCOM*DEL): 08301900 T 001683 

END OF FORTRANMEMHANDLER 3} 08301950 T 002333 
S1ZE= 0025 

PROCEDURE SISO3 % 35 08400000 tT a000t0 
START OF REL SEGMENTS DISK ADDRESS = 

BEGIN ag 08400200 T 0000%0 
COMMENT STRING ISOLATE. INVOKED AS REALCPTReN). N COUNTS CHARS«3 08400400 T oO000fD 
DEFINE CSIZE=C31%02)4> COMMENT cCHAR@SIZE FIELD OF PTR; 08400600 T 000080 
EIGHT=O1#; COMMENT VALUE OF CSIZE FOR & BITS*CHAR3 08400800 T Od000t0 
INTEGER 08401000 T O000tO 
SOFF3 ZBIT OFFSET TO BIT 1 OF S FOR B"BIT CHAR 08401200 r O000TO 
INTEGER 08401400 F 000010 
PTR == 35 08401600 T 0000%0 
RCW BOD» SISO IS REALLY A REAL PROC? VALUE IN PTR 08401800 tT 0000%0 

N ==13 08402000 T o00010 
REAL RESULT PTR 08402010 rT 000030 
ARRAY 08402200 T 90000!0 
STRINGL#I5 ZUNINDEXED DD FOR SQURCE CHARS 08402400 T o000%0 
NAME 08402600 fT O00080 

Ms2} 08402800 y o000t0 
IF PTR=O THEN PCMKSs INTCALL ECS) 810284794) eFORTERRID) 3 08402900 ry 0000!0 
IF PTR,£91!01]7 THEN 08402925 T 0005:0 

PEMAIC1GL473 OLDePTR COSP 227 4CPTR,633215740 9 eCHSeCDCeDEL D3 08402950 Tf 000523 
STRINGeMEPTRIS 08403000 T 00102 
N@ABSON)3 08403100 7 O01210 
IF PTR»ACSIZE=EIGHT THEN 08403200 fT 001340 

BEGIN 08403400 y O014%1 


00556 


WORDS 


00557 


WORDS 


00558 


@®eeeneesse##e#ee 8 © @6h6UchOhUhOMhUMOMChCUCOCUCOMCUCOUCUCUODUCUCUOUlUCU e 


PROCEDURE SCANCUPDPDDsPTReUPDCDDsHISCOUNTsCASECODE » CHAR D3 


IF N>6 THEN POLISH(CSTRING)86[08138310] sNeCOC*DEL)3 
SOFFeORPTRIGZ$1821313 Ne O8NL0981293633 COMMENT BIT INDICESS 
POLISHCSTRINGCCSOFF#N"8) DIV 481]%DEL)3 
STREAMCRESULT*OSS¢(STRINGCSOFF DIV 48)]]»SKSe(SOFFeSOFF MOD 48)» 

SKBe4B"NeN)3 : 

BEGIN 

S1¢S3 SKIP. SKS SB3 


Dr*LOc RESULTS SKIP SKD DB 
NCIF SB THEN DS¢1 SET ELSE O0Se1 RESET# SKIP 1 SB)3 
END 
RESULT $= PCDUP)3 % SAVE IT 
END ELSE 
BEGIN 
COMMENT SOURCE HAS 6 BITS/CHAR:; 
IF N>B THEN POLISHCCSTRING &8[ 08238210] sNeCDCsDEL Ds 
POLISHCESTRINGECPTR.~L18213)+N"1).035810]3)2.D0EL 23 
STREAMCRESULTCOSS¢(CSTRINGCIPTRALIBI1O]T J] +SkKSePTR.»~£282031, 
NeSKO¢&"N)3. 
BEGIN 
SyeS}3 SleSI+SkS3 
DleLOc RESULT? NI+DI+Skp3 
OSeN CHR 
ENB 
RESULT #5 PCQUP); % SAVE IT 
ENO? 
IF NOT CPCTOR)) THEN % IT IS BAD 
PCERCWIR10 B82 3BF10]504eCOC 3% FLAG IT 
END S1S03 


VALUE PTR» HISCOUNTs CASECODEs» CHAR; 
NAME UPDPDDs UPDCDDs 
INTEGER PTR» HISCOUNTs CASECODEs CHAR} 


BEGIN 
COMMENT RELATION WHILE UNTIL 
BS 0 20 
2 4 16 
z 8 12 
= te 8 
< 16 4 
> 20 9) 
IN ALPHA 24 29 
IN NUMERIC 25 30 
IN TRUTHSET 26 31 
NOTE: THE TRUTH SET IS THE 64 BITS BEGINNING AT BIT 4 
OF THE WORD POINTED TO BY THE DESCRIPTOR IN CHAR, 
é 
NAME Maa} 


ARRAY STRINGNESCE#I3 
INTEGER OURCOUNT* WOFSETs CHOFSET» Ns Nis JUNKS173 


08403600 


08403800 
08404000 
08404200 
08404400 
08404600 
08404800 
08405000 
08405200 
08405400 
08405600 
08405800 
08406000 
08406200 
08406400 
08406600 


08406800 | 


08407000 
08407200 
08407400 
08407600 
08407800 
08408000 
08408200 
08408400 
08408500 


08408510 


08408600 


08410000 


START OF REL SEGMENTS DISK 


08410050 
08410100 
08410150 
08410200 
08410250 
08410300 
08410350 
08410400 
08410450 
08410500 
08410550 
08410600 
08410650 
08410660 
08410670 
08410680 
08410690 
08410700 
08410750 
08410800 
08410850 
08410900 


T 
T 
T 
T 
T 
T 
ul 
T 
i 
yf 
1 
T 
T 
T 
T 
1 
T 
7; 
T 
T 
t 
T 
T 
ad 
T 
T 
T 
T 
I 


' 
Goiats 
0021:°3 
002410 
0027:0 
002834 
O02R8%1 
002970 
002933 
0032:0 
003224 
003370 
003340 
003312 
003342 
003710 
003923 
O04att 
004342 
0043:%2 
004434 
004510 
004582 
0043933 
004682 
004632 
004710 
0049%14 


SIZE= 0050 


T 


00000 


ADDRESS = 


AAHAHONO9O0 Aaa A tt st 


00000 
000080 
0000%0 
00000 
00000 
000080 
000080 
000080 
000030 
00000 
000040 
0000f0 
000070 
000090 
000040 
000080 
000040 
000010 
000010 
00000 
000050 
000070 


wORDS.. 


90560 


® © @@6@8@8@6hUcm8tGtmCthmmC<Ci MC‘ OHUmUCUCPAcCUCU UtUmUCUCc OrmUCUCcCOmhUC OrmhC MOhUC<C NMUC—~<C MHMUCOrhUCrhC<C HCO hUO 


BEGIN 


INTEGER AWHILES % "IN" SCAN IS FOR WHILE, 

BOOLEAN MORES 

DEFINE PW=f1831014> PC=L28:03]#» CSIZES(31:021]#, 
SIX=004» ALONES@777777#4sPOFSET=(18%13] 43 


SUBROUTINE CHARSCAN} 
BEGINS 
COMMENT SCAN FOR CONDITIONS OTHER THAN ALPHA MEMBERSHIP,3 
STREAMONs CHOFSETs CHAR ¢ DOLEESTRINGDESCEOI]» CASECODE- 
DOeCSTRINGDESCCWOFSETII)3 


BEGIN 
SI*OD3 SIeSI+CHOFSET3 
DIle*Loc CHAR} DleDI+63 
CIeCI+CASECQDES 

GO TO LES %00 

Go To GE}; 204 

GO TO NE3 %02 

Go To EQs3 %03 

GO TO LS} %O4 

%G0 TO GR3 %05 
GRINCIF SCSOC THEN JUMP OUT TO Xxs DIe#DI"1)2 GO TO xyY3 
LSSNCIF SC20C THEN JUMP OUT To Xx DIleDI*4)23 GO TO XxY¥3 
EQtNCIF SC4DC THEN yuMP OUT TO Xxs DIe«DI"1)3 GO TO xy¥3 
NEPtNCIF SC#DC THEN JUMP OUT To XXs DIleDI*1)3 GO TO XY3 
GESNCIF SC<DC THEN JUMP GUT To XX# DIeDYe1)3 GO TO xy; 
LESNCIF SC?nC THEN YUMP OUT To XXS DITeDI"1)3 GO TO xY3 
XYITALLY©13 ; SleSI+13 
XX3NeTALLYS SleSI™13 CHAReSI3 
ST*OO13 ~ CHOFSETeSI3 
ENDS 


CHOFSET+POLISHCSUBsDUP), (18215); 

awe ONLY NEED (€30%03]»5 BUT REST OF FIELD IS 0 AND ESPOL KNOWS TO 
OPTIMIZE £18915] TO AN "FTC" OPERATOR, 

WOFSET¢POLISH.(33%15)3 

MORE+POLITSHS 

END CHARSCANS 


SUBROUTINE ALFSCAN3 
BEGIN: 
COMMENT SCAN + ¢ « WHILE/UNTIL IN ALPHA» NUMERICs TRUTHSETIO? 
STREAM CCHOFSETs SWITCHER@=CASECODEs N : TSET#S£ CHARI] » AWHILE» 
DOLrsCSTRINGDESCCOV]» DOt=CSTRINGDESCEWOFSETIID; 


SltsDDs SIssS1+CHOFSET3 
CItseCI+AWHILEs GO UCASES % GO WCASE3 
WCASE? 
CIieCI+#SWITCHERS GO ATESTW3 GO NTESTW3 % GO TTESTW3 
TTESTW! OLt=lOc SWITCHER; 
ON € ODteSIlz DI teDI#13 DSs=CHR3 
SttseTSET3 SKIP CHOFSET SB? SKIP SB3 
IF SB THEN? SIt=003 
IF TOGGLE THEN SI:=SIe1 ELSE JUMP OUT TO TSTOPW 
3 
GO AWAYW3 
NTESTW? 
N € IF SC GEQ "0" THEN IF SC LEQ "9" THENS 
IF TOGGLE THEN SIs=Si41 ELSE JUMP OUT To TSTOPW3 


08410925 
08410950 


08411000 — 


08411050 
08411100 
08411150 
08411200 
08411250 
08411300 
08411350 
08411400 
08411450 
08411500 
08411550 
08411600 
08411650 
08411700 
08411750 
08411800 
08411850 
08411900 
08411950 
08412000 


08412050 © 


08412100 
08412150 
08412200 
08412250 
08412300 
08412350 
08412400 
08412450 
08412500 
08412550 
08412600 
08412650 
08412700 
08412750 
08412800 
08412850 


08412900. 


08412950 
08413000 
08413010 
08413020 
08413030 
08413040 
08413050 
08413060 
08413070 
08413080 
08413090 
08413100 
08413110 
08413120 
08413130 
08413140 


AMAOOAMBONMO NV!SCV O09 VU U4 a a tt a tt tt st st et st t8| 


0000306 
0000:0 
Q000!tO 
000070 
000010 
000080 
0001!%0 
0004!0 
000180 
000320 
0003%3 
000323 
000432 
000810 
000532 
000533 
0006:0 
OO06Ft 
0006!%a 
0006:3 
Q0006:3 
000940 
OO1LS 
001332 
001513 
001810 
0020114 
002033 
002492 
002210 
002224 
002450 
002470 
O024:0 
002510 
0025%2 
002513 
002533 
002610 
002610 
002640 
Q02733 
002910 
002910 
002983 
003089 


0030:2. 


003432 
003443 
003350 
0034t0 
003433 
00360 
003684 
003680 
0036%2 
0038 '0 


@®eeeeee#eeeeeeeee#8e@8@?8@8e00000 8 


3 
GO AWAYW3 
ATESTWS 
N ¢ IF SGSALPHA THEN SIstsSI41 ELSE JUMP OUT TO TSTOPW )3 
AWAYW3 
TALLY =13 
TSTOPW? GO TO DONES 
UCASE? 
CIL=CI+SWITCHERs GO ATESTUS GO NTESTUS &% GO TTESTUS 
TTESTUS DIssLoc SWITCHER; 
N € DOtsSI3 OIS=OTKW1s DSt=CkR3 
SIlssTSeTs SKIP CHOFSET SB SKIP SB} 
IF SB THENS Sr:#0Dp3 
IF TOGGLE THEN JUMP OUT TO TSTOPUS SItsSI413 
3 
GQ AWAYUs 
NTESTU? 
N ¢ ITF SC GEQ "O" THEN IF SC LEQ "9" THEN JUMP QUT To TSTOPU3 
SltsxSleq3 
3 
GQ AWAYU3 
ATESTUt 
N ¢ IF SCSALPHA THEN JUMP OUT TO TSTOPUS SIesSI+1 03 
AWAYU 
TALLY8=13 
TSTOPU?: DONE? 
NI=TALLY3 SWITCHER!=SI3 Srte0Di3 CHOFSET&sSI3 
END3 
MORE «POLISH? 


CHOFSET¢POLISHCSUB,DUP).CIB2S15]3ZOPTIMIZED £30203) ISOLATE, 


WOFSET*POLISHe(33%15]3 
END ALFSCAN; 


IF PTR20 THEN PCMKSsINTCALL CC #4) 810284721) -FORTERRID) 3 
IF PTR,.£61:011 THEN = 
PCMBLICL4S 47 POLI SPTR, £LO9F227]+4(P TRC 33%15)40) CHS eCDC»DEL D3 
IF PTRCSIZEZSIX THEN POLTSHCMQ1014547801)+86864COC*DEL): 
STRINGDESCeMEPTRI3 
IF COURCOUNT+O&CSTRINGDESC)I£LC35208210I]=PTR.POFSET) <0 THEN 
POLISHCESTRINGDESCCPTR,POFSETII)3 
IF HISCOUNT < 0 THEN 


BEGIN UPDCODCOJEOFUPDPDDCOIeEPTReOQWOFSETLIBS35°1313PCXITIFENDS 


TF CHISCOUNTS CJUNK©HISCOUNT) «£33215 ])<QURCOUNT THEN 
OURCOUNT+HISCOUNTS © 


WOFSET¢PTR,PWS CHOFSET*PTR,PC3 
NeN{eGURCOUNTS MORE¢TRUES 
IF CASECODE GEQ 24 THEN % IN ALPHAs NUMERIC, TRUTHSET 
BEGIN 


IF AWHILE =(CASECODE LE@ 26) THEN % CONDITION IS “WHILE IN" 
% CONDITION IS "UNTIL IN*® 


FLSE CASECODE t=CASECONE=13 
CASECODES=CASECODE,£46:21]3 & Os1,2 
IF N1>63 THEN 

BEGIN 

N¢633 

DO ALFSCAN UNTIL (CN16N1"63)563 OR NOT MORES 

NeN13 

ENO: 


08413150. 


08413160 
08413170 
08413180 
086413190 
08413200 
08413210 
08413220 
08413230 
08413240 
08413250 
08413260 
08413270 
08413280 
08413290 
08413300 
08413310 


08413320 


98413330 
08413340 
08413350 
08413360 
08413370 
08413380 
08413390 
08413400 
08413410 
08413500 
08413550 
08413600 
08413650 
08413700 
08413750 
08413755 
08413760 
08413770 
08413800 
08413850 
08413900 
08413950 
08413960 
08413970 
08414000 
08414050 
08414100 
08414200 
08414250 
08414300 
08414350 
08414360 
08414370 
08414400 
08414450 
08414500 
08414550 
08414600 
08414650 


AAA ABH OO VA VA HAA HHA HHH VNNDOTO VAIO NMAWINIDAA BAND AA VAMANOD 


0039%1 — 


0039t2 
0039238 
003933 
0049:0 
0042:0 
O04aty 
O04otea 
0042%2 
004312 
004333 
004520 
O046t0 
004613 
004783 
004B8t0 
O048%4 
O04Bt4 
O050%4 
O050!2 
005073 
005120 


005110 


0053:0 
0053:0 
0053%1 
O0S53%4 
OOS5aty 
005482 
005510 
005493 
00573 
00580 
0058:0 
006432 
006554 
00700 
007373 
OO7St4 
007833 
0080!4 
008130 
008483 
0087!t0 
0088: 1 
009083 
009983 
0093!2 
0094%0 
009584 
009984 
010032 
0101414 
010483 
0102%e 
010730 
010733 


IF N>O AND MORE THEN ALFSCAN} 


END ELSE 
BEGIN 


CASECGDES=CASECQDE.£4333]5 CHAR? =O&CHAR[E 3684236); 
IF Ni>63 THEN 


BEGIN 
N¢633 


NO CHARSCAN UNTIL (N1¢N1*63)$63 OR NOT MORES 


NeN13 
ENDs 


IF N>O AND MORE THEN CHARSCAN? 


END3 


IF HISCOQUNT>GOURCOUNT AND MORE THEN 
POLISHCESTRINGDESCECHOFSET&WOFSETE 3083321531123 
IF POLISHC,UPOPDD»LODsRFBsUPDCDDs»LOD»RFBs0RI40 THEN 


BEGIN 


WOF SET@CHOFSETQWOFSET(30233:15] "PTR, £1821395 
UPDCDDLO} *HISCOUNT*=WOFSETS 
UPDPNDLOI«PTR+OGWOFSETE18% 3521373 


END? 
END SCAN} 


PROCEDURE REPL: 


BEGIN 


08414700 
08414750 
08414800 
08414825 
08414850 
08414900 
08414950 
08415000 
08415050 
08415100 
08415150 
98415200 
08415250 
08415300 
08415350 
08415400 
08415450 
08415500 
08415550 
08415600 
08415650 


08420000 


START OF REL SEGMENT? DISK 


COMMENT STRING REPLACE INTRINSIC FOR B5500 TS ALGOL 


MARCH 1968, RATCHFORD 


8*BIT CHARSs WORD XFERS & UNCONDITIONAL XFER ADDED APRIL 1968 HR 


DEF INE 


CSIZE=(31+02]#, 


DECNVRT#(732) #4» 


 AMPERSC18:35213)4> 


EIGHT=O1#* TCONDs45#, DOTHL18¢%131]#, 


POTZ=IF $8 THEN DSet SET ELSE DSe1 RESET} SKIP 1 SB3#s 


ARRAY 
SORC(L*] 
DESTL*] 

NAME. 

UPDPOD 

UPSPDD 

UPCTOD 


M 
INTEGER © 

DPTR 

SPTR 


HISCNT 
RELATION 


CHAR 
CHARI 


» COMMENT DESC FOR SOURCE STRING? 
* COMMENT DATA DESC FOR DESTINATION STRINGS 


a" OBs 
Ss" 06s 
Be Ods 
= 023 


E"O7+ 
S705» 


="O3e 
T"O2s 


m"O1>s 


COMMENT DESC FOR UPDATE DEST POINTERS 
COMMENT DESC FoR UPDATE SOURCE POINTER: 
COMMENT DESC FOR UPDATE COUNT VARIABLES 


COMMENT DESTINATION POINTER? 

COMMENT SOURCE POINTER OR 4 TO 8 LITERAL CHRS, 
8 ONLY IF LITERAL IS ARITHMETIC: 

COMMENT CALLER'S IOEA OF HOW BIG MAXCOUNT IS3 
COMMENT SWITCH INDEX FOR SCAN CODE. THE INDEX 
VALUES ARE SUPPOSED TQ BE THE SAME FOR REPL 
AND SCAN. RELATION IS <0 IF THE SOURCE IS 

A LITERAL AND 1S 20 IF SOURCE IS A POINTER; 
COMMENT COMPARE USES THE SAME VALUES OF RELAT3 
COMMENT THE WHILE/UNTIL COMPARISON CHARS 
COMMENT SDA*FORMAT ADDR OF 15ST XFERRED CHAR 


08420020 
08420040 
08420060 
08420080 
08420100 
08420120 
08420130 
08420140 
08420160 
08420180 
08420200 
08420220 
08420240 
08420260 


08420280 


08420300 
08420320 
08420340 
08420360 


08420380 © 


08420400 
08420420 
08420440 


_ 084204606 


08420480 
08420500 
08420520 
08420540 
08420560 


T 
T 
T 
Cc 
T 
tT 
T 
T 
T 
T 
T 
Ty 
T 
T 
T 
T 
T 
T 
tT 
T 
T 
I 


0107383 
011190 
0111440 
011442 
O114t2 
0115%4 
011513 
011682 
012110 
012133 
012133 
012510 
012520 
012631 
0128 %4 
013082 
0131410 
013313 
01350 
013781 
O13784 


STZEs 0138 


4 i 


00000 


ADDRESS = 


ll 


AHA HHH HHH ts tt st 


000030 
000010 
000010 
00000 
000030 
00000 
000030 
0000%0 
000030 
000080 
000080 
0000!%0 
000030 
000010 
000030 
00000 
000080 
000080 
000010 
000080 
0000!0 
0000%0 
0000%0 
000040 
000080 
00000 
000080 
000030 
000030 


wORDS 


00565 


© 


CHARN 
SORCL 
DESTL 
SWISCHARI 
QURCNT 


SOFF 
SSIZE 
DOFF 
OSIZE 
UPDTOG 
JUNK 
TOGL 
REFETCH 
INITIAL 


SORCI 
DESTI 


BEGINS 


» COMMENT SDA FORMAT ADDR OF LAST XFERRED CHAR3 
sCHAR1sCOMMENT LENGTH OF SOURCE CALCULATED BY US3 
=CHARNs»sCOMMENT REMAINING CHARS IN DEST STRING; 

» DWISCHARN» ITERCs 

» COMMENT SAFE MaX LENGTH FOR REPLACE. 

FOR POINTER*@SQURCE* MINCHISCNTsSORCL*SDESTL)» 
FOR LITERAL SQURCEs MINCDESTL»HISCNT)3 

» COMMENT CHARACTER OFFSET IN SOURCES 
=SOFFs COMMENT SOURCE CHAR SIZE ¢6 OR 8 BITS/CHAR)3 

» COMMENT CHARACTER OFFSET IN DESTINATIONS 
=DOFFs COMMENT DEST CHAR SIZE3 

» COMMENT TRUE Te ANY UPDATECS) REQUESTED; 

317» COMMENT USED FoR BUILDING CONCATENATED LITRLS 

» COMMENT "TOGGLE™ FOR REPLACE WHILE/UNTIL? 
=TOGLsCOMMENT THE "INVALIDATOR® FOR REPL UNTIL3 
=TOGLA COMMENT LOCAL 4 USE BY REPL FROM LITERAL3 


INTEGER AWHILES % CONDITION IS "WHILE IN" 
BOOLEAN MORE3 
ARRAY NAME 


ZCONDITIONAL. REPLACE ISN"T DONE YET. 


=SORCsCOMMENT INDEXED DESC FOR POINTER*@SOURCE3 
=DEST3 COMMENT INDEXED DATA DESC FOR DEST STRING; 


SURROUTINE CREPL: 


STREAMCOOFFsCHARs SOFFsITERC»MORECO!? 
DI©CDESTLCOIJI »S1+LSORCELOJ]»RELATIONs T+O»S2¢CSORCCSWII]). 
neeCHesTlCOwr)I93 


BEGIN 
DL*DI+DOFF3 O2¢D13 DI*LOC CHARS 
NI*D1+63 TDI} S1*#S23 
S[¢S{T+SOFF3. 
ITERC(CI©CI+RELATIONS 
GQ TO LE$ 
GO TO GES 
GO TO NE 
GO TO £Q3 
Go TO LS 
%GO0 TO GR3 
GRtIF SCSDC THENS GO TO XX3 
LS$Ir SC2DC THEN; GQ TO XX} 
FQ:IF SC#DC THEN GO TO XX; 
NEtIF SCSDC THEN GO TO XX; 
GESIF SC<DC THENS GO TO Xx; 
LE?IF SC>DC THEN}  %G0 TO XxxX3 


XX$IF TOGGLE THEN JUMP QUT TO XY¥$3 
STe*eSim13 DleD2; DS*CHR} 
N2eOT3 DleT3 . 
V3 
TALLYe13 SleSl+t3 
XYIMORE*TALLYS SleSI=13 CHAReSTI3 
SteSi3 DOFFeSI3 DleD23 
ITERCeDI3 Dlepis SOFFepI3 
END3 

MORE *POLISH3 

NOFFePOLISH(SUBsDUP).£18%15]3 ZOPTIMIZED £30803) ISOLATE, 


DWIePOLISH.C33!15]3 


SOFFePOLTI 


SHCSUBsDUP),£18%1513 


SWIePALISH,C33115]3 


08420580 
08420600 
08420620 
08420630 
08420640 
08420660 
08420680 
08420700 
08420720 
08420740 
08420760 
08420780 
08420800 
08420820 
08420840 
08420860 
08420865 
08420870 
08420880 
08420900 
08420920 
08420921 
08420922 
08420923 
08420924 
08420925 
08420926 
08420927 
08420928 
08420929 


08420930 | 


08420931 
08420932 
08420933 
08420934 
08420935 
08420936 
08420937 
08420938 
08420939 
08420940 
08420941 
08420942 
08420943 
08420944 
08420945 
08420946 
08420947 
08420948 
08420949 
08420950 
08420951 
08420952 
08420953 
08420954 
08420955 
08420956 


AA AAA HH A Ht A Ht a A AH HH OH a A tt a ot 


0000!0 
000080 
000010 
00000 
000010 
000030 
0000%0 
000030 
000010 
000010 
000010 
000010 
0000%0 
000080 
0000%0 
000010 
000030 
000080 
000010 
000020 
00000 
000030 


000140 


a00L%0 
000842 
000483 
Q005ia 
O00Sit9e 
000612 
OOO784 
0007%3 
000a?3 
000920 
000924 
0009%2 
000933 
001080 
001040 
001083 
001182 
0012%4 
0013°0 
001343 
OOtatt 
Q015t0O 
004583 
0016%¢4 
O016%2 
001740 
001783 
001832 
O019%]4 
0019!%90 
002080 
002133 
002283 
002422 


Lr er er ee ee ee ee a 2 a a Sr Sr Va i i ir | 


ATESTUS 


END CONDITIONAL REPLACE3 
SUBROUTINE CRA3 
BEGINS COMMENT REPLACE .« WHILE/UNTIL IN ALPHAs NUMERICs TRUTHSETS 
STREAMCDOFF se T1:3O0r SOFFs NisITERCs MOREtsO ¢ TSETI=C(CHAR]s AWHILE? 
DL2=CDESTCOJ]» Sit=ESORCLOJ]» RELATION» 
S2talSORc(Swll)s Desa lCDESTCOWLII)3 
BEGIN 
DItsDI+NOFFs SIt=S23 Si:=Sl+SOFF3 
CItSCI+AWHILE3 GO UCASE; % GO WCASE; 
WCASES3 
CI*sCI+RELATION? GO ATESTWS GO NTESTW3 % GO TTESTW 
TTESTWS O2teD13 DNItslLoc T13 DrtsDI713 Tytspls DIt=na3 
N € DetaDIs S22:sSy3 Dyistys OS:t=CHR} 
Sri=TSeT? SKIP DOFF Ses SKIP SB; 
IF $B THENS StssSo3 OrssD23 
IF TOGGLE THEN OS:=CHR ELSE JUMP QUT TO TSTOPW3 
3 
«GO OAWAYWG 
NTESTW! 
N ¢ IF SC GEQ "O" THEN ITF SC LEG "9" THENS 
IF TOGGLE THEN OS#=CHR ELSE JUMP OUT TO TSTOPW3 
3 
GO AWAYWS 
ATESTWS 
N ¢ IF SC#ALPHA THEN DStsCHR ELSE JUMP OUT TO TSTOPW 93 
AWAYW? 
TALLY 2=43— 
TSTOPW! GO TO DONE? 
UCASES$ 
CIPeCI*RELATIONS GO ATESTUS GO NTESTUS % GO TTESTU; 
TTESTUS D2saDI3 OL2SLOC Tas OFtsDIm13 TrtsDI3 DIssp23 
N (€ DotseDI3s S2tsSy3 OlteT1s OS2scHR; 
STi:sTSET? SKIP DOFF SB SKIP SB3 
IF SB THEN} Syt=523 ortsDas; 
IF TOGGLE TREN JUMP OUT TO TSTGPUS DSt=CHR3 
3 
GO AWAYU3 
NTESTuU? 
N ¢ IF SC GEG "O" THEN IF SC LEQ "9" THEN JUMP OUT TO TSTOPU3 
DS!sCHR; 
3 : 
GO aAWAYU3 


N € IF SCsALPHA THEN JUMP OUT TO TSTOPUs DSt2CHR 3 
AWAYUS 
TALLY #313 
TSTOPU! DONE: 
MORFIaTALLYs NtsSI3 TitsD13 Sl:=S13 SOFFesSts O1%22013 DOFF rant; 
END; 
MORE?=P3; SOFF%=PCSUB-DUP) «C18:15)3 SWItsP,£33815)3 
NOFFF=PCSUBsDUPIe¢(1821513 DWItsP,633215)73 
END C@NDITIONAL ALPHA REPLACE3 
IF oOPTR,£014:01] THEN 
POM@1C143475011,0PTR, [O9t22)+(DPTR. (33415140) *CHS+COC+DEL)S 
IF ¢SPTR=O0 AND RELATION, £1217=0) GR DPTR=O 
THEN PCMKSe INTCALL (CC e4) 810 2t4731]-FORTERRID) 3 
DESTt=MEDPTRIS 


08420957 
08420958 
08420959 
08420960 
08420961 
08420962 
08420963 
08420964 
08420965 
08420966 
08420967 
08420968 
08420969 
08420970 
08420971 
08420972 
08420973 
OB420974 
08420975 
08420976 
08420977 
08420978 
08420979 
08420980 
084209814 
08420982 
08420983 
08420984 
08420985 
08420986 
08420987 
08420988 
08420989 
08420990 
08420994 
08420992 
08420993 
08420994 
08420995 
08420996 
08420997 
08420998 
08429999 
98421000 
08421001 
08421002 
08421003 
08421004 
08421005 
08421006 
08421007 
08421008 
08421009 
08421010 
08421011 
08421012 
08421013 


0025%2 
002523 
0026t0 
0026380 
00284 
002982 
003033 
003033 
Q0032t0 
003233 
003233 
0033%3 
003540 
0036%2 
0037%2 
0038%2 
003933 
0040t0 
004084 
004034 
0044123 
004320 
O043% 4 
004382 
O043te 
0045:%3 
004533 
004630 
004674 
N04634 
O047%4 
OO4BRt oO 
0050!0 
0051!0 
0052140 
0053!0 
0053%14 
0053t2 
Q053%2 
0055%2 
005523 
0056%0 
005654 
QO56%4 
0058%4 
00584 
00582 
005812 
O06OT!, 
0060%2 
006323 
0066:2 
006633 
0070723 
007532 
00780 
0082t2 


6 


OSIZE:S1IF OPTR»CSIZE=EIGHT THEN 8 ELSE 63 
IF CTOGL®SRELATION,£01:201320) THEN 
SSIZEt2IF SPTR,CSIZESEIGHT THEN 8 ELSE 6 
FLSE SSIZE«63 COMMENT LITERAL OR AEXP SOURCES 
IF TOGL AND DSIZEZSSIZE THEN 
POLISH(DEST&1(08%383101]29686sCOC,DEL)3 
UPB TOGe : 
POLISHC.UPDPDD»LODsRFBs.UPSPDDeL OD» RFBs ORs UPCTODe_LODs RFR2OR) £03 
IF CHISCNT*HISCNT) € 0 THEN 
BEGIN UPCTDDCOJ¢Os3 UPDPDDLOJeDPTRI UPSPDDLOJ*SPTRIPCXITIF ENDS 
IF oSIZE=8 THEN 
BEGIN 
$ SET OMIT = NOT EIGHTBIT 
COMMENT CAUSE INVALIO INDEX» 9898 GEQ ASZ IF 8 BIT REPLACE IS DONE 
POLISHCDEST&1(8238340]29B898s COC» DEL DS 
$ RESET OMIT 
FND ELSE %8"*BIT DEST FINISHED 
COMMENT IF WE GET THIS FAR» DSIZFAYEIGHT & SSIZERDSIZEs SO 
SPTR CAN'T BE 8 BITS/CHAR3 
IF RELATION«(C42!06]STCOND THEN 
BEGIN 
COMMENT UNCONDITIONAL XFER OF 6*8I1T CHARS OR WORDS} 
IF RELATION, £403011]21 THEN 
BEGIN 
COMMENT WORD TRANSFER} 
DPTR DOT+ORCDOFFeCORDPTRE 35$18213)4+7),£35%10))£35238210)3 
QURCNT¢HTSCNT,(38210173 
IF (DOFF+QURCNT)>(DEST),£08%10) THEN 
POLISHCCDESTECCDEST.(£82101)11)3 
IF TOGL THEN 
BEGIN 
IF SPTR,.CO1:201] THEN 
PCM@ICLTASA7IOL Is SPTR, CLOOS2274(SPTReL 33215120) 2 CHS, 
COC»DEL)3 
COMMENT POINTER SOURCE? 
SORCeMESPTR]3 
SPTR DOTCORCSOF Fe COS8SPTRE352484137479,.035910))£35338810)3 
TF CSOFF+QURCNT)>(SORC),£08910] THEN 
POLISHCCSORCECSORC.C8I10])01393 
IF QURCNT>O THEN 
STREAMCSOURCE*£SORCCSOFF II» 
NI©QURCNTs#N2eOURCNT.»£38204)>» 
DESTAD¢LDESTCDOFFI193 
BEGIN 
SI¢SOURCE3 
DS¢N1 WOSS N2¢2¢0S*32 WOS))3 
ENO; 
St ee S6"BIT POINTER SOURCE FINISHED FOR WD XFER 
N 
COMMENT LITERAL/AEXP SOURCE 
SORCLEHISCNT.C18215]3 
IF SORCL=0 THEN SORCLeHYSCNT3 
INITIAL©IF QURCNT>O THEN 1 ELSE O3 
OQURCNT+*OURCNT*INITIALS 
STREAMCSTART©*SPTRsSORCL sp INITIAL? 
SOFSET¢B=SORCLsINIe©®(C JUNK*8 DIV SORCL)>» 
IN2Z¢8=*JUNKXSORCL sNLEMQURCNTsN2@OURCNT,C 38304 1e 


08421014 
08421015 
08421016 
08421020 
08421040 
08421060 
08421080 
08421100 
08421120 
06421130 
08421140 
08421160 
08421170 
08423273 
08423275 
08423276 
08423280 
08423300 
08423320 
08423340 
08423360 
08423380 
08423400 
08423420 
08423440 
08423460 
08423480 
08423500 
08423520 
08423540 


08423560 


08423570 
08423571 
08423572 
08423580 
08423600 
08423620 
08423640 
08423660 
08423670 


08423680 


08423700 
08423720 
08423740 
08423760 
08423780 
08423800 
08423820 
08423840 
08423860 
08423880 
08423900 
08423920 
08423940 
08423960 
08423980 
08424000 


AR AH AM HAA HA tt 8 A ts st 9 Ht 9 9 tt AH OOO Ht 8 Ot ODIO 


0084:0 
0087314 
008940 
009210 
009440 
0095%4 
0098%0 
009830 
010123 
0103:0 
010610 
0106:3 
010784 
010784 
O107%4 
0109%e 
010932 
0109%2 
0109%2 
0109%2 
O113%4 
0113:3 
0114343 
011530 
QO115%2 
0115%2 
012043 
0122%0 
012410 
0125323 
0126:0 
O126!2 
0127414 
013432 
043210 
013280 
0133%2 
0138:3 
014083 
0142%2 
0143%4 
014422 
0145%2 
014624 
OL4684 
014632 
O148:2 
Q1aet3 


014883 


014984 
0149814 
0150%2 
015232 
015534 
015632 
015782 
0159%2 


®eeee%8eeeeeeeeeeeee#ee8#eneea 


DESTADeLDESTCOOFFI)>» 
SETOIefJUNKI)3 
BEGIN 
SIleLOC START; 
SOFSET#ST3 
IN (CDS¢SORCL CHR? SI*SOFSET); 
DS¢IN2 CHR$ SIeSETDI; © DI*DESTAD; 
START«DI3 
DSeINITIAL WOS; ST+START3 
DSeNi WDS$ N2¢C2C0S¢32 WOS)); 
END3 

QURCNT©OURCNT+INITIALS 

ENDJ20F WORD*"XFER FROM LITPAEXP SOURCE 

IF UPDTOG THEN CHAR©OROURCNTE32:3521373 

END ELSE %WORD TRANSFER DONE 


SIle¢SI+SOFSETS 


BEGIN . 
COMMENT CHAR XFER FROM 6*BrT SOURCES 
DOFFeDPTR.DOT; QURCNT¢HISCNT.£35%1343 


IF CDOFF+QURCNT)>O8CDESTI£35208210] THEN 
POLISHCLDESTECCDEST.£68210193323 
If TOGL THEN 
BEGIN 
COMMENT SOURCE 15 A POINTERS 
IF SPTR.CO1:014) THEN 
PCMRILCLTS247 201] sSPTR, COPPSZIFC(SPTIR gL 33L1L 5140) sCHSs 
COCeDEL)3 
SORCe#MCSPTRI} 
SOFF«O&SPTROE35818213)3 
IF CSOFF + MURCNT) > © & ¢€SO0RC)0353821017 THEN 
BEGIN 
INITIAL #* HISCNT»£35213] = HISCNT,£20213133 
STREAMCSTARTS2SPTReC2823)2 FINISHS=DPTR.C28!3)% 
NUtSINITIALs N2SSINITIAL, (3725 )% 
N3ESINITIAL+(35%2)5 INITIAL&= HISCNT,.£20813]> 
ING$= HISCNT,(22:85]5 IN2s= HISCNT, £2082)» 
SOURCE?= CSORCESPTR,(18%4011)> 
DESTADS= COESTEDPTR, £1821033)03 
BEGIN 
SIl*sSQURCES SlreSI+STARTs DNLssO0L4FINISH; 
SOURCE:= DOT3 
OSts INITIAL CHR} IN, C200Sts32 CHR ))3 
IN2(2¢32¢0S3= 32 CHR )))3 
ST t= SOURCES 
pSt= N41 CHR# N2c2cnSts 32 CHR ))3 
N3¢2€32(0S%= 32 CHR )))3 
END3 
END ELSE 
IF QURCNT>O. THEN 
STREAMCSTART€SPTR, [28803 ]sFINISH@DPTRe (28203 )2 
 NI©QURCNTsN2*OURCNT. C378 05] aN3eQURCNT (35202) 
SOURCEe*LSORCESPTR.»LIB310I)I>5 
DESTAD+(CDESTCOPTR.£1821031))3 


BEGIN 
SI*SOURCES SI*St+START; 
DIeDI+FINISH3 


DSeN1 CHR# N2C2¢DS«32 CHRD) 
N3€2¢32(DS¢32 CHRID)3 


08424020 
08424040 
08424060 
08424080 
08424100 
08424120 
08424140 
08424160 
08424180 
08424200 
08424220 
08424240 
08424260 
08424280 
08424300 
08424320 
08424340 
08424360 


08424380 © 


08424400 
08424420 
OB 424440 
08424460 
08424470 
OB424471 
08424472 
08424480 


08424500 © 


08424503 
08424504 
08424506 
08424508 
08424510 
08424511 
08424512 
08424513 
08424514 
08424516 
08424518 
08424520 


08424522 


08424524 
08424526 
08424530 
08424540 
08424544 
08424546 
08424550 
08424560 
08424580 
08424600 
08424620 


08424640 | 


08424660 
08424680 
08424700 
08424720 


AHHH MHD OVO NTDOVNGD ON NAM ON8 O48 4A AH A tH as 


016433 
O162%4 
0162:3 
016233 
016342 
016323 
0165%4 
016684 
016652 
OL67i4 
016984 
016982 
017033 
017023 
OL7384 
OL7 ate 
017383 
017333 
O176%4 
0178%3 
O180%2 
018033 
OL1B8itt 
O181%4 
018210 
0186314 
0186°3 
0188t: 
019010 
0192%2 
019340 
019511 
019720 
019880 
019932 
020130 
020230 
020341 
0203%1 
0204t2 
020433 
020633 
020833 
020910 
021140 
021340 
O213%4 
021321 


021432. 


021683 
O218%2 
021932 
022033 
022033 
022442 
022240 
0224%0 


@®eee#eeeeee%eeeeeee#eeee¢ee8ee@6 


ENDS 
END ELSE %POINTER SOURCE FINISHED 
BEGIN 
COMMENT LITERAL/AEXP SOURCEs UNCOND XFER» 6"BIT DESTS 
SORCL¢HISCNT.[18215]3 
IF SORCL=0 THEN SORCLeHISCNT3 
INITIAL©IF OURCNT>7 THEN 8 ELSE OURCNTS 
OURCNT*+OURCNT@INITIAL3 
IF INITIAL>O THEN 
IF INITIALSSORCL THEN 
STREAMCINITIALs SPTReSSKP© 8*SORCL? 
DOFSETeDPTR, £28203] sD CDESTIMPTReL18%10)1))3 


BEGIN 

NI*DI+DOFSETS SI*LOC SPTR3 
S1*+S{T+SSKP3 DSe INITIAL CHR 
END ELSE 


STREAMCSTART*SPTRsSORCL» INITIALS 
~SOFSET+8"SORCLsINi#(C JUNK©8 DIV SORCL)>» 
IN2¢8=JUNKxXSORCL pNICOURCNTsN2eQURCNT, £37205 ]s 
N3¢QURCNT, C35? O02] sDOFSETeDPTR, £28203)» 
DESTAD¢LDESTCOPTR»CIB*LOJ JJ *+SETDI©(CIUNKI 23 


BEGIN 

STe#LOC START STeSI+SQFSETS 
SOFSET¢SI3 INICDS*SORCL CHR} ST¢SOFSET)3 
DS«IN2 CHR3 SI*SETOI; NI+DESTADS 
OleOI+D0F SET: START«DT3 
DS¢INITIAL CHR} SI*START3 


DSeN1 CHR} N2C2¢D0S¢32 CHR))3 
N3(2032¢0S5S32 CHR) ))3 
END$ 

OQURCNT©OQURCNT+INITIALS 

ENDS SOF LITERAL/AEXP 6=BIT SOURCE 

CHAR*OURCNT3 

END % OF 6"BIT UNCONDITIONAL XFER 
ENO ELSE% UNCONDITIONAL XFER FINISHED 


IF RELATIONSDECNVRT THEN 


BEGIN 
DOFF«DPTR.[28°03]3 DWI*DPTR,£18%10]3 
TF CHISCNT*® CJUNKe HISCNT).033215])>8 THEN 
POLISH(M&8[08238110]+HISCNTsCOCsDEL)3 
IF CORCDEST) C352088 10] "DPTReNOTI*HISCNT<O THEN 
POLISHCTDESTLCDPTR.DOT+HISCNTIJ*DEL D3 
SPTR+SPTR3 STREAMCSPTReDOFF HISCNTsDeCDESTLOWIII)3 
BEGIN 
Die OL + DOFFS Sle LOC SPTR;3 
DS¢HISCNT DEC; 
- END3 
CHAReHISCNTS 
END ELSE 
BEGIN 
COMMENT CONDITIONAL XFER WY SOURCE & DEST BOTH 6"BIT POINTERS; 
IF SPTR,CO1%01) THEN 
PEMRIL142° 47204] ¢SPTR,CO982214(SPTR,£33215)]40 )p CHS CDOCeDEL)3 
SORCeMCLSPTRI3 
SORCL*©ORCSORC)£35!:08810)=SPTR.DNTS 
DESTL©ORCDESTIC352082101"DPTR.DOTS 
QURCNT€IF SORCL>DESTL THEN 


08424740 
08424760 
08424780 
08424800 
08424820 
08424840 
08424860 
08424880 
08424685 
08424890 
08424891 
08424892 
08424893 
OB 424894 
08424895 
08424896 
08424900 
08424920 
08424940 
08424960 
08424980 
08425000 
08425020 
08425040 
08425060 
08425080 
08425100 
084251420 
08425440 
08425160 
08425180 
08425200 
08425220 
08425240 
08425260 
08425264 
08425265 
08425266 
08425267 
08425268 
08425269 
08425270 
08425271 
08425272 
08425273 
08425274 
08425275 
08425276 
08425277 
08425280 
08425300 


08425312 


08425314 
08425320 
08425340 
08425360 
08425380 


a ess ss se ss ss st 


022620 
0226314 
02263 4 
022623 
022653 
022810 
023020 
0232%3 
023410 
023433 
023630 
023810 
024030 
0246080 
024083 
024423 
024920 
024332 
0245%2 
024733 
024934 
025033 
025083 
025472 
025334 
025434 
025510 
025533 
025733 
025933 
026070 
02648 th 
O26 484 
026220 
026280 
026210 
026332 
026450 
0266%2 
026833 
O27 484 
027433 
027780 
027912 
O279!%90 
0280!1 
028013 
028410 
028473 
028133 
0282314 
O282%1 
028330 
028713 
028934 
O29a%,4 
029534 


a 


CIF HISCNT>DESTL THEN DESTL ELSE HISCNT) ELSE 

If HISCNT>SORCL THEN SORCL ELSE HISCNT; 
SOFFeSPTR. [2620313 DOFF«DPTR,»[2820313 
SWI*SPTR,C1831013 DWIeDPTR,Ci8t1033 


MORE * TRUES 
IF RELATION GEQ@ 24 THEN % IN ALPHA» NUMERIC» TRUTHSET 
BEGIN 
IF AWHILE2=¢€RELATION LEQ 26) THEN & “WHILE IN" 
ELSE RELATIONS=31"RELATIONS 
RELATIONSSRELATION,£L46%2)3 % Ovte2 
IF CITERC*QYURCNT)>63 THEN 
BEGIN 
TOGL*QURCNT3 ITERC*633 
pO CRA UNTIL ¢CTOGL+©TOGL°63)S63 OR NOT MORES 
ITERCeTOGLS 
ENDS 
IF MORE AND ITERC>O THEN CRAS$ 
END ELSE 
BEGIN 
CHARS SORCHAR[ 3634226173 RELATION#sRELATION.C4383)3 
IF CITERC*+OURCNT)>63 THEN 
BEGIN 
TOGL*OURCNT; ITERC¢633 . 
OQ CREPL UNTIL CTOGL*©TOGL=63)<63 OR NOT MORES 
ITERCeTOGL 
END? 
IF MORE AND ITERC>0 THEN CREP, 
END3 
TF MORE AND HISCNT>OURCNT THEN 
POLISHCCDESTLDOFF&OWIE30#33315311*DELs 
CSORCCSOFF&SWIE30333215311,DEL 93 
IF UPDTOG THEN CHAReDOFFRDWIL30833215]"DPTR,DOTS 
END3% CONDITIONAL XFER OF 6"™BIT CHARS DONE 
IF UPDTOG THEN 
BEGIN 
UPCTDDLOJEHTSCNT, CISI137 "CHAR; 
UPDPNDIOJ«DPTR&C APTR.DOT+CHAR DAMPER; 
UPSPODLOJ+SPTR&C SPTR,DOT+CHAR )JAMPER3 
ENDS 
END REPL 3 


PROCEDURE COMPAREs 


BEGIN 


COMMENT STRING/POINTER COMPARISON INTRINSIC FOR B5500 TS ALGOL.» 


% "UNTIL IN® (MUST INVERT) 


4043 


MARCH 1968, POINTER UPDATES ADDED FOR STRING CMPR JUNE 1968. 


MAJOR REWRITE TO CORRECT BAD ALGORITHM""OCT 69» 
RATCHFORDS _ ; ; 
COMMENT THERE ARE. FOUR FLAVORS OF STRING/POINTER COMPARE? 


4. <AEXP> IN ALPHA, AEXP IS IN £42806] OF F=7, RELATION®29, 


2, <PEXP1>s<PEXP2> OR <PEXP1> #£ <PEXP2>, 
RELATIONS65 FOR = & 66 FOR # 
3, <PUPL>I<PEXP1> <RELATION> <PUP2>:<PEXP2> FOR <COUNT>, 


08425400 
08425420 


08425440 
08425460 
08425480 
08425500 
08425520 
08425540 
08425545 
08425550 
08425560 
08425580 
08425600 
08425620 
08425640 
08425660 
08425680 
08425700 
08425720 
08425740 
08425760 
08425780 


08425800 


08425820 
98425840 
08425860 
08425880 
08425900 
08425920 
08425940 
08425960 
08425980 
08427840 


08427860 © 


08427880 
08427900 
08427920 


08427940 © 


08427960 
08427980 


08430000 


START OF REL SEGMENT3 DISK 


08430020 
08430040 


08430060 © 


08430062 
08430080 
08430100 
08430120 


. 08430140 


08430160 
08430180 


T 
T 
T 
r 
7 
si 
T 
T 
T 
P 
T 
T 
+ 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
As 
T 
T 
Hs 
T 
T 
T 
I 
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0 

030432 
030710 
030733 
0308%2 
030980 
O310%4 
0312%2 
031333 
03450 
0315%2 
O317%0 
032110 
0324:3 
032413 
032530 
032510 
0325%2 
O328%2 
032923 
O330t4 
033433 
033640 
033633 
033643 
0340:0 


034010. 


O34 424 
034382 
O345%4 
0348:3 
0348t3 
034910 
034982 
0354%4 
035410 
035623 
035633 


SIZE= 03587 


T 


000020 


ADDRESS = 


AB AHHH 


000010 
000080 
000030 
000080 
000080 
000070 
000010 
000040 
000010 
000030 


WORDS 


60577 
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we 


4s <PEXP1> <RELATION> <LITERAL> FOR <CQUNT>. 
VALUES OF <RELATION> ARE SAME AS FOR SCAN & REPLACEs FOR #4 
FeFIELD OF Fre IS LENGTH OF LITERAL STRING & CeFIELD IS VALUE 
OF <COUNT> IN SOURCE STMT (8192 JF OMITTED), 
RELATION HAS SIGN*BITS1 FOR CASE #4, 


DEFINE 
NOTSLisBs13)#s 
AMPER=(16%35%1314> 


CSIZE=(€31:202)#, SIxs00#; 
INTEGER 
RELATION e701» ZSAME CODES AS FOR SCAN/REPLACE, 
HISCNT =Z"O2s ALENGTH OF LITERAL IN F°FIELD» 
ZLENGTH OF COMPARE IN C@FIELD. 
po E"O3~e SOURCE STMT IS "P4 RELATION Po FOR 
SHISCNT* 
LITERAL SPQ » %P2 MAY BE A LITERAL OF 1*>8 CHARS, 
Pi ="O7 » 
CHAR =P4» %LOC*N OF CHAR FOR "CHAR IN ALPH A" 
R1iCse RiWes CHAR & WORD OFFSET FOR P14 
R2Cs R2Ws 
Ne *LENGTH OF COMPARE FOR CURRENT CALL OF 
ZF INDIT. : 
LOOPCOUNT sP2» *USED FOR LITERAL COMPARISONS, 
JUNK = 473 
REAL RJUNKSJUNKS 
BOOLEAN 
RESULT sP4. THIS IS ALSO ONE OF THE POINTER ARGS, 
DONE: ZSOMETIMES MEANS WE FOUND SOME # CHARS, 
NAME 
UPP20D "04s 00 FOR UPDATE OF P2 POINTER. 
UPP1D0 "05a 
M = O23 
ARRAY 


ROWIC*], ROW2E*]3 %ARRAY ROWS REFERENCED BY P1/P2, 
SUBROUTINE FINDIT3 ZFIND BLOCK OF 64 CONTAINING 1ST # CHARS, 


BEGINS 
STREAMCNSRICeRACoR1+LROWLORIW] J sR2efROW2(R2WII)3 
BEGIN 
STeR{3 SleST+Rics 
DileDI+R2acea 
IF N SC4DC THEN TALL Ye43 
NeTALLY3 
END: 
IF NOT ¢DONE*POLISH) THEN 
BEGIN SET UP WORD & CHAR OFFSET FOR NEXT CALL, 


RICePOLISHCRIC&RIWL 35% 38210]4N2DUP),£ 4510313 
RiWePOLISH.s [352103 
R2ECeEPOLISHCR2C&R2W( 35238210] +N DUP),C45203)3 
ROWePOLTSH.L35210)3 
END UPDATE OF CHAR AND WORD INDICES$ 

END FINDIT3 


SUBROUTINE COMP: ZCOMPARE 2 4 CHARS FOR < OR >. 
BEGIN: 
STREAMCRELATIONSRIC»R2CeRIe¢ CROW GRIWJ J >R24(ROW2CROWII)3 
BEGIN 
ST*R13 Sl«S1T+Ric3 


08430200 
08430220 
08430240 
08430260 
08430280 
08430300 
08430320 
08430340 
08430360 
08430380 
08430400 
08430420 
08430440 
08430460 
08430480 
08430500 
08430520 
08430540 
08430560 
08430580 
08430600 
08430620 
08430640 
08430660 
08430680 
08430690 
08430700 
08430720 
98430740 
08430760 
08430780 
08430800 
08430820 
08430840 
08430860 
08430880 
08430890 
08430900 
08430910 
08430920 
08430930 


08430940. 


08430950 
08430960 
08430970 
08430980 
08430990 
08431000 
08431010 
08431020 
08431030 
08431040 
08431050 
08431060 
08431070 
08431080 
08431090 


AHH ANA HAH HH A A AA HA Ht tt A A 4 Ht A HA A Ht A tt 


000020 
000030 
00000 
0000!0 
000080 
000030 
00000 
000070 
000040 
000080 
000080 
000080 
0000180 
O000fO 
000080 
000020 
0000#0 
000080 
o0000#0 
000030 
000070 
000030 
000010 
000070 
000020 
000030 
0000!0 
000040 
00000 
000080 
000030 
00000 
000080 
0200080 
000070 
000030 
000480 
000120 
0003%2 
0003%2 
O00Kt 4 
000483 
000533 
0006t0 
0006?1 
0007:0 
000732 


001032 


001442 
O014i2 
0015%2 
001582 
0015%3 
0016:!0 
001610 
O01ate2 
0018%2 


op rca ESSE: 


i 
be 
i 
te 
‘ 

i 
t, 
h 


NleDL+R2C3 
COMMENT COMP SHOULD ONLY BE CALLED IF FINDIT FINDS 2 # CHARS,3 
43C1F Sc#0C THEN YUMP OUT); 
Sil¢Stle13 DIieDI#13 
CI©CT+RELATIONS 
GO GR 
%G0 LS3 
LStIre Sc<0C THEN ; GO Xx; 
GREIF SC>DC THEN 3 *% GO xx3 
XX#]F TOGGLE THEN TALLY«¢13 
RELATIONe TALLY? 
END COLLATING SEQ COMPARE; 
DONE «POLISH? 
END COMP3 


HISCNT © CHISCNT2 0) x HISCNT3 
IF RELATION,(4325] GEQ 29 THEN % IN ALPHAs NUMERIC® TRUTHSET 


IF 


BEGINS 
COMMENT CHAR IN ALPHA TEST 
STREAMCTALLIE#=0 $ CHARe ITS2=RELATIONSLAGt2 Iie TSETISEHISCNTI93 
BEGIN 
SI*LOC CHAR3 SleS1+7}3 
CI%sCI+ITS2 GO TO ALPS GO TO NMR} % GO TO TSET3 
TST? SLssTSETS SKIP CHAR SB3 SKIP SB} 
IF $8 THEN BEGIN TALLY2#13 TALLIEt=e TALLY ENDS Go OUN; 
NMR3 IF SC GEG "OO" THEN IF SC LEQ "9" THEN % 
BEGIN TALLYts13 TALLIE?=sTALLY ENDS GO DUN? 
ALPs IF SC=ALPHA THEN BEGIN TALLY8#13 TALLIES =TALLY END3 
DUN? 
END... 
RESULT*POLISH# 
END ELSE 
RELATION>64 THEN 
COMMENT PisP2 OR Pi#P2:COMPARE THE ABSOLUTE ADDRESSES THAT THE 
2 POINTERS REFERENCE WITHOUT LOOKING AT THE CONTENTS OF THESE 
LOCATIONS» NOTE THAT UNINITIALIZED POINTERS COMPARE EQUAL 23 
RESULT*#CRELATION=65) FAV (PI, £18830]5P2, £18%30))- ELSE 
BEGIN 
COMMENT A RELATIONAL COMPARISON OF TWO STRINGS«3 
COMMENT NOTE THAT THE 5500 SIMULATIONS USE THE BCL COLLATING 
SEQUENCE FOR RELATIONAL COMPARISONS» WHEREAS THE 6500 WILL 


COMPARE THE MAGNITUDES OF THE TWO CHARACTERS AS 4 6@ OR 8=BIT 


INTEGERS, THE 5500 SIMULATION ALSO ONLY ALLOWS 6=8IT BCL CHARS3 
IF €P2=0 AND RELATION,£C1#1750) OR P1s0 
THEN PCMKS,INTCALLC(@4)81L224781]+FORTERRI)) 3 
IF P1.CO1L!01] THEN 
PCMRICL4I4720135P1,00982214+(P 4 6633215140) sCHS+CDC*DEL D3 
IF PieCSIZEZSIX THEN POLISH(M&1014247201158686>CDC,DEL)3 
ROWL«MEP1]3 Ricep1,£2820313 
RIWeP1,[18310]3 HISCNT*ABSCHISCNT)3 
IF CJUNKEHISCNT.(3524334P1,00T)>08(ROW1)0 35208910) THEN 
POLISHCLROWLCJUNK]1,DEL)3 
IF RELATION,CO1#01350 THEN 
BEGIN 
COMMENT BOTH P1&P2 ARE POINTERSS 
IF P2.CO1!01] THEN | 
PCMA1L1484780119P2,009822)4(P2-4633715140) sCHSPCDCeDEL D3 
IF P2.CSIZE#SIX THEN 


08431100 
08431110 
08431120 
08431130 
08431140 
08431150 
08431160 
08431170 
08431180 
98431190 
08431200 


08431210 


08431220 
08431230 
08431520 
08431540 
08431560 
08431580 
08431600 
08431620 
08431640 
08431660 
08431665 
08431670 
08431675 
08431680 
08431685 
08431690 
08431695 
08431700 
08431720 
08431740 
08431760 
08431780 
08431800 
08431820 
08431840 
08431860 
08431880 
08431900 
08431920 
08431940 
08431945 
08431946 
08431950 
08431951 
08431960 
08431980 
08432000 
08432020 
08432040 
08432060 
08432080 
08432100 
08432110 
08432111 
08432120 


AA HAA HA AAA HA HHT OTN A a a tt gt 9 st ts 


001984 
001933 
001983 
002444 
0021:3 
0022%1 
O022%2 
0022%2 
002384 
002313 
O024at 1 
002442 
002433 
0025214 
0025%2 
002933 


0031410. 


0034%2 
0031432 
003430 
O034%4 
003433 
003543 
0036%3 
003870 
003950 
003933 
004013 
004083 
004440 
004432 
0041%92 
004223 
O04ar3 
004233 
0042933 
0044t2 
004750 
0047420 
OO47EO 


O047FO. 


004780 
004720 
0049%0 
005410 
005483 
0059%2 
006321 
006610 
006834 
OO724 
0073892 
QO07413 
007594 
007534 
007630 
008033 


e 


IF 


IF 


POLISH(MR1C14¢478011> 
ROW2eM(P2]; R2Ce 
R2WeP2,C18t1073 
IF CHISCNT+P2,.N0T)>O0&(ROW2)£35208%103 THEN 

POLISHCCROW2LHISCNT+P2.D0T1])] sDEL)3 
IF CJUNK¢HISCNT)>63 THEN 

BEGIN 

Ne633 

DO FINDIT UNTIL CCUUNK*JUNK"63)563) OR DONES 

ENDS 
IF CNOT DONE) AND CNe JUNK) #0 THEN FINDITS 
ENB ELSE 
BEGIN 
COMMENT P2 IS A LITERAL STRING 
IF CN©HISCNT,. 01881599220 THEN NeHISCNT3 
RJUNKeP23 ROW2¢CRIUNKIRILL7 84730115 
R2Wed; 

COMMENT IF HISCNT.£18815140 THEN [182151=STRING LENGTH @ 
C33:15]=ExXPLICIT LENGTH OF COMPARE, OTHERWISE £33151] 15 
BOTH LENGTH OF COMPARE AND LENGTH OF LITERAL.3 

IF CHISCNT*HISCNT, £33815] SN THEN 
BEGIN . 

COMMENT LENGTH OF COMPARE 1S $ LENGTH OF LITERAL: WE DON"T 

HAVE TO REPEAT THE LITERAL? 

R2CeBen? . FINDITS 

END ELSE 

BEGINS 

COMMENT LITERAL MUST BE DUPLICATED TO FILL 8 CHARS 3 

STREAMCP2sNeSOFFCB8@NeN1©8 DIV NeN2eCJUNK*8 MOD N)> 

DeLJUNKI])5 

BEGIN 

SteLOc P23 SleST+SOFF3 DeST3 
NiCDSeN CHR? Sle«D)3 

DS#N2 CHR; 


END# 
Ne IF HISCNTS8 THEN HISCNT ELSE 83 
LOOPCOUNTe&RISCNT#=N3 R2ceQ3 
FINDIT: 
TF NOT DONE THEN 
BEGIN 
R2CeP1,(28:0313 R2weP1,£18:10)3 
ROW2*ROWLS 
IF LOOPCOUNT>63 THEN 
BEGIN 
NC©633 
DO FINDIT UNTIL DONE OR CLOOPCOUNT+LOOPCOUNT=63)<633 
END; 
IF CNOT DONE) AND CNe®LOQPCOUNT)20 THEN FINDITS 
END? 
END 
END; 
BEGIN 


UPPIND£O)] © Pl +08HISCNT£L18235%13)3 

UPP2NDCO} ¢ P2 +08HISCNT(C18235213)% ENDS 
CRELATION*ARSCRELATION) 28 THEN RESULT*CNOT DONE) £47201) ELSE 
RELATION=12 THEN RESULT*DONE ELSE 

DONE THEN 


08432140 
98432160 
08432180 
08432200 
08432220 
08432240 
08432260 


08432280 


08432300 
08432320 
08432340 
08432380 
08432400 
98432420 
08432440 
08432460 
08432480 
084324814 


08432482 


08432483 
08432500 
08432520 
08432540 
086432560 
08432580 
08432600 
08432620 
08432640 
08432660 
08432680 


08432700 © 


08432720 
08432740 
08432760 
08432780 
08432800 
086432820 
08432840 
08432860 
08432880 
08432900 
08432920 
08432940 
08432960 
08432980 
08433000 
08433020 
08433040 


08433060 © 


08433120 
08433140 
08433141 
08433142 
08433143 
08433145 
08433147 
08433149 


a te se a as se i ss 


008240 
00842 


OOB7tY 
008B8t2 
009482 
009323 
009510 
Q09Sie2 
0096114 
009983 
009943 
010340 
0140330 
010520 
010580 
0108:0 
011022 
Olli 
O11p.e4 
Ollie 
Oitity 
011340 
O143%2 
O113%2 
O113%2 
011620 
011630 
0116%2 
011632 
0120%0 
01420%2 
0120%2 
OL121%2 
012320 


O123%2. 


012383 
0126%2 
O128%2 
013080 
0130%2 
O13140 
013382 
013422 
013534 
013533 
0136%2 
014083 
014033 


014430 


014420 
Q144:0 
014480 
01440 
014624 
0148to 
0151442 
015482 


BEGIN aFINDIT DISCOVERED A # CHAR IN THE TWO STRINGS, 


RELATION©*RELATION,£45:0113 %0 & 16 TEST > 4 & 20 TEST «< 
COMP} RESULTeNONES 
END ELSE 


COMMENT STRINGS WERE = AND RELATION IS NOT = OR #, PLUCK THE 
"et HALF OF "<" OR ">" QUT OF RELATION,3 
RESULT¢RELATION, (4320115 
END COLLATING SEQUENCE COMPARES} 
END COMPARE} 


PROCEDURE BASICPRINTCTYPE)D3 


08433151 
08433153 
08433155 
08433157 
08433159 
08433164 
08433163 
06433320 
08433340 


08500000 


START OF REL SEGMENT’ DISK 


VALUE TYPES 
REAL TYPES 


BEGIN REAL ALGOLWRITE = 12, 
ALGOLSELECT = 143 
REAL RCW = +03 


ARRAY 
NAME 
REAL 


BOOLEAN 
INTEGER 


NAME 
NAME 
NAME 
ARRAY 


BOOLEAN DATACOMs FIRSTIMES 


LABEL 


POT # 25f*]3 
MB 23 

Te 

WH» 

WH253 
THISTYPE3 
BSIZEs 
BUFF s 
BUFFLOAD, 
COL» 
COUNTER, 


NUMCHR» 
NuMROWS, 
ROWs 
ROWLENGTHs 
SIGN» 

SKIPs 

TAB» 
WRITESTMT3 
POINTER} 
FILXs 
STRING = T3 
FIB(*]»s 
MATRIXC*] + 
MATRIXROWL*]3 


COMMON» 
LOGEIGHT, 
MAXINT» 
MINVALUE» 


08500100 


08500200 - 


08500300 
08500400 
08300450 
08500500 
08500600 
08500700 
08500800 
08500900 
08501000 
08501100 
08501200 
08501300 
08501400 
08501500 
08501600 
08501700 
08501800 
08501900 
08502000 
08502100 
08502200 
08502300 
08502400 
08502500 
08502600 


08502700 


08502800 
08502810 
08502900 
08502950 
08503000 
08503100 


08503200 © 


08503300 
08503325 
08503400 
08503500 


08503600 © 


08503700 


T. 
T 
T 
T 
T 
aT 
T 
T 
T 
SI 


T 


015524 
015583 
015730 
0158:3 
015873 
0158:3 
015823 
0160:2 
016082 
ZE= O161 


0000%0 


ADDRESS = 


a as et oe A st 


000070 
000030 
000010 
0000%0 
000080 
0000tO 
000040 
000040 
00000 
0000%0 
000080 
000020 


0000%0 


000030 
000080 
000080 
000010 
0000!0 


000080. 


oo0agrO 
0000!%0 
000030 
oo00080 
000070 
00000 
00000 
000020 
0000!0 
0000720 
00000 
000070 
00000 
000080 
000080 
000030 
000030 
eleleren ae) 
000030 
000080 
0000:0 
0000!0 


wORDS 


00583 


@®eeseeee?8e?8se @© 880000 @ ee ee ® ° ® | e 


TENSEVEN, 
TENSIX» 
CONVERTED? 
NORMAL» 
DUMMYL ABEL 3 
DEFINE LOG8 PCLOGEIGHT)#s 


MAX = PCMAXINT) #» 
DELTA PCMINVALUE)#e 
TEN6 = PCTENSIX) #e 
TENT = PCTENSEVEN)&3 
DEFINE COMMA = 1#»s 
SEMICOLON = 2#, 
ENDLINE & 343 


REAL SUBROUTINE GETNEXT; 
BEGIN THISTYPE © CTYPE © O&TYPEL627:40]),(63113 
ITEMS © ITEMS#13 TAB © *C1 INX POINTERD3 
PCKPOINTER)S POINTER ¢€ 2 INX POINTER 
GETNEXT « POLISH 
END GETNEXT 
BOOLEAN SUBROUTINE OIMENSTONS 
BEGIN COMMENT TRUE FOR SINGLE DIMENSIONED CINCLUDES STRINGS)33 
STREAMCT¢POLISHCXCHse Or CDC) 8AeO)3 
BEGIN SleTs DIeTs; SleSI"163 SKIP 2 SB3 
IF SB THEN ELSE TALLYe13 T «+ TALLY? 
END STREAM; 
DIMENSION ¢ THISTYPE OR POLISH; 
END DIMENSION} 
SUBROUTINE SETUPANDEXIT; 
BEGIN IF DATACOM THEN 
IF COUNTER NEQ O THEN 
BEGINISTREAMCBUFF)$ DSt=LIT Me3 
POLISHCMKS» 169 O» O» BSIZEs FILXs ALGOLWRITEQ3 
BUFF 23 +CePFILX)ECRIE 
ENDS3 
FIRC2ZO12SBUFFRCOUNTERE 3? 332157¢BSIZEL1883Rs101 8102994791413 
POLISHCXIT)3 
END SETUPANDEXIT? 
SUBROUTINE PRINT# 
REGIN POCMKSs1e020,BSIZE#CCNOT DATACOM), C4721) »FILX»ALGOLWRITED3 
IF NOT DATACOM THEN 
STREAMCALS"1O"sBt=(FIBLOJI])3 
BEGIN SIt:=L0c A3 DSt=B ADD; END STREAM; 
END PRINT ROUTINE: 
SUBROUTINE CLEARS 
BEGINS STREAMCASBSIZE@1+DATACOM:De*eFILX)3 
BEGIN DS?=8 LIT." "3; STtsD3 DSt#A WOS3 DItFD3 AtSDI3 END 
BUFFSsPOLISH} BUFFLOAD!=BSIZEx83 
ENO CLEAR ROUTINES 
SUBROUTINE CHECKPRESENCE3 
BEGIN FIBL20]«C*PCOUP) )&CCOUNTER©0903'83331513 
BSIZESPCMKSs1t20sO0s€™1) »FILX»ALGOLWRITED3 
IF DATACOMeFIBC4).,0884)=10 OR FIBE4],£8:43213 THEN 
RSIZE + 9 ELSE 
BEGIN RSIZE¢RSIZE#13 
STREAMCA©FIBLO]sA«BSIZE INX C#FILX))5 


08503800 
08503900 
08504000 
08504100 
08504200 
08504300 
08504400 
08504500 
08504600 
08504700 
08504800 


08504900 © 


08505000 
08505100 
08505200 
08505300 
08505400 
08505500 
08505600 
08505700 
08505800 
08505900 
08506000 
08506100 
08306200 
08506300 
08506400 
08506500 
08506600 
08506700 
08506800 
08506810 
08506820 
08506830 
08506850 
08506860 
08506900 
08507000 
08507100 
08507200 
08507300 
08507310 
08507320 
08507330 
08507340 
08507400 
08507450 
08507500 
08507550 
08507600 
08507700 
08507800 
08507825 
08507850 
08507855 
08507860 
08507870 


AANA MBH HMM HH HHH Tt tt tH A a st ss a st A 


0008 
d000!0 
o000to 
0000%0 
0000%0 
000070 
000070 
0000%0 
oo00r0 
000030 
0000fo 
000030 
000010 
00000 
O000t0 
0000!0 
000130 
0003:3 
000632 
O00Rt 4 
OCd0at, 
0008%3 
O009%0 
0009t0 
001033 
001433 
0013%0 
OO13%4 
O014t0 
OOLaty 
001510 
O01S%4 
0016%e 
O01Bi2 
002081 
0022:0 
002230 
0026414 
002632 
002623 
002720 
003030 
003012 
OO30%4 
003340 
OO33%4 
0034:0 
003612 
003920 
004410 
0041484 
004910 
004520 
0047890 
0054%4 
0052:0 
005431 


BEGIN SI¢*LOC AZ} OS*WDS3 ENDS 
END3 
CLEAR? 
END CHECKPRESENCE$ 
SUBROUTINE PRINTEXITS 
BEGIN PRINTS 
COUNTER © O3 
SETUPANDEXIT3 
END PRINTEXIT3 
SUBROUTINE PRINTRETURNG 
BEGIN PRINTS 
CHECKPRESENCES 
END PRINTRETURN: 
SUBROUTINE FINDES 
BEGIN COMMENT DETERMINE THE EXPONENT OF A REAL NUMBER, THE NUMBER 
IS POSITIVE AND PASSED IN T. WHEN DONE» STORE THE 
EXPONENT IN Es AND ROUND T TO 10*6 S$ T < 410%73 
E © CCO&RTE425 326187218 2919412)xL0G8 40,53 
WHILE T<CIF €20 THEN POTEE] ELSE 1/POTC#E}) DO F © Emq; 
T + IF €6"E)20 THEN TxPOTL6"E] ELSE T/POTLE"6]3 
END FIND EXPONENT AND ROUND NUMBER? 
SUBROUTINE CONVERT; 
BEGIN 
IF THISTYPE THEN 
BEGIN} STREAMCAG¢O!SeSTRINGI3 
BEGIN SI©S# ST#SI+153 DI*_OC AS DIeDI+73 DS*CHR} END} 
IF (I © POLISH#6)>15 THEN I ¢ 1=203 
NUMCHR $= J] + 3 x WRITESTMT3 
IFCCOUNTER + NUMCKR) GTR BUFFLOAD THEN PRINTRETURN3 
STREAMCI:SSTRINGsWRITESTMT,BUFF)3 
BEGIN SITt*=STRING? WRITESTMTCDSeLIT ""')3 DOSel CHR} 
WRITESTMTCOS¢LIT "3 OSeLIT "y%)3 Tens 
END STREAMS 
BUFF $* POLISH} COUNTER $5 COUNTER + NUMCHR$ 


GO. TO CONVERTED; 
LOGEIGHTS?$! @441571630347616743 
END STRING HANDLING 
COMMENT THAT WAS EASY =" NOW FOR THE NUMERICAL STUFF? 
ESIGN «© EXPCHR «© SIGN ¢ SKIP « NUMCHR « 03 
SIGN «© TACT © ABSCT))3 
IF .T<MAX THEN 
IF CIF TSO THEN TRUE ELSE CABSCCCI © TI"TI/TISDELTA)) THEN 
BEGINS COMMENT INTEGER,» OR NEAR ENOUGHS 
STREAMCI¢I «¢ TST#(WH1I)3 
BEGIN Sl*LOC 13 DS+¢8 DEC# SIeT3 
7CIF SC#"O" THEN St*SI#1)3 Ie«S]3 
END STREAM} 
NUMCHR « B= (SKIP © PCXCH),£30331)3 
GO TO COMMON; 
END INTEGER CASE; 
T © 1,.0*T3 FINDE} 
IF ¢€J] ¢ TY2TEN7 THEN 
BEGIN I © TEN63 € © F413 END; 
IF E<o AND E2>¢("7) THEN 
IF YeCCl DIV CT © POTEABS(CE44)79)xT) THEN 
BEGIN I « I NIV T3 


08507880 
08507890 
08507895 
08507900 
08508000 
08508100 
08508200 
08508300 
08508400 
08508500 
08508600 
08508700 
08508800 
08508900 
08509000 
08509100 


08509200 > 


08509300 
08509400 
08509500 
08509600 
08509700 


08509800 - 


08509900 
08510000 
08510100 
08510200 
08510250 
08510300 
08510400 


08510500. 


08510550 
08510575 
08510600 
08519650 
08510700 
08510750 
08510800 


08510900 


08511000 
08511100 
08511200 
08311300 
08511400 
08511500 
08511600 


08511700— 
08511800 


08511900 
08512000 
08512100 


08512200 © 


08512300 
08512400 
08512500 
08312600 
08512700 


O056%4 
00570 
005730 
O005a8t0 
0058%4 
005910 
0060!0 
006023 
006210 
006234 
0063!0 


006420 


006520 
006534 
006680 
006630 


006610 


006610 
OO7Tar, 
O078f0 
008323 
0084!t0 
008430 
008410 
0084s, 
008610 
008789 
009023 


009242 


009580 
009633 
0098:%3 
010083 
010120 
0102:3 
010233 
010334 
0105!0 
0105!0 
010520 
010733 
010933 
O110%2 
O118i2 
011610 
011733 
0118%2 
012020 
O120%4 
O122%2 
0123%0 
0142310 
012530 
012624 
012833 
013023 
O134i2 


@®eeeseeeeeeee#eee#e?e?e08e0eee¢e8 ¢@e @ 


STREAMCP1©OSP2ePCABSCE+1)20UP)>» 
P3¢7"P(XCH) sP4eP (DUP 1s PSeleP6e (WHI I); 
BEGIN O0S¢2 LIT "O."3 P2tnS « LIT "O"%)3 
SleLOC P53 OS*P3 DECs PleDIs DIeP63 Silepi3 
SleSI™13 POCIF SC#"O" THEN JUMP OUT 
TALLY TALLY4+13; STeStw1)3 
P1leTALLY3 
END STREAMS 
NUMCHR « 9=PCXCH)3 
gO TO COMMONS; 
END F TYPE STUFF; 
IF £20 AND E«? THEN 
BEGIN COMMENT THE OTHER HALF OF FeFORMATTINGS3 
STREAMCPOCO? PLePCE ei» DUP)» 
P2¢7@PCXCH)s P3els P4efWHt] 3 
BEGIN DIeDI#14 ST*LOc P33 ODS«7 DEC; 
DleP43 SyeP43 STe#St4+13 OSeP1 CHR} 
DSeLIT ",%3 STeSI+P23s SleSIey3 
P2cIF S¢#"0" THEN JUMP QUT3 
TALLY*TALLY4#13 SleSI"1)3 POeTALLY:? 
END STREAM; 
NUMCHR «© 8=PC(XCH)3 GO TO COMMON} 
END OTHER HALF FORMATTINGS 
STREAMCPL©ABSCE)SP2eTsP3elE ) sP4eCWHi])3 
BEGIN DleDI+13 SleLoc P23; OSe7 DEC# DIePAs ST*P4; 
StTeSI+13 OSeCHRS OSeLIT ",%F SleSt+53 
6CIF SC#"O" THEN JUMP OUTS SIeSte13  TALLY*TALLY#193 
DIeP3s SIeLOc P13 OLeDL+63 OSe2 DECS PLSeTALLY; 
END STREAM} 
EXPCHR © 1+CABS(E)>9)3 ESIGN « E<03 NUMCHR © B8PCXCH)3 
COMMONS 2 T © L+NUMCHR+EXPCHRE(CEXPCHRZ0)+P( DUP) )#WRITESTMTS 
IF CCOUNTER+T)>BUFFLOAD THEN PRINTRETURN3 
STREAMCP1*SKIPSNUMCHRe SIGNS EXPCHRs P26P (DUP) 408 
ESIGNsP3¢CWHI J »P4eLE]*WRITESTMT» BUFF )3 
BEGIN DS*LIT " "3 SIGNCOTeDI=13 OS*LIT *te)3 
SI¢P33 SIeST+P13 OS*¢NUMCHR CHR} 
P2(pse2 LIT "E473 ESIGN(OpleDI 13 DS#LIT "a")5 
SIe#P43 SI¢ST+84 SI*ST*EXPCHRS DS+EXPCHR CHRD} 
WRITESTMTCOSeLIT "293 P1eOT3 
END STREAMS 
BUFF « POLISHS COUNTER « COUNTER+T3 
GQ TO CONVERTEDS 


MAXINT #22 ®10457536037740003 
MINVALUE? $$ @©12565537624653633 
TENSEVENS!#: @10546113200000003 
TENSITY 28 @10636411000000003 
CONVERTED? 
END CONVERT? 
SUBROUTINE TABCONTROLS; 
BEGIN COMMENT DGES ROUTINE TABBING OPERATIONSS 
IF TAB<O THEN COMMENT TAB CONTROL GIVEN EXPLICITLY? 
BEGIN TABt= CABSCTAB)"1L) MOD BUFFLOADS 
IF FIRSTIME THEN BEGIN FIRSTIMEt= FALSE} 
IF TAB LSS COUNTER THEN PRINTRETURNS ENDS 
BEGIN COMMENT SPACE FWD3% 
STREAMCASSBUFF STABSSTAB@™COUNTER? 


08812800 
08512900 
08513000 
08513100 
08513200 
08513300 
08513400 
08513500 
08513600 
08513700 
08513800 
08513810 
08513820 
08513830 
08513840 
08513645 
08513850 
08513855 
08513860 
08513865 
08513870 
08513880 
08513890 
08513900 
08514000 
08514100 
08514200 
08514300 
08514400 
08514500 
08514600 
08514700 
08514800 
08514900 
08515000 
08515100 
08515200 
08515300 
08515400 
08515500 
08515600 
08515700 
08515800 
08515900 
08516000 
08516100 
08516200 
08516300 
08516400 
08516500 
08516600 
08516700 
08516800 
08516900 
08516910 
08517000 
08517050 


aa es mes ts st st st a ts Ht 


014681 
0146%2 
0146!3 
014830 
015010 
0150%0 
015423 
0152t1 
0154t0 
0155%2 
015644 
015742 
0154833 
016084 
O161tt 
0161%2 
016331 
01634 
016534 
0166%2 
016733 
016933 
017140 
O17 484 
017533 
017923 
0183:0 
QO185%1 
018633 
018833 
0190t0 
0192%2 
019414 
019523 
019630 


019743 


019884 
0198%4 
020020 
020410 
020210 
020370 
020370 
0203%41 
020410 
0204: 
020413 
020731 
020813 
021180 
021140 
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Ti=P(DUP),C36%6])3% 


BEGIN 
SIlts Loc TABS SKIP SB3 
IF 58 THEN , 
BEGIN COMMENT SPACE BACKWARD; 


SI? As TCSIse SI™ 323 SiIss SI] = 3293 
SIt= SI = TAB3 
END ELSE 
BEGIN COMMENT SPACE FORWARD3 
SIlt= As TCSIts SI + 323 SIt= SI + 3233 
SI] t= SI + TAB3 
END} 
At= SI} 
END STREAMS% 
BUFFS=POLISHS COUNTER? =TABSS 
FND SPACE FWD THRU BUFFER33 
END ELSE BEGIN COMMENT NORMaL TAB CONTROL FUNCTION; 
IF TABFENDLINE THEN PRINTEXITS 
IF WRITESTMT = 0 THEN BEGIN 
IF TAB=COMMA THEN 
T * COUNTER@C(COUNTER © (CCOUNTER#14) DIV 15)x15) 
FLSE IF TAB=SEMICOLON THEN 
T $= COUNTER#@C(COUNTER t=(CCOUNTER+5S) DIV 3) x 393 
IF COUNTER>BUFPFLOAD THEN PRINTRETURN ELSE 
IF TABZO THEN BEGIN; 
STREAMCBUFFST)3 
BEGIN SI*BUFF3 SI¢SI+T3; BUFFeSI3 END} 
BUFF « POLISH? 
END END END END TABCONTROL;? 
COMMENT*##*** eee eSTART OF CODE +a waa nz 
ITEMS ¢ TYPE,C1%6)3 WRITESTMT © TYPE, £46t1]3 
POINTER © 41 INX CERCWIRRCWEFIC))3 
FILX « *POINTERS FILXENOT 4] ¢ *¢4 INX POINTER? 
POINTER «© 2 INX POINTER; 
FIB © FILXCNOT 213 
IF FIBE5].C4321] THEN PCMKS» O, O» FILXs 1» ALGOLSELECTD3 
IF FIRCOI]SO THEN BEGIN FIBLOJ="1000"3 THISTYPESSTRUES END3 
DATACOM « FIBC4),(6:4] = 10 OR FIBL4),£894) = 133 
IF CCOUNTER ¢« CT © FIBO20)).03:153)20 THEN CHECKPRESENCE ELSE 
BEGIN BUFF © T.€30!18)3 BUFFLOAD « 8x(BSIZE © 7,018%103) ENDS 
IF THISTYPE AND FIBL4],€8%4]2#4 THEN 
PC*LFIBCLS) 257 s+CDCetseSSNsXCHsSTODS 
IF DATACOM THEN CLEAR 
ELSE IF FIBL21) NEQ@ O THEN PCFILX28211eCOM)3 
TABt= *POINTERS POINTERSs 4 INX POINTER; 
FIRSTIME %= TRUES TABCONTROL3 
IF ITEMS=0 THEN SETUPANDEXIT? 
IF NOT TYPE THEN GO TO NORMAL; 
DO BEGIN COMMENT MATRIX PRINT ROUTINE? 
POLISHCMATRIX © GETNEXT)3 
IF PCTABs DUP)=ENDLINE THEN TAB «© COMMA$ PCXCH)3 
IF DIMENSION THEN 
BEGIN COL ¢ THISTYPE4+13 ROWLENGTH © MATRIX,(C8!%10173 
QO BEGIN 
T * CMATRIXECCOLII3 
CONVERTS TABCONTROLS 
ENO UNTIL (COL © COL4+THISTYPE+1)=2ROWLENGTHS 


08517060 
08517100 
08517110 
08517120 
08517130 
08517140 
08517150 
08517160 
08517170 
08517180 
08517190 
08517200 
08517210 
08517300 
08517400 
08517410 
08517500 
08517600 
08517650 
08517700 
08517800 
08517900 
08518000 
08518100 
08518200 
08518300 
08518400 
08518500 
08518600 
08518700 
08518800 
08518900 
08518910 
08518920 
08519000 
08519100 
08519150 
08519175 
08519200 
08519300 
08519320 
08519330 
08519350 
08519360 
08519400 
08519410 
08519500 
08519600 
08519700 
08519800 
08549900 
08520000 
08520100 
08520200 
08520300 
08520400 
08520500 


AA AAA HHO Us A ttt tt a HHH HHH TTT ITI ODDO V- 


021252 
0213%2 
0213%2 
021430 
021432 
O214i2 
021610 
021622 
021633 
021623 
021844 
021833 


021833 


0219120 
021984 
022012 
022042 
022130 
0223:0 
022431 
022510 
O227%4 
0230°0 
0233:3 
023610 
023733 
023920 
O240%4 
024033 
024120 
0241 #0 
025033 
O252%2 
025630 
025724 
025910 
026280 
0265!2 
O269%4 
027330 
02782 
028082 
028334 
028413 
028830 
029084 
029220 
0294t0 
029433 
029423 
029682 
029950 
030030 
0303%4 
0303%1 
O304%4 
0306%0 
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IF (TAB ¢ POLISH)=ENDLINE THEN PRINTEXIT3 
END ELSE BEGIN 
NUMROWS «© MATRIX,(8240)3 
ROWLENGTH © (*CMATRIXCROW ¢ 133),08%10)3 
DO BEGIN 
MATRIXROW © *CMATRIXCROWI)3 COL « 13 
00 BEGIN 
T © (CMATRIXROWCCOLIIs 
CONVERTS TABCONTROL3 
END UNTIL CCOL « COL41)2=ROWLENGTH3 
IF COUNTERZO THEN PRINTRETURNS 
END UNTIL CROW ¢ ROWs+1}=NUMROWS; 
IF CTAB © POLISHISENDLINE THEN SETUPANDEXITS 
ENDS 
END UNTIL CPOINTER INX OQ)RCTYPE].ECRI3 
SETUPANDEXITS 


NORMAL’ DO BEGIN T ¢ GETNEXTS 


CONVERTS TABCONTROLS 
END UNTIL CPOINTER INX O)#C TYPE], CCFI3 
SETUPANDEXITS 
END BASIC PRINT ROUTINES 


PROCEDURE READATACTYPE)3 


08520550 
08520600 
08520700 
08520800 
98520900 
08521000 
08521100 
08521200 
08521300 
08521400 
08521450 
08521500 
08521600 
08521700 
08521800 


08521900 


08522000 
08522100 
08522200 
08522300 
08922400 


08600000 


START OF REL SEGMENTS DISK 


VALUE TYPE? 
REAL TYPE; 
BEGIN 
ARRAY DATA = 21[*], 
COMPANION = 2eC#]; 
INTEGER PTR = 23% 
ENDATA = 24; 
INTEGER COs 
COUNT» 


Oe 
R» 
ROW» 
ROWLENGTH» 
T3 
BOOLEAN THISTYPE3 
ARRAY MATRIXC als 
MATRIXROW[ *]> 
DATARGWE *)+ 
cOMPROW*]3 
NAME N3 
LABEL NORMAL 3 
REAL SUBROUTINE GETNEXT3 
BEGIN COMMENT GET NEXT ITEM FROM STACKs AND DO 
SOME ROUTINE HOUSEKEEPING OPERATIONS; 
PCHCPOC.TYPEJ+COUNT) D3 
THISTYPE © CTYPE © O&TYPEC627240)),f62133 
GETNEXT © POLISH 
END GETNEXTS 


08600100 
08600200 
08600300 
08600400 
08600500 
08600600 
08600700 
08600800 
08600900 
08601000 
08601100 
086014200 
08601300 
08601400 


08601500 


08601600 
084601700 
08601800 
08601900 
08602000 
08602100 
08602200 
08602300 
08602400 
08602500 
08602600 
08602700 
08602800 
08602900 


T 
T 
T 
T 
T 
T 
T 
y 
tT 
T 
T 
T 
T 
T 
T 
T 
T 
T 
7 
t 
T 

S$! 


T 


030833 
031130 


O314%2 © 


031330 
O315%4 
O315%4 
O3417%4 
O317%1 
O31a%1 
032080 
O322%1 
032550 
032741 
0330:0 
033040 
033234 
033340 
0334!2 
033720 
0339%1 
0340:%0 


0000580 


ADDRESS = 


T 


HAAR AH HHH A HH Ht Ht 


000010 
000040 
00000 
00000 
00000 
0000%0 
0000%0O 
000080 
0000%0 
00000 
000080 
000010 
000040 
0000 '0 
000080 
00000 
0000%0 
000080 
000030 
0000:0 
000050 
00000 
0000%0 
0001!0 
000110 
000110 
000250 
000483 
0004%3 


ZE= 0344 WORDS 


90595 


@®eeeeeee#ee%eeee#8%8ee08e8 668 @® @ @ @ @ @ @ 


B arnt e SUBROUTINE OIMENSTONS 


N COMMENT TRUE FOR SINGLE DIMENSIONED CINCLUDES STRINGS)33 
STREAMC(CT¢POLISHCXCHse Os CDC)#Ac0)3 
BEGIN SIleTs O]leT3 Ste¢Sil*463 SKIP 2 SB 
TF SB THEN ELSE TALLY*#13 T ¢« TALLY? 
END STREAM: 
DIMENSION ¢ THISTYPE OR POLISH3 
END OIMENSION; 
SUBROUTINE PUT3 
BEGIN COMMENT GETS AND STORES NEXT DATUM} 
IF CRx2564+D)=ENDATA THEN POLISH(CC*48)» 26» COM)3 
IF BATAROWs0 THEN 
BEGIN DATAROW © *{DATALRIV3 
COMPROW © *(COMPANIONERII;3 
ENDS 
STREAMCACT. C4325]: B¢(COMPROWET,£4033])193 
BEGIN SI¢Bs STe*SI+23; SKIP 4 SBS SKIP A SB3 
IF. SB THEN TALLY¢13 A*TALLY3 
END STREAM; 
IF POLISH+THISTYPE THEN PC C"44)s 262 COM)3 
IF TRISTYPE THEN 
BEGIN COMMENT STRINGS3 
STREAMCS¢({DATAROW(D JJ] 2N)3 
BEGIN SIl©S3 DS¢2 WOSs ENDS 
ENO ELSE COMMENT NUMERICAL STUFF COR WE ARE IN TROUBLED3 
PCDATAROWEL DJs CN] ,¢)3 
IF (€D © D+THISTYPE+192256 THEN 
BEGIN COMMENT ROW OVERFLOWS 
R t= Req}. T te D t= DATAROW t2 03 
END ELSE T.¢ Tei 
END PUT; 
SUBROUTINE EXITs 
BEGIN COMMENT FUTZ UP PTR AND GO BACK TO THE REAL WORLD? 
PTR © R&DEICTFIRTC923999)5 
POLISHCXIT 23 
END EXIT; 
COMMENT #*& ee eke ee A START OF CODF aka c ake e 3 
COUNT « TYPE,£1%673 
R © PTRe(CFI3 DO © PTRACFFIS T © PTRAL9I9OT$3 
IF NOT TYPE THEN GO TO NORMALS 
DQ. BEGIN 
POLISHCMATRIX «© GETNEXT)3 
IF DIMENSION THEN 
BEGIN COL © THISTYPE+1% ROWLENGTH « MATRIX,£(8310]3 


DO BEGIN 
N « [CMATRIXECOLI]3 
PUTS 


END UNTIL (COL © COL4THISTYPE+1)=ROWLENGTHS 
ENO ELSE BEGIN 
NUMROWS ¢ MATRIX,£82101]3 
ROWLENGTH «© C*CMATRIXEROW © 133),0821013 
DO BEGIN 
MATRIXROW «© *(MATRIXCROW]I3 COL « 13 
DQ BEGIN 
N © CMATRIXROWCCOLII3 
PUT} 
END UNTIL (COL «#« COL+1)=ROWLENGTH3 


08603000 
08603100 


08603200 - 


08603300 
08603400 
08603500 
08603600 
08603700 
08603800 
08603900 
08604000 
08604100 
08604200 
08604300 
08604400 
08604500 
08604600 
08604700 
08604800 
08604900 
08605000 
08605100 
08605200 
08605300 
08605400 
08605500 
08605600 
08605700 
08605800 
08605900 
08606000 
08606100 
08606200 
08606300 
08606400 
08606500 
08606600 
08606700 
08606800 
08606900 
08607000 
08607100 
08607200 
08607300 
08607400 
08607500 
08607600 
08607700 
08607800 
08607900 
08608000 
08608100 
08608200 
08608300 
08608400 
08608500 
08608600 


te a ee as gs 


000534 
000680 
0006!0 
0007%3 
000843 
001030 
O010%4 
OO118O 
OO1181 
001270 
001220 
00154 
001681 
001830 
O019%4 
001984 
002133 
002340 
002420 
O024%4 
002634 
002632 
002740 
002831 
0029720 
002920 
0030%2 
003233 
003381 
003624 
0038%0 
0038%4 
0039!0 
003910 
O044%4 
0044%2 
004433 
004433 
004633 
005042 
005124 
0054%4 
0052%2 
005430 
005744 
OO57%4 
0058671 
005940 
006443 
0062814 
0063%3 
006610 
00660 
006810 
0068!0 
006920 
0070!0 


@® @©ee¢o¢ee8ee6¢e8@e0ee0ee@eee8ee80e6*#ea8 @ @# ® a & 
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END UNTIL ¢ROW © ROW4+1)5NUMROWSS 


END> 
END UNTIL CCOUNT «© COUNT#41)=03 
EXIT3 
NORMAL? 
DO BEGIN . 
N ¢€ GETNEXT3 PUTS 
ENO UNTIL CCOUNT ¢ COUNT#14)=03 
ExIT3 
END READATA; 


PROCEDURE BASICINPUTCTYPES)3 


VALUE TYPES; 


REAL TYPES? 


BEGIN REAL RCW = +0¢ 
ALGOLREAD = 43 
ALGOLSELECT = 

ARRAY POT = 2513 
INTEGER BSIZEs 
BUFF » 
CHAR» 
COL» 
COUNT s 
COUNTERS 
DECADES» 
Es 
ESIGN» 
NUMBER» 
NUMROWS, 
ROW» 
ROWLENGTHs 
SIGN; 
BOOLEAN GOTOIGIT> 
READSTMTs 
STOGs 
THISTYPES 
ARRAY FIBE*«]s 
MATRIXEL*#]» 
MATRIXROW(L*]3 
NAME ADDRESS, 
FILX» 
POINTER, 
STRING = ADDRESS; 
LABEL LOOK» 
SIGNED? 
PASTPOINT» 
AT» 
EXPSIGNED*»s 
DECIMAL» 
ERROR» 
STRUNG» 


s 
143 


08608700 
08608800 


08608900 © 


08609000 
08609100 
08609200 
08609300 
08609400 
08609500 
08609600 


08700000 


START OF REL SEGMENT} DISK 


08700400 
08700200 
08700300 
08700400 
08700500 
08700600 
08700700 
08700800 
08700900 
08701000 
08701100 


08701200 


08701300 
08701400 
08701500 
08701600 
08701700 
08701800 
08701900 
08702000 
08702100 
08702200 
08702250 
08702300 
08702400 
08702500 
08702600 
08702700 
08702800 
08702850 
08702900 
08703000 
08703100 
08703200 
086703300 
08703400 
08703500 
08703600 
08703700 
08703800 


T 
T 
tT 
i § 
t 
tT 
iT 
T 
T 
T 
SI 


T 
A 


a a se tt 


00728 
OOP ate 
O074ta 
007633 
007830 
007850 
007870 
008420 
0083 
008ato 
ZEs 0085 


0000!%0 
DORESS = 
0000!0 
000080 
000086 
000080 
000030 
000080 
00000 
exer elon xe) 
0000%0 
900010 
oocoTO 
000030 
000080 
elelelen Se) 
ereteren He) 
000040 
0000%0 
0000!0 
000030 
0000!'0 
000010 
000020 


000070 


000010 
000070 
000020 
000080 
0000%0 
000040 
00000 
000080 
0000%0 
0000!0 
00000 
0000t0 
000010 
0000!0 
000010 
0000:0 
00000 


WORDS 


00598 


| 


QUOTEDSTRINGs 
SETCOUNT» 
NORMAL» 
EXITs 
DUMMYLABELs 
REAL SUBROUTINE GETNEXT3 
BEGIN COUNT ¢« COUNT™=13 
PC*POINTER)} POINTER © 1 INX POINTER? 
THISTYPE € (TYPES ¢ O&TYPES[6!7239]),[6%1]3 
GETNEXT « POLISH 
END GETNEXTS 
BOOLEAN SUBROUTINE DIMENSTONS 
BEGIN COMMENT TRUE FOR SINGLE DIMENSIONED CINCLUDES STRINGS)33 
STREAMCT©POLISH(XCH» O» CNC)tAe0)3 
BEGIN SleTs MleTs SteS3r"163 SKIP 2 SB3 
IF SB THEN ELSE TALLY e143 T # TALLY? 
END STREAM; 
DIMENSION ¢ THISTYPE OR POLISH: 
END DIMENSIONS 
SUBROUTINE CHECKPRESENCE3 
BEGIN COMMENT CALL ALGOL READ INTRINSIC TO 
AWAIT TOP BUFFER BEING PRESENT? 
BSIZE « POLISHCMKS» O# 1s FILXs ALGOLREADD$ 
IF FIBC4S].0C8#4]510 THEN BSIZE «+ 9 ELSE BSIZE © BSIZE@13 
BSIZE « BSIZEx83 BUFF © CaFILK) ECFEI3 
END CHECK PRESENCE BIT; 
SUBROUTINE READITS 
POLISHCMKSs Os O» FILX» ALGOLREAD)3 
SUBROUTINE SETUPANDEXIT3 
BEGIN FIRC21):=QUFF&BSIZEC183 S810 leiC29ea741)3 PCXIT)3 END3 
SUBROUTINE SCAN3 
BEGIN COMMENT GENERAL@PURPOSE SCANNER =" CHARACTER AT A TIMES 
LOOKs IF BSIZE=0 THEN BEGIN READIT3 CHECKPRESENCE$ END} 
STREAMC(TesisRQUFFsNeIF BSIZE<63 THEN BSIZE ELSE 63°STOG)3 
BEGIN SI*BUFF$ CleCI+#STOG3} Go TO DEBLANKs _ 
COMMENT SWITCH ON WHETHER WITHIN STRING OR NOT? 


GNC? TALLY@TALLY4+13 OL¢LOC Is DS*LIT "on; 


NIleDI1+63 DSeCHRS GO TO EXIT3 
REBLANK: NCIF SC#" " THEN JUMP OUT TO GNC3 
—«oTALLY*TALLY#432 SI«Sr+193 
EXETS. NeTALLY$ BUFF eST3 
END STREAMS 
BSIZE ¢« BSIZE*PCXCH)3 COMMENT UPDATE COUNTS 
BUFF « POLISH; COMMENT UPDATE POINTERS 
IF P(nuUP)<O THEN COMMENT ONLY FOUND BLANKS 
BEGIN PCDELD3 
IF CBSIZE=O) AND GOTDIGIT THEN PC») ELSE GO TO LOOK; 
END? 
CHAR « POLISH) 
END SCAN ROUTINES 
BOOLEAN SUBROUTINE TESTCOLLECT# COMMENT PUTS CURRENT CHAR 
= INTO STRING AND UPDATES CHAR COUNTERSALSO DETECTS OVERFLOW: 
BEGIN 
STREAMCCHAR® NISCOUNTERSSCOUNTER4S12 STRING) Z% 
BEGIN SI #= LOC N3 SI 85 Sr=43¢% 
DI t= DI4N3 OS te CHRZY 
END STREAM#% 


08703810 
08703820 
08703900 


08704000 


08704100 
08704200 
08704300 
08704400 
08704500 
08704600 
08704700 
08704800 
08704900 
08705000 
08705100 
08705200 
08705300 
08705400 
08705500 
08705600 
08705700 
08705800 
08705900 
08705950 
08706000 
08706100 
08706200 
08706300 
08706310 
08706320 
08706400 
08706500 
08706600 
08706700 
08706800 
08706900 
08707000 
08707100 
08707200 
08707300 
08707400 
08707500 


08707600 


08707700 
08707800 
08707900 
08707920 
08707940 
08708000 
08708100 
08708110 
08708115 
08708120 
08708125 
08708130 
08708135 
08708140 


AA AA HTH HH HA HA A A HHA A a tA a i 


0000:0 
0000!0 
0000t0 
0000:0 
000080 
000080 
000140 
0002%4 
0004:0 
000633 
0006t3 
0007%4 
000a8%0 
0008:0 
000983 
001033 


0014280 


001224 
001340 
0013%4 
001470 
001410 
001430 
0015193 
002084 
002340 
002334 
0024FO 
0025%2 
002610 
002933 
0030%0 
003030 
003310 
0037120 
003840 
003840 
003980 
003933 
O04 itt 
004910 
0042;2 
004983 
004440 
004432 
0045%4 
004610 
004810 
004810 
Q048%2 
004883 
O04agt0 
004910 
004930 
0054?1 
005433 
0052%2 
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TESTCOLLECT!=COUNTER=154% 
END TESTCOLLECTI4% 
SUBROUTINE FREEREADS 
BEGIN COMMENT READS AND STORES NEXT DATUMs DOING APPROPRIATE 
CONVERSIONS. HANDLES STRINGS AND NUMBERS» AND 
ACCEPTS A VARIETY OF FORMATS} 
DECADES « E ¢ ESIGN « GOTDIGIT « NUMBER « STOG « 03 SCAN} 
IF CHAR="%s" THEN GO TO EXIT; 
IF THISTYPE THEN GQ TO STRUNG3 
GOTDIGIT * 13 
IF CSIGN ¢ CHAR="=") OR CHARS"+" OR CHARS"&" THEN SCAN? 
IF GHAR?9 THEN GO TO DECIMALS 
DO BEGIN NUMBER « LOXNUMBER+CHARS SCAN} 
END UNTIL CHARD9;3 
IF €HARS"." THEN 
BEGIN SCAN 
PASTPOINT!?:: WHILE CHARS9 DO 
BEGIN NUMBER © 1OxNUMBER+CHAR? 
DECADES ¢ DECADES+13 SCANS 
END ENDS 
IF CHAR="@" OR CHARS"E' THEN 
AT#: BEGIN SCANS 
IF CESIGN © CHARS") OR CHAR#*+" OR CHARS"&" THEN SCAN} 
IF CE ¢ CHAR)>9 THEN GO TQ ERROR3 SCAN; 
WHILE CHARS9 DO BEGIN E ¢ LOXE+CHARS SCAN3 END 
IF ESIGN THEN E © “E3 
END} 
WHILE CHAR#™s™ DO SCAN} 
PCNUMBERs ESDECADESs» POTCABSCPCDUPII]s» XCH)3 
IF PC(DUP)5Q THEN PCDELs DEL) 
ELSE IF P<O THEN P¢/) ELSE PCx)3 
IF SIGN THEN PCCHS)$ PCEADDRESS]» «)3 
GO TO EXIT3 
DECIMALS! IF CHARs"™." THEN BEGIN SCANS 
IF CHARS9 THEN GO TO PASTPOINT ELSE GO TO ERROR$ ENDS 
NUMBER «© 13 
IF CHAR=S"@" QR CHARS"E" THEN GO TO ATS 
ERROR: COMMENT ERROR TERMINATE = INVALID INPUT DATUM3& 
POLISHCC#41)5 265 COM)3% 
STRUNG?’ COMMENT COLLECT STRING ITEMs% 
COUNTERPS"CSTOGIS1)3% 
STREAMCSTRING)# DSts16 LIT" "3 ¥ BLANK STRING 
IF CHAR =""". THEN GO QUOTEDSTRINGS& 
WHILE (CHAR NEQ * * AND CHAR NEQ 5") 
DO IF TESTCOLLECT THEN GO ERROR ELSE SCANS4% 
GO TO SETCOUNT:% 
QUOTEDSTRING!? 
SCANS IF CHARS"™"" THEN GO SETCOUNTS% 
IF TESTCOLLECT THEN GO ERROR ELSE GO QUOTENSTRINGI2 
COMMENT CONVERT COUNTER TO COLLATING SEQUENCE#2% 
SETCOUNT? 
IF COUNTER LSS 0 THEN GO ERROR % NULL STRING 
ELSE IF (COUNTERS=COUNTER@5) LSS 0 THEN COUNTERS =COUNTER+203% 
COMMENT PUT IN CHAR COUNT REQUIRED BY BASIC STRINGVARBS% 
STREAMCCOUNTER* STRING) 5% 
BEGIN SItSLOC STRINGS SI82SI1 71; 
DIssNI+153 NSteCHRs% 


08708145 
08708150 
08708200 
08708300 
08708400 
08708500 
08708600 
08708700 
08708800 
08708850 
08708900 
08709000 
08709100 
08709200 
08709300 
08709400 
08709500 
08709600 
08709700 
08709800 
08709900 
08710000 


08710100 — 


08710200 
08710300 
08710400 
08710500 


08710600 — 


08710700 
08710800 
08710900 
08711000 
08711100 
08711200 
08711300 
08711400 
08711500 
08711600 
08711610 
08711700 


08711800 | 


08711900 
08712000 


08712100 — 


08712200 
086712210 
08712300 
08712400 
08712500 
08712600 
08712700 
08712800 
08712810 
08712900 
08712920 
08713000 
08713010 


AA HAHAHA A A HHH Ht st ss ts st a tt st st st a ss ss 


005233 
005343 
005410 
0054:0 
005470 
0054!0 
O084to 
0058:0 
005934 
0060814 
0064150 
006640 
006734 
007050 
0074214 
007280 
0074:0 
007544 
007720 
007930 
007982 
008474 
00830 
008840 
009480 
0095632 
009784 
OO97%4 
O100%2 
010232 
O10gty 
010633 
0108? 
010a%3 
0141440 
0112%3 
0113%2 
01160 
011620 
011720 
O11720 


O11832 


012433 
012330 
O124%4 
0128%2 
012980 
012930 
OL31%4 
013330 
01330 
013340 
013323 
013783 
013733 
013813 
OL3q31 


END STREAMS 
GOTRIGIT#=13 STAOGH=O3% 
IF GHAR NEG "5" THEN DO SCAN UNTIL CHAR=", "3% 
EXITS3 
END FREE FIELD READ ROUTINES 
COUNT ¢. TYPES,(1!6]3 READSTMT ¢ TYPES, [468133 
FILX © *CPOINTER © 41 INX CERCWIRRCWEFTCI)): 
FILXCNOT 4] « *¢€4 INX PQINTER)3 FIB © FILXENOT 213 
POINTER © 2 JINX POINTERS 
IF FIBLS]404382]42 THEN POCMKS» Os 29 FILXs ds ALGOLSELECT)3 
IF CEtsF1B04),0884])210 GOR E=13 THEN FIBE20)#s0 
FLSE IF FIBL20) NEQ O THEN PCFILX»8911eCOM)3 
IF (BUFF © (CE © FIB£21)).£30%18)) = 0 
THEN CHECKPRESENCE ELSE BSIZE ©« EsliB:1013 
IF NOT TYPES THEN GO TO NORMAL} 
Do BEGIN 
POLISHCMATRIX © GETNEXT)3 
TF DIMENSION THEN 
BEGIN COL © THISTYPE+12 ROWLENGTH « MATRIX,.[8t10]3 
DQ BEGIN 
ADDRESS ¢ CMATRYEXCCOLII3 
FREEREAD?# 
END UNTIL CCOL © COL+THISTYPE+1)e@ROWLENGTH3 
END ELSE BEGIN 
; NUMROWS «© MATRIX,.(8341073 
ROWLENGTH © C*¥LMATRIXEROW © 131),£881013 


% 
3 


00 BEGIN 
MATRIXROW © *(MATRIXCROWI]I3 COL «+ 13 
DO BEGIN 
ADDRESS «© fMATRIXROW( COLI]; 
FREEREADS 


END UNTIL CCOL « COL41)2ROWLENGTH3 
END UNTIL CROW «© ROWs1)=NUMROWS3 
END3 
END UNTIL COUNT#O3 
SETUPANDEXITS 
NORMAL? 
DQ BEGIN 
ADDRESS ¢« GETNEXT3 
FREEREAD3 
END UNTIL. COUNT=03 
SETUPANDEXIT3 
END BASIC INPUT ROUTINES 


TRI III IGIIISI II IO IGIOIGIGISI II IIGIDICIOI III III I IOI III TO te 
PROCEQURE MATRIXDIDOLERCAs Bs Cs» TYPE)3% MAT ARITH INTRINSIC 


08713020 
08713100 
08713110 
08713200 
08713300 
08713400 
08713500 
08713510 
08713520 
08713600 
08713610 
08713620 
08713700 
08713710 
08713800 
08713900 
08714000 
08714100 


08714200 


08714300 
08714400 
08714500 
08714600 
08714700 
08714800 
08714900 
08715000 
086715100 
08715200 
08715300 
08715400 
08715500 
087145600 
08715700 
08715800 
08715900 
08716000 
08716100 
08716200 
08716300 
08716400 
08716490 
08716500 


08800000 
08800050 


START OF REL SEGMENT? DISK 


VALUE As % RESULTANT MOM 


Bs, % ARG 1 MOM OR SCALAR VALUE 
C3 % ARG 2 MOM 


ARRAY ACels Ble) Cl*]3 
INTEGER TYPES 


Fe I TOI IR IOI III IOI IO TOR III GR III IOIOI III IOIGIGIGIGII IOI IOI IOI a I ISI Hi ds 


08800100 
08800110 
08800120 
08600200 
08800300 
08800310 


wn 
a sts at a ss Ht 


013933 
014030 
014432 
OL45%4 
014524 
014684 
015522 
015830 
016234 
0163%2 
016730 
017130 
017433 
017683 
0168083 
018432 
018122 
O183%2 
018550 
018831 
018831 
0189%4 
019070 
049243 
O193%4 
0149423 
019730 
019740 
019910 
019910 
0200130 
020420 
020331 
020510 
02052 
020673 
O20810 
020810 
O20at0 
0209%2 
021110 
O2i2%4 
021340 
ZEs O214 


7 O00oT0 


T 0000!0 
ADDRESS = 
000080 
0000%0 
000010 
000030 
0000!0 
000010 


ee 


WORDS 


00606 


e 


BEGIN REAI, SCALE = B3 
INTEGER Is 


ARRAY AROWCL#1]» 
BROWC «)» 
CROWE*]3 

BOOLEAN SINGLE} 

LABEL ERROR» 
DIMERRs #4 
CHKST» 
CHKSIZE»s 
NORMAL» 
SCALEFACTOR? 

DEFINE SF 3 [8810]#3% 


BOOLEAN SUBROUTINE DIMENSIONS % 


BEGIN COMMENT TRUE FOR SINGLY*DIMENSIONED MATRIX3 
STREAMCTS=PCOXCHs O» CNCIIEA250)3 
BEGIN SIt#Ts DIFaTs STseSI"163 SKIP 2 SBF%B 
IF SB THEN ELSE TALLY22#13 TSsTALLyY3 
END STREAMS 
DIMENSION. $= POLISH? 
END DIMENSIONS 
COMMENT «© & Woe & oe & eo ek w & START OF CODE * & & ee He ok we we & Hp 
I ts Jt Le POLISHCCROW t= C)3% 
IF CSINGLE ¢= DIMENSION) THEN 
BEGIN COMMENT ROW VECTOR CASE3% 
LAST] 33 23 LASTJ #2 CVSE3% 
IF NOT POLISHCAROW tsAe DIMENSION) THEN GO ERRORS % 
IF TYPE = 2 THEN GO CHKSI3 & 
IF POLISRCBROW t= By» DIMENSION) THEN 
IF LASTJ = BROW.SF THEN GO CHKSI3% 


FRROR: COMMENT NON CONFORMAL ARGUMENTS? 
: POLISH((*50)» 269 COM)s % 
CHKST: COMMENT CRECK DIMESION BOUNDS; 
IF LASTJ GTR AeSF THEN 
DIMERRs COMMENT DIMESION SIZE ERRORS 


POLISHCE™72)5 26% COM)F% 


END ROW VECTOR CASE ELSE 
BEGIN COMMENT MATRIX CASES% 


G 
CHKSIZES 


LASTI t= CaSF3 LASTY fs (#0013712 ,5F3% 
IF POLISHCAs DIMENSION) THEN GO ERROR; % 
IF TYPE = 2 THEN GQ CKKSIZE3% 

IF NOT POLISHC(CB*DIMENSION) THEN 

IF LASTI = BeSF THEN 

IF LASTJ = C*#{£BL133),SF THEN GO CHKSIZE3% 
0 TO ERROR3% 

COMMENT CHEK DIMENSION BOUNDS3% 

IF LASTI GTR A,SF OR 

LASTJ GTR C*f£ACL1732,08210] THEN %&% 

GO TO DIMERR3 &%% 


END MATRIX CASE3% 


NORMAL 83 
O00 BEGIN 


IF TYPE = 2 THEN GO TO SCALEFACTORS %% 


IF NOT SINGLE THEN 


08800400 
08800500 
08800600 
08800700 
08800800 
08800900 
08801000 
08801100 
08801200 
08801300 
08801350 
08801355 
08801360 
08801400 
08801500 
08801600 
08801700 
08801800 
08801900 
08802000 
08802100 
08802200 
08802300 
08802400 
08802500 
08802600 
08802700 
08802800 
08802850 


08802900 


08803000 
08803050 
08803100 
08803200 
06803300 
08803310 
08803400 
08803500 
08803510 
08803600 
08803610 
08803700 
08803800 
08803900 
08804000 
08804100 
08804200 
98804300 
08804310 
08804400 
08804500 
08804600 
08804700 
08804800 
08804900 
08805000 
08805100 


AAA AHHH A A 4g Ht 9 a FH Ht A A st a a a we 


000070 
00000 
900010 
000070 
0000%0 
0000%0 
0000!0 
000010 
000Ggto 
000010 
0000%0 
o000a!0 
O0o00t0 
00000 
000010 
0000:0 
000080 
000140 
0001t0 
000243 
0003373 
000510 
000534 
000529 
000533 
000523 
001081 
OOL1%2 
O001P%0 
OO1aSs 
001642 
001753 
002030 
0022!2 
0022%2 
0023!%2 
0023%2 
002530 
0028%2 
002632 
O026t9o 
002730 
0030%4 
003213 
003470 
003631 
003814 
004110 
004432 


(00442 


004310 
0045%t0 
004533 
0045383 
004710 
004710 
004710 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee. 


BEGIN AROw s= *CACIJ]3 BROW t= *(BLII13 
CROW t= *(CfTII3 yy ta 43 
END3 
IF TYPE=O THEN 
ts DO AROW{J] &= BROWELYI+PCCROWLC UIs XCH) 
UNTIL CJ ¢* Jt) SL ast 
ELSE 
#t OO AROWLJ) t= CROWEJ]=PC(BROWL JI» XCH) 


UNTIL (J *% J#2)sLaStTy; 
~ COMMENT NOTE FANCY WAY OF SAYING A=BeC3 
END UNTIL CI 3 = Tei =LASTT3 
PCXIT)3 
SCALEFACTORS: 
DO BEGIN 
IF NOT SINGLE THEN 
BEGIN AROW t= *CACIJ]$ CROW t= wfCCII]3 ENDS &% 
._ IF SCALE =. 4 THEN © &% 
BEGIN’ STREAMCFt=CCROWL LI] DeNteLASTustis 
Tr=PCOUP).036%63,DES 2 CAROWFiI1393  &% 
REGIN SItsr3s TCOSt=32 wOSs OS!=32 wOS)s &% 
DS r= N WOS &% 
END STREAMS 4&4 
END ELSE. #2 
BEGIN J 82 13 4% 
tt DO AROWELJ] t= CROWLYIxPCSCALEs NOPs XCH) %% 
UNTIL Cw 25 J+ sLASTI &% 
ENDS %% . 
END UNTIL CI 2= T+) =LASTIS 4% 
END. MATRIX DIODLERs 9 2% 


FTI II IOI ICICI IOI OI I IG OIGI IO III III IOI OI I II IOI IR ted 
PROCEDURE TRANSPOSE(AsB)3 %%44% MATRIX TRANSPOSE %%2% 


08805200 
08805300 
08805400 


08805500 


08805600 
08805700 
08805800 
08805900 
08806000 
08806100 
08806200 
08806300 
08806400 
08806500 
08806600 


08806700 
08806800 


08806900 


08807000 © 


08807100 
08807200 
08807300 
08807400 
08807500 
08807600 
08807700 
08807800 
08807900 


08808000 


08900000 
08900010 


START OF REL SEGMENTS DISK 


VALUE A»B3 LES INTRINSIC LBKS 
ARRAY AC*]» % MOM DESC FOR RESULTANT MATRIX OR ROW MEGTOR 
Bre]s % MOM DESC FOR ARGUMENT * 
eRe etek Si ecacucineshsagu as siacnad cease cinesueaveais 
BEGIN LABEL ERR50sERR72,-NORMALsPLACEs TRANSPOSEITS% 
INTEGER Lada LAST Isl AST 3% 
ARRAY ROW(L#)3% 
DEFINE SFscat10) 43% 
COMMENT THERE ARE THREE SPECIES OF MATRIX TRANSPOSITIONS 


| rs ee ROW INTO COLUMN 

% 2. COLUMN INTO ROW 

% 3. MATRIX INTO MATRIX 

% IN THIS CASE TRANSPOSITION MAY BE DONE IN PLACE 


COMMENT TRANPOSITION WILL BE PERFORMED WHEN THE RESULTANT 
MATRIX DIMENSIONS ARE LARGE ENOUGH TO ACCOMMODATE 

THE DIMENSTONS OF THE ARGUMENT MATRIXsEVEN THO THE MATRICES 
MAY NOT BE MATHEMATICALLY CONFORMABLE3 & 


BOOLEAN SUBROUTINE DIMENSIONS 
BEGIN COMMENT TRUE IF SINGLY DIMENSTONEDS3 


08900100 
98900200 
08900210 
08900220 
08900300 
08900320 
08900400 
08900405 
08900420 
08900430 
08900440 
08900450 
08900500 
08900501 
08900502 
08900503 
08900504 
08900505 
08900510 
08900515 


T OO04742 
Y O05c0%2 
T OO052!%2 
T 005232 
T OOS 324 
T 005533 
7 005733 
T 005833 
T 0061323 
T 006423 
T #006413 
T O067:40 
T O0671%4 
T 006731 
T 006810 
tT 006812 
T .0074%2 
rT QO72%4 
T OO74?1 
T 607533 
T OO77E4 
T O0O7783 
T  O078t0 
T OO78t0 
T OO79%1 
T 008413 
T O084:3 
T 008413 
T O087i0o0 
I 


SIZE= 0088 


T OO000!t0 
T O00O!O 
ADDRESS = 
a000t0 
o000t0 
o000to 
000010 
0000!0 
0000!0 
00000 
000030 
000010 
000010 
0000f0 
000030 
000030 
000010 
000010 
000080 
000080 
o000t0 
0000!d 
000130 


ee ee ee ee ee a ee 


wORDS 


00609 


eocecscececeeceeeceoeeee eee eee 


STREAMCTSSPOLISHCXCHe Of COC I$ A8=0)3 08900520 T 000430 
BEGIN Sls=sTs OLIsTs STs=Sle163 SKIP 2 SB}. 08900525 fF 000233 

If SB THEN ELSE TALLYss15 TseTALLY; 08900530 T 0003383 

END STREAM3 08900535 fT 000530 
DIMENSTON #3 POLISH? 08900540 fT 90005!%4 

END3 08900545 T 0005%9 
Keke tkeekeee START OF CODE seek a tithes 08900549 T 000533 
POLITSHCA)3 IF DIMENSION THENS 08900550 T 000533 
BEGIN COMMENT 1°"0IM RESULTANT*ALLOW 2, ONLYS 08900555 7 0009%0 
POLISH(B)3 IF DIMENSION THEN % ERROR » ROW TO ROW 08900560 T 0009%2 
BEGIN ERRSQtPCC™50)9262COM)3% 08900600 T 0601140 
ERR72: PEC™72)926eCOM)34 08900605 yr OO1eta 

END ERRORS#4 08900607 fT 001382 

IF CLASTI#PS(*£8011)),S5F) NEG 2 THEN GO ERRSOS2 08900610 ~ 0013:2 

IF CLASTJU?#B,SF) GTR ASF THEN GO ERR7232% 08900630 r 001684 
Tisi? ROW:sA3% 08900650 TF O019%2 

GO TRANSPOSEIT?% 08900700 F O024%4 

END 1 DIM RESULTANT ELSE 08900710 T 002433 
BEGIN COMMENT 2=01M RESULTANT» ALLOW 1.2 OR 3,3 08900750 T 0021483 
POLISH(B)s IF NOT OIMENSION THEN GO NORMALSS 08900800 fT dO022%4 

IF CefACL1I]2,SF NEQ@ 2 THEN GO ERRS5SO3% 08900810 7 O024%2 

IF CLASTJ?#8,SF) GTR AeSF THEN GO ERR72;3% 08900830 Tf 002623 

$3 DO POLISHCBCU]+*CACJ]] 21, CDC»STD) UNTIL CUseJtL BLAST UI2 08900850 tT 0030:0 
POLISHCXIT)4% 08900870 7 00341 

END 2 OIM RESULTANTS2 08900890 7 OQ034%2 
NORMAL? 08900900 T O034%2 
IF CLASTI2S¢*£B013)),SF) GTR A,SF 08901000 fT 003432 

OR CLASTU##B,SF) GTRE*LAL131).SF THEN GO ERR723% 08901010 T 003684 
Ttet3 IF AsCFFI=B.0FF1 THEN GO PLACES % TRN IN PLACE 08901020 T O044%2 

$3 DO BEGIN ROW: s*faAlyy13% 089011900 T 004520 
TRANSPOSEIT?: Jt=13% 08901110 tT O046%14 
tt DO PC*EREJ]]» I, COCe CROWCJJ]5 ©) UNTIL CU © Jet) BLASTV3 08901200 7 004730 
END UNTIL CIT © T#1 2 L ASTI3 08901300 fT 0051314 
POLISHCXIT)4 08901400 fT 0053%2 
PLACES: IF LASTI#2 THEN POLISHCXIT)3 08901500 T Q0533%3 
33 DO BEGIN ROW «© *CALTIJ3 J © Yel 08901600 T 005582 
3% DO PCROWLJ], *CALJIJ» IT» CDC» DUPs LOD» EROWD J] ]5 es ©) 08901700 T OQO05a%2 
UNTIL €J © Je BLAST 08901800 Tr 0062%4 

END) UNTIL CI © IT+t)sLaASTr#13 08901900 T 006432 

END TRANSPOSE ROUTINE; 08902000 rT O067!%4 
SIZE= 0068 


TERE CSCCCCLCCCLCC CCL. CCL PP CPC CP RCPS eee ee eee eee eC PP Pee SS | 099000000 T O000%0 


PROCEDURE MATRIXMULTIPLYCAsBeC)3 22% MATRIX MULTIPLICATION %&2% 09000100 rt 000080 
START OF REL SEGMENT3 DISK ADORESS = 
VALUE AsBeCs %¥Z% INTRINSIC %2%% 09000200 T oO000t0 
ARRAY AT*]s % RESULTANT MAT OR ROW VECTOR MOM 09000300 tT 9O000!%0 
Beweds % ARG@=1 " 09000400 T 000050 

Cr*i3 %@ ARG#2 " 09000500 ry 0000%0 
ee II IO II III II II II IOI IOI IOI I IOI I IO IOI III II tek te ie ar 09000600 y 0000:0 
BEGIN 09000700 tT 0000%0 
LABEL ERRSOsERR72sD0TPRODUCT*»CROSSPRODUCTS% 09000800 T 000010 
ARRAY AROWLal], & 09000900 tT Oda000f0 
BROW(Cel]s & 09001000 T O000!0 


WORDS 


00612 


sete, Beta Mes og, sat ie, De aie Sind OA ag 2 cos yetiee re pps 


CROWL*13% 
INTEGER Te Je Keo LASTI*LASTUsLASTKI% 
DEFINE SF = £8810}#» X = BROWHSS 
DEFINE SETTOSAVEBITCSETTOSAVEBITI)=SItsSETTOSAVEBITI3 
Srt=St-163 SKIP 2 SB} IF SB THEN DStsSET FLSE DSIt=RESETH3 
LABEL RRM»sMRM»sMMRe MMM; & 
SWITCH SWL s=ERR50eRRMSERR722ERR7QSERRIOe 
MRM »MMR»MMM 3% 
REAL SUBROUTINE DIMENSTIONS3 
BEGIN COMMENT SETS BIT IN SWVAL TO INDICATE MAT3% 
STREAMCSWVALS=HOCALSSLALO] »BLL=CBlCOVI-CciteCClOl} 43% 
BEGIN OI¢*_LOC SWVALS SKIP 45 DB3% 
SETTOSAVEBITCA1)3 SETTOSAVEBITC(B1)3 SETTOSAVEBITCC1)3 
END STREAM3% 
DIMENSTONS!:=POLISH3% 
END PIMENSTONS3% 
BOOLEAN SUBROUTINE OIMERR3% 
DIMERRIESC(CLASTI GTR AeSF) OR CLASTY GTR AROW,SF)3% 
COMMENT #eaaweaeee START OF CODE www ek et 
LASTI?=B.SF3 LASTUt=(CROWS=*(CL£1]1),SF3 % 
LASTK#=C.oS5F3 AROWts*CACIt21))]3 BROWs=*(BC1)I3% 
GO TO SWLEDIMENSIONS]32% 
MMM$ COMMENT ACA1LSAZ)2B(B12B2)*C(C1,C293% 
IF LASTK NeQ@ BROW,SF THEN 
ERRSO!f COMMENT NON@CONFORMAL ARGUMENT MATRICES#% 
POLISHCC*50)2262CQMI5% 
IF DIMERR THEN 
ERR723 COMMENT RESULTANT BOUNDS TOO SMALL = DIM ERR3Z% 
POLTSHCC™72)2269COM)3% 
IF LASTKS2 THEN GO CROSSPROOUCT ELSE GO DOTPRODUCT32 
ts DC BEGIN 
BROWSs*(BLIIJ13 AROWS=*CACIII3% 
DOTPRONUCTs Js=14% 
$$ 00 BEGIN 
Kt=43 POLISHCOI3% 
i! NO PC#COEKI]] +JsCOC*BROWLK1»MULs ADD) 
UNTIL CK2SK41) SL ASTKIZ 
POLISHC CAROWCJ)]+ STOI3% 
END UNTIL (Jtad#1 =LASTUs% 
ENP UNTIL CISSI1+1)5LASTIZ% 
POLISHCXIT) 3% 
RRM? COMMENT ACAL)ISBCB1)*CCC14C223% 
AROWt=A3 % 
MRM$ COMMENT ACA1sA2)5B(B1)*C(C19C2)3% 
IF LASTK NEQ (BROW!=B),SF THEN GO ERR503 % 
LASTI:s23 IF DIMERR THEN GO TO ERR723% 
GO TO. pOTPROODUCTsY — . 
MMR: COMMENT ACA1sA2)=B(B151)*C(C123% 
IF BROW.SF NEQ 2 THEN GO TO ERRSO3S 
LASTJUS=sLASTK$ IF DIMERR THEN GO TO FRR723% 
poee tee 
CROSSPRODUCT? 
Qo BEGIN 
ARON t=4CALII23 Jays % 
SPOLISHC*CBE IJ ]515COC)3% 
33 P(XsCROWDCJJ/MULsfaAROWeJJ)-S8TD) 
UNTIL CUteJtlSLASTUS% 


09001100 
09001200 
09001300 
09001400 
09001500 
09001600 
09001700 
09001800 
09001900 
09002000 
090902100 
09002200 
09002300 
09602400 
09002500 
09002600 
09002610 
09002620 
09802700 
09002710 
09002800 
09002900 
09803000 
09003100 
09003200 
09803300 
09003400 
09003600 
09003700 
09003800 
09004000 
09004100 
09004200 
09504300 
09004400 
09004500 
09004600 
09004700 
09004800 
09004900 
09005000 
09005100 
09005200 
09005400 
09005700 
09905800 
09005900 
09006100 
09006200 
09006300 
09006600 
09006700 
09006800 
09006900 
09007000 
09807100 
09007200 


a a a as ts ta st 


000020 
000080 
000020 
0000%0 
0000%0 
0000%0 
000030 
0000!0 
000080 
oog01%0 
0004%0 
0003%2 
0004°0 
001010 
O010rt 
0010%e 
001083 
0011410 
001483 
001433 
002150 
0025%2 
0034133 
003443 
0033%4 
0033%3 
0034%3 
0036:0 
00362 
0037%2 
O039%1 
0040t0 
O04ate 
OO43t4 


004470 - 


004510 
OO47%4 
004982 
0050%4 
0052%2 
005493 
005510 
00550 
0056?0 
0056#0 


005882 


006023 
006481 
O061%4 
006334 
006583 
006643 
006623 
006770 
006920 
007083 
0073%0 


© 


PSIT+1 I=L ASTIZ% 
PLY34 


PROCEDURE INVERTCA* B)s 


VALUE 
ARRAY 


09100000 


START OF REL SEGMENTS DISK 


Ay B 
AC¥ls Blwl3 


BEGIN REAL BIG» 


NEF IN 


NLIAG = BIG; 
E EPS = COMMENT 10@=133 0.000000000000143 


INTEGER Ts 


REAL 


ARRAY 


N4? 

BLOCKCOUNTER = 162 
BLOCKROUTINE = 45; 
AROWL*], 

cCOPY[*I>» 
PLACEHOLDERE +]; 


DEFINE MOVEWORDS = NiCDS*32 WOSs DS*32WOS)3 NSeN WOSHS 
SUBROUTINE SWAPROWS3 


BEGIN 


ENA 


SSTREAMCAC*CALII] ,Be«LALK2Z] JoNeNeLaeNlePC DUP) »£ 3626 ]-COPY 23 
BEGIN SleAsJ MOVEWORDS} 
SI*B} DIeAS MOVEWORDS3 
SI*+COPY3; OJ+Bs} MOVEWORDS? 
END SWAPROWS3 
SSTREAMCTIESCALOJ I] 2 7122(8£0)))3 
BEGIN SI3:=sTs DlsaTs STesSiI"163 SKIP 2 SB} 
IF SB THEN 
BEGIN SytsTi3s DytsT1s SrteSy"i163 SKIP 2 SB3 
IF SB THEN ELSE TALLY#=43 
END ELSE TALLY?=13 
TSSTALLY3 
END STREAM; 
IF POLISH THEN POLISHCC"50)» 26% CQM)3 
IF CN © Ae l8810])40%7A0111),082810) THEN PCC™54)» 265 COM) 
N1 © (N © N@4)"13 
IF AsCFFIZB6CFF1] THEN 
BEGIN IF BelBI10]4N41 OR CHLBE1772,068F1012ZNe1 
THEN POLTSH(("50)» 26% COM)3 
IF NiSO THEN PC#CBE LJ)» 1, COC» *CALLI]» 1s COCs ¢) ELSE 
FOR I*4 STEP 41 UNTIL N DO 
STREAMO(Ns NiePCDUP), £3626] See BEI] ]» Dewfaci3))3 
BEGIN SI«Ss SIleSI+#83 DleD} OL*NI+83 MOVEWORDSS ENDS 
END} 
IF N#0 THEN 
POLISHC*LACLII]» 1.2 CDC» DUP» LOD» 1* XCHs /s XCHs #2 XIT)3 
BLOCKCOUNTER ¢ BLOCKCOUNTER+13 
POLISHO(MKS» CPLACEHOLDERLPI]]» Nets tf» 19 O» BLOCKROUTINE)3 


09100100 
09400200 
09100300 
09100400 
09100500 
09100600 
09100700 
09100800 
09100900 
09101000 
09401400 
09101200 
094101300 
09101400 
09101500 
09101600 
09101700 
09101800 
09101900 
09102000 
09102100 
09102200 
09102300 
09102400 
09102500 
09102505 
091402510 
09102515 
091402520 
09102525 
09102530 


09102535 


09102540 


09102545 


09102600 
09102700 
09102800 
09102900 
09103000 
09103100 
09103200 
09103300 
09103400 
09103500 
09103600 
09103700 
09103800 
09103900 


AH AANA HA AHA A Ht ta A tt tt at a Ht Ht 


yr ad00td 
ADDRESS «= 
000010 
000010 


00c0to 
ooodta 
o00nt0 
o000t0 
000030 
00000 
elelelen fe) 
oxerelun as) 
0000:0 
olelereR ae) 
000080 
000040 
000010 
0000%0 
0000!0 
eleleren Ay) 
0000:0 
000430 
000540 
0007t0 
0009%1 
001122 
004240 
001633 
001733 
0018%4 
0019214 
002081 
002083 
002430 
002431 
002233 
O027%1 
0029%2 
00343 
003583 
0038%4 
O082%1 
004410 
004720 
0052314 
0052414 
005310 
0056%3 
005830 


000080 


wORDS 


00615 
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BLOCKCOUNTER « BLOCKCOUNTER+13 
POLISHCMKSs CCOPYLPI]]5 NtlotslstsBLOCKROUTINE); 
COMMENT REQUCE THE MATRIX BY ROW PIVOTS TO TRI™DIAGONAL FORM 
FOR I*1 STEP 1 UNTIL N DO 
BEGIN II © (K2 © T)13 BIG ¢ 03 
FOR Je] STEP 14 UNTIL N-DO 
BEGIN AROW « *fACUI]]4 POLISHCO)3 
FOR Ket STEP 1 UNTIL II DO 
POLISHC*CALKI] 1» I» COCs AROWEKI]» X%- =)3 
POLISHCARQWEIJs +)3 
IF POLISHCEAROWLIJ]» SNDs SSP» DUP)>BIG THEN 
POLISH(,BIG? ¢» J» «K2* ©) ELSE PCDEL); 
ENDS 


IF BIGSEPS THEN POLISHC ("5722 26% COM)4% NEARLY SINGULAR 


IF CPLACEHOLDEREI] © K2)#1 THEN SWAPROWS} 
DIAG © POLISHCCAROW © *[ALI1]})» Is COC) 
FOR Jel+4 STEP 4 UNTIL N 90 
BEGIN POLISH(O)3 — 
FOR Key STEP 1 UNTIL II 00 
POLISHC*CALKI]}]» Js COCs AROWEKIs xX» =)} 
POLISHCAROWELJJ]+ #2 DIAGs /* LAROWLJI]]2 ©€)3 
END ENDS . 
POLISH(10* COM); COMMENT RETURN COPY ARRAY 
COMMENT INVERT LOWER TRIANGULAR MATRIX: 
FOR Tet STEP 1 UNTIL N DO 
BEGIN II ¢ I#13 DIAG © POLISHCCAROW © *fALII])» I» COC)3 
FOR J*1 STEP 14 UNTIL II Do 
BEGIN POLISH(O)3 
FOR Key STEP 1 UNTIL IZ Do 
POLISHC#LALKI] ]s Js COCs AROWEK]s xs ™)3 
POLTSHCDIAGs /» LAROWEJ])« «)3 
END} 
AROWELI] © 1,0/NTAG3 
END} 
COMMENT INVERT UPPER TRIANGULAR MATRIX} 
FOR ITen1 STEP *4 UNTIL 1 DO 
BEGIN II] ¢ I#13  AROW © *CALII]3 
FOR J«N STEP =141 UNTIL II DO 
BEGIN L © Jm13 POLISH(CO)3 
FOR KeII STEP 1 UNTIL L DO 
POLISHC#fACKI J» J» COCs ARQWEK]s x» *)3 
POLISHCAROWCJ]s CHS» +2 [AROWEJI)2 ©)3 
END END3 
COMMENT MULTIPLY UPPER AND LOWER HALVES TO PRODUCE INVERSE} 
FOR Ted STEP 1 UNTIL Ni DO 
BEGIN AROW © *CACIJ]3 
FOR J*1 STEP 4 UNTIL N DO 
BEGIN IF (K2.« J)SI THEN K2 © T4143 POQLISHCO)3 
FOR KeK2 STEP 1 UNTIL N DO 
POLISHC#CALKI]» Js COCs AROWEK]s xs +33 
IF T2J THEN POLISHCAROWEJ]> +93 
POLISHCCAROWE JI], ©)3 
END END? 
COMMENT EXCHANGE COLUMN ELEMENTS To ABSOLVE ROW PIVOTING; 
FOR JeN STEP =1 UNTIL 1 00 
IF (I ¢ PLACEHOLDEREJ1)4%J THEN 
FOR Kel STEP 1 UNTIL N OO 


09104000 
09104100 
09104200 
09104300 
09104400 
09104500 
09104600 
09104700 
09104800 
09104900 
09105000 
09105100 
09105200 
09105300 
09105400 
09105500 


09405600 


094105700 
09105800 
09105900 
09106000 
09106100 
09106200 
09406300 
09106400 
09106500 
09106600 
09106700 


09106800 - 


09106900 
09107000 
09107100 
09107200 
09107300 
09407400 
09107500 
09107600 
09107700 
09107800 
09107900 
09108000 
09108100 
09108200 
09108300 
09108400 
09108500 
09108600 
09108700 
09108800 
09108900 
09109000 
09109100 
09109200 
09109300 
09109400 
09109500 
09109600 


AHA HAH st a at st 9 a st a st HH A A tt 


0060%1 
006132 
006333 
0063%3 
006530 
006789 
0069140 
0070%2 
007220 
0076%2 
OO77 #4 
007910 
008142 
0083383 
0086:0 
008910 
009484 
0095%a2 
009523 
009870 
0102%2 
0104%2 
010754 
010743 
010723 
010980 
O11ete2 
O114to 
O1L4?4 
011540 
O119%2 
012033 
0123320 
0424%3 
012730 
012780 
0129%0 
013142 
013320 
O134%2 
013640 
0140:2 
014254 
0146:3 
014633 
0148!0 
OV4ore 
015020 
O15 384 
015410 
0158:2 
016082 
0161314 
016543 
016543 
0167%0 
O16a%2 


rr ee ee ee er ee er 


La eeepc poppe ninererameee 


BEGIN AROW ¢ *CACKI]; 


POLISHCAROWCIJ> 


ENDS 


POLISHC10» €OM)3 


END INVERT3 


CAROWLJ]2, DuPs LODs CAROWEIJ]s es «)3 


COMMENT RETURN PLACEHOLDER ARRAY 


PROCEDURE FORTRANFREEREAD? 


BEGIN REAL 


NAME 
REAL 


ARRAY 
REAL 
ARRAY 


BOOLEAN 


INTEGER 


PARL 

EQFL 

LISx 
DKADR 
FILX 
BLOCK 
ALGOLREAD 
SELECT 
JUNK 
ARRAYSTUFF 
LSTRN 
LISTYPE 
HOLTOG 
PQT 
FORTERR 


n tt 
a: 
nm 
. 


hun bn HH fh bho nH 
_ 
~~ 
» 


ARRYL #5 


FIBE*]4 


ARRAYTOGs 
COMPLEXTOGs 
DALTOGs 
QONE? 
ESIGN» 
GOTDIGIT» 
SEOs 
READREC, 
SIGNs 
STRINGTOG» 
TWODIMTOGS 


BSIZEs 
BUFF » 
CHARs 
COUNTER » 
DECADES,» 
Es 
INDEX» 
SIZE 
TYPES 


ADDRESS.» 
LISTADR = ARRY3 


NUMBER» 


FR Be 


Be BQ Oe BT BQ |e RE Fe Be RE BC 


Be FE FL af. 92 Fe |e FE RO 


ae 2e 


Ed 


reeinrcnetnn ear 
tne 
i intial 
st athena 


START OF REL SEGMENT? DISK 


PARITY “LABEL WORD" 
ENDTOFPFILE "LABEL woRDd” 
ACCIDENTAL ENTRY FOR LIST 
DISK ADDRESS 

FILE TANK DESCRIPTOR 
INTRINSIC INTRINSIC DESCRIPTOR 
NORMAL*STATE 170 INTRINSIC 
FILE STATUS INTRINSIC 

ANOTHER TEMPORARY 

USED BY LIST FOR ARRAYS 
INTERNAL LIST POINTER 

TELLS TYPE OF LIST ITEM 

FOR CHARACTER TRANSLATION 
POWERS*GF*TEN TABLE 

FORTRAN ERROR MESSAGE ROUTINE 


GLOBAL TEMPORARY ARRAY 
FILE INFORMATION BLOCK 


LIST ELEMENT WAS ARRAY NAME 
FIRST HALF OF COMPLEX NUMBER 
LIST ELEMENT DOUBLE TYPE 

FLAG FOR LIST EXHAUSTED 
EXPONENT NEGATIVE FLAG 

TELLS IF CHARACTER SEEN 

TRUE IFF FILE RAS SEQ NUMBERS. 
TRUE IFF SCANNER MAY READ A RECORD 
MANTISSA NEGATIVE FLAG 
CONTROLS SCANNER ACTION 

ON IF ARRAY 1S TWO#DIMENSTONAL 


NUMBER OF CHARACTERS LEFT IN BUFFER 
CURRENT BUFFER POSITION 

CONTAINS LAST CHARACTER SCANNED 
NUMBER CHARACTERS IN STRING 

NUMBER OF DECIMAL PLACES 

CONTAINS EXPONENT 

INDEX INTO ARRAY IF ARRAYTOG 

ARRAY SIZE IF ARRAYTOG 

TYPE OF LAST LIST ELEMENT 


HOLOS ADORESS TO STORE NEXT DATUM 
HOLOS RESULT OF CLISX] 


TEMPORARY NUMBER*HOLDER. 


09109700 T 
09109800 T 
09109900 T 
09110000 T 


09110100 T 
S1ZE= 0479 WORDS 


pe een ee Ee tte si 
09200000 7 o00010 
ADDRESS = 90621 
09200100 T O000!t0 
09200200 rT oc000I0 
09200300 T 000030 
09200400 T 0000!0 
09200500 fr od000%0 
09200600 T O000%6 
09200700 tT 9000030 
09200800 tT O0000%0 
09200900 fT 0000%0 
09201000 T 0000%0 
09201100 T 000030 
09201200 T OG000!0 
09201300 T O0000!0 
09201400 YT 000030 
09201450 fT 000080 
09201500 T O00010 
09201600 tT 000030 
09201700 fT 00080 
09201800 rT 0000!0 
09201900 tT oc000!0 
09202000 T 0000%0 
09202100 T oOdd0t0 
09202200 T 000080 
09202300 T O000%0 
09202400 T O00080 
09202450 T O000%0 
09202460 7 O000!0 
09202500 T O000:%0 
09202600 rT O0000!%0 
09202700 T 000030 
09202800 T 000030 
09202900 T 000030 
09203000 T 0000!0 
09203100 tT dO000%0 
09203200 fT oc000%0 
09203300 T 0cd000t0 
09203400 tr 0000%0 
09203500 fT oO000%0 
09203600 tf 000010 
09203700 tT 000030 
09203800 T 0000!0 
09203900 T 000030 
09204000 T 0000%0 
09204100 T O000!0 
09204200 T 0000!0 


017040 
OL7194 
017333 
0178714 
017843 
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LABEL 


SWITC 


DEF IN 


DEFIN 


SUBRO 
BEGIN 
END 


SUBRO 
BEGIN 


END 


REAL 
BEGIN 


END 


NUMBERL» NUMBERH 3 % OBLPREC NUMBER BUILT BY FREEREAD, 


LISTSTART+ 
LISTEXITs» 
LOOK» 
NUMERICAL» 
PASTPOINT» 
BYE» 

SCNR» 

ATs 
NECIMALs 
ERRORs 
STRINGs 
STRUNG? 
GETCOMMA, 
LOGICAL» 
EXIT; 


H SWISH = EXITs NUMERICALe STRINGs NUMERICAL» 
LOGICAL» NUMERICAL» NUMERICAL3 
E INTEGERYV = 18s 
RPEALV = 3» 
LOGICALY = Ute 
NOUBLEV = SH, 
COMPLEXY = 683 
E KIND = CFIBL4],08241)#, 
DATATYPE = (LISTYPE.C4424))#» 
TWQOD = (LISTYPE.C38:1])#>s 
SIZEF = (33315)%, 
BASEF = (18915)4, 
TOD = (eFILX) #3 
UTINE CHECKPRESENCE3 


COMMENT GETS NEXT BUFFER FROM ALGOLREADS 
BSIZEeCPCMKSsDKANR? LeFILXsALGOLREADI™SEQ) x8 3 

BUFF $= 1[0D+C€33:15)3 

CHECKPRESENCE3 


UTINE READITS 
COMMENT ORDER NEXT RECORD READ FROM MEDIUMS 
PCMKSs DKADRs O» FILX» ALGOLREAD)3 
IF DONE THEN PCXIT)3 
IF Ip0.C2781] THEN PCXIT)3 
CHECKPRESENCE3 
READIT; 


SUBROUTINE NEXT3 

COMMENT GET NESCRIPTOR POINTING INTO AN ARRAYS 
IF TWODIMTOG THEN 

PC*CARRYLINDEX.C£3387]}]« INDEX.,£4028)» CDC) 
ELSE PCCARRYCINDEXI193 
NEXT es POLISH: 
NEXT TTEM INSIDE AN ARRAY3 


09204205 
09204300 
09204400 
09204500 
09204600 
09204700 
09204800 
09204850 
09204860 
09204900 
09205000 
09205100 
09205200 
09205300 
09205400 
09205500 
09205600 
09205700 
09205800 
09205900 
09206000 
09206100 
09206200 
09206300 
09206400 
09206500 
09206600 
09206700 
09206800 


09206900 


09207000 
09207100 


09207200 © 


09207300 
09207400 
09207500 
09207600 
09207700 
09207800 
09207900 
09208000 
09208100 
09208200 
09208300 
09208400 
09208700 


09208800 
09208900 


09209000 
09209100 
09209200 
09209300 
09209400 
09209500 
09209600 
09209700 


09209800 


ad a a a st ss tt a a a A AA A a A st A Ht Ht 


000030 
000030 
000080 
000010 
000030 
000030 
0000%0 
0000!0 
000030 
000020 
000070 
000030 
000030 
o00n!ta 
ogd0r0 
000080 
000020 
o000%0 
0000%0 
000020 
000030 
000020 
000080 
000020 
000080 
000030 
0000%0 
000080 
000020 
0000!0 
0000!0 
ekelelen Ee) 
000030 
000020 
000030 
co00to 
000120 
000130 
000333 
0005!1 
0005%2 
00052 
000680 
0006!:0 
000734 
O00Btt 
0010140 
0011380 
OO011%4 


OO11t4 


001210 
004240 
O012%4 
0015'0 
001650 
001684 
Q016%2 
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NE _LISTELEMENTS 
MENT GETS ADDRESS TO STORE NEXT DATUM, ANO 


NIDDLES CERTAIN TOGGLES AS REQUIRED 


LISTSTART? 


IF ARRAYTOG THEN. 
BEGIN ADDRESS 25 NEXT3 

IF. CINDEX t= INDEX+0BLTOG+1)2S1ZE THEN 

ARRAYSTUFF «ARRAY TOG*COMPLEXTOGeO 3 

GO TO LISTEXITS 
ENDS 
IF COMPLEXTOG THEN 
BEGIN ADDRESS $= CLISTADRE1]73 COMPLEXTOG t= O03 

GO TO LISTEXITS 
END3 
P(O)3 LISTADR t= CLISX]3 
COMPLEXTOGe(TYPECDATATYPE)=COMPLEXVS DBLTOG*TYPE=DQUBLEV 3 
IF ARRAYSTUFFZ0 THEN 
BEGIN 

- ARRAYTOGe13 PCLISTADReMEMCLISTADR,.£18215]3) 3 

SIZE«CINDEX*¢ARRAYSTUFF eBASEF )*#ARRAYSTUFFeSIZEF 3 
TWODIMTOGeNOT PeLQD»TOP)3; PCDEL) 3 
GQ. TO LISTSTART; 


END; 

ADDRESS ¢ ECLISTADR[O]]3 PCDEL); 
LISTEXIT? 
END GET NEXT LIST ELEMENTS 


SUBROUTINE SCANNER 3 
BEGIN COMMENT GENERAL PURPOSE SCANNER #* CHARACTER AT A TIME, 


LOOK: 


GNCS 


PURLOINED FROM BASICINPUT ROUTINE BY WWF4;3 


IF BSIZE=0 THEN READIT3 


STREAMC(C]8="1s BUFF? 
NesIF BSIZE<63 THEN BSIZE ELSE 63% STRINGTOG)3 
BEGIN SI?sBUFFs CIt=CI#STRINGTOG; GO TO DEBLANK3 
COMMENT BLANKS SIGNIFICANT WITHIN STRINGS; 
TALLYZ=TALLY4+13 DIts_LOc Is OSteLIT "on; 
Ol:201+63 DSt=CHR? GO TO EXIT; 


DEBLANK?: NCIF SCZ" " THEN JUMP OUT TO GNC 


EXIT: 


END 


TALLYS=TALLY+413 SIltesl+1)3 
NesTALLY; BUFF SsST3 
END STREAM# 
BSIZE 3:= BSIZEPCXCH)3 
BUFF t= POLISH; 

IF (CCHAR+POLISH) <0 THEN 
IF BS1ZEs0 THEN 
BEGIN 

IF GOTDIGIT THEN CHARS," 
ELSE IF READREC THEN GO LOOK 
END 
ELSE GO LGOK 3 
SCANNERS 


% UPDATE CHARACTER COUNT 
% UPDATE BUFFER POINTER 


SUBROUTINE LOGICALCOMPARE 3 


BEGIN COMMENT COMPARES LOGICAL TO «TRUE ose TRUsreTReraTer OR 
oF ALSE ee oFALS ee oFAL ap aFAat oka ; 
STREAMCCePCXCH) SCZ24COUNTER@1sCi©B8*COUNTERsE NUMBER) 3 


09209900 
09210000 
09210100 
09210200 
09210300 
092104090 
09210500 
09210600 
09210700 
09210800 
09210900 
09211000 
09211100 
09211200 
09211300 
09211310 
09211400 
09211500 
09211600 
09211700 
09211800 
09211900 
09212000 
09212100 
09212150 
09242300 
09212400 
09212500 
09212600 
09212700 
09212800 
09212900 
09213000 
09213100 
09243200 
09213300 
09213400 
09213500 
09213600 
09213700 
09213800 
09213900 
09214000 
09214100 
09214200 


09214250 


09214275 
09214300 
09214350 
09214355 
09214360 
09214400 
09214405 
09214410 
09214415 
09214416 
09214425 
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001632 
001720 


001730 
001780 
0017%0 
0017384 
001972 
002443 
002420 
O024t2 
0024%2 
002433 
002744 
002733 
002733 
002823 
003234 
003340 
003382 
003681 
003980 
0040%2 
004780 
004110 
004210 


004210 


004240 
0042%4 
O04as4 
004340 
004310 
0043350 
O045:0 
004630 
004980 
0050#0 
Q0050°0 
005440 
00541:3 
QOOS3ati 
005470 
0054%2 
005433 
0056!0 
0056t2 
0057 %2 
0054893 
0059314 
Q060!4 
006122 
O0062%4 
006224 
0062t2 
0062%92 
0063:0 
006330 
0063%0 
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e 


BEGIN 
ST*LOC NUMBERS ST*SI+C13 DI*LOC Cs DIeDI+E 3 
IF C2 SC=DC THEN IF SCS." THEN TALLY#13 C#TALLY 3 
END 3 

EeP 3 | 

END OF LOGICALCOMPARE 3 


SUBROUTINE SCAN 3 


SCNR! 


BEGIN SCANNER 3 

IF CHAR="/" THEN 
BEGIN READRECeO 3 
WHILE CHARZ"=" AND BSIZE>0 DO SCANNER; READRECe1 3; 
IF BSIZE=0 AND GOTOIGIT THEN CHARe"»” ELSE GO SCNR 3 
END 3 

END OF SCAN 3 


SUBROUTINE BUTLONUMBER 3 


REAL 


BEGIN COMMENT BUILDS DBLPREC NUMBER NUMBERL »NUMBERH 3 
PCNUMBERL»NUMBERH) 3 
WHILE CHAR<10 00 
BEGIN 
COUNTEReNUMBERGO } . 
NO BEGIN COUNTER*COUNTER#13 NUMBER*NUMBERXLO+CHARSSCAN END 
UNTIL CHAR?9 OR COUNTERF11 3 
DEGADES*DECADES+COUNTER 3 
IF DBLTOG THEN PCOs»POTC COUNTER] s0LMs 0, NUMBERS DLA) 
ELSE PCPOTLCOUNTERJ»*XsNUMBERs+) 3 
END 3 
NUMBERL©PC.NUMBERHs@) 3 
END OF BUILBNUMBER 3 


SUBROUTINE ALFA 3 
BEGIN 
STREAMCCHARIQ¢0) 3 
BEGIN 
ST#LOC CHAR} SIeSI+73 IF SC®ALPHA THEN TALLY*13 CHAR®TALLY 
END 3 
ALFAeP 3 


END OF ALFA 3 


SUBROUTINE FREEREAD3 
BEGIN COMMENT READS AND STORES NEXT DATUM?e DOING APPROPRIATE 


CONVERSIONS. TYPE OF SCAN IS DEPENDENT ON TYPE OF 
LIST ITEMs OPERATES INDIFFERENTLY ON A VARIETY OF 
NUMERICAL FORMATS# 
GOTDIGIT 3 STRINGTOG t= FALSE; 
COUNTERCE CE SIGNeNUMBERL *NUMBERH@NUMBER*DECADES€O 3 
SCAN} IF CHAR="s" THEN GO TO EXIT 
IF CHAR>9 THEN 3 
IF ALFA THEN 
BEGIN 
DO SCAN UNTIL NOT ALFA 3 
IF CHARE"(" THEN 
BEGIN 
DO BEGIN DO SCAN UNTIL CHAR>9 END UNTIL CHARZ583 
IF CHARS)” THEN GO ERROR? SCAN 3 
END 3 


09214430 
09214435 
09214440 
09214445 
09244450 
09214455 
09214460 
09214465 
09244470 
09214475 
09214460 
09214485 
09214487 
09214490 
092144495 
09214500 
09214505 
09214510 
09214515 
09214520 
09214525 
09214530 
09214540 
09214545 
09214546 
09214547 
09214550 
09214555 
09214560 
09214565 
09214570 
09214575 
09214577 
09214579 
09214581 
09214583 
09214585 
09214587 
092445489 
092145914 
69214600 
09244700 
09214800 
09244900 
09215000 
09215100 
09215200 
09215300 
09215310 
09215315 
09215320 
99215325 
09215330 


09215335 — 


09215340 
09215345 
09215350 


AHA HAH tt a A st A st A a tt st at at 


0066t0 
0066!0 
0067:2 
006934 
006932 
Q070%0 
OO70%4 
007034 
007410 
007230 
007233 
00740 
007844 
008033 
0080t3 
008130 
008410 
008130 
008420 
0084%2 
008233 
008223 


00840 | 


008733 
009071 
009432 
009410 
009523 
009624 
009784 
OO97Ie 
0097%2 
O09Rf0 
0098:0 
O09ggt, 
009934 
O100%2 
010140 
010484 
010442 
O101%2 
010240 
0102:0 
010240 
01020 
0102%0 
0103914 
010730 
010984 
011080 
011240 
011222 
011533 
011692 
011740 
011983 
012330 
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IF CHARS"=" THEN 


BEGIN 
SCANS IF NOTCCHARS"R™ OR CHARS"I") THEN GO ERROR} 
SCAN 3 
END 3 
IF CHARZ*"=" THEN GO ERRORS SCAN 3 
END > 


IF CDONE*CHARS"*") THEN READIT 3 
IF CHAR = """ THEN GO TO STRING# 
IF CHAR="x" THEN GQ GETCOMMA 3 
GOTBIGIT #= TRUES 

GN TO SWISHETYPE)3 


NUMERICAL #3 


IF (SIGN #= CHARst#") GR CHAR="+" OR CHARS"&" THEN SCAN} 
IF CHAR>9 THEN GO TO DECIMAL} 

BUILONUMBER 3 

DECADES+0O 3 

IF CHARS." THEN 

BEGIN SCAN> 


FASTPOINT?¢ 


AT?3 


BUILDNUMBER 3 
END # 
IF CHARS"@" OR CHARS"E" OR CHARS"D" THEN. 
BEGIN SCAN 
IF CESIGN $= CHARS"=") OR CHARS"™+" OR CHARS"&" THEN SCANS 
IF (CE t= CHAR)>9 THEN GO TO ERRORS SCAN 
WHILE CHARS9 00 
BEGIN E $= 10xE+CHARS SCANS END} 
IF ESIGN THEN E€ t@ E3 
ENDS 


IF ABSCNUMBERE@DECADES)>69 THEN GO ERROR 3 
PCNUMBERL»NUMBERH) 3 
IF NUMBER#O THEN 
IF DBLTOG THEN PCPOTL69+ARSCNUMBER) JePOTCABSCNUMBER) J» 
IF NUMBER<O THEN PCDLD) ELSE PCDLM)) 
ELSE PCPOTCABSCNUMBER) ]sIF NUMBER<O THEN PC/) ELSE PCx)) 3 
IF SIGN THEN PCCHS) 3 
IF DBLTOG THEN PCCADDRESS1sSTD»CADORESS£131»STD) 
ELSE BEGIN 
P(XCHsDEL + CADDRESS]) 3 
IF TYPESINTEGERV THEN 


BEGIN 
IEF PCDUP)>@7777777777777 THEN GO ERROR 3 
PCISD) 3 
ENO 
ELSE PCSTD) 3 
END 3 


GO TO GETCOMMA; 


DECIMAL ?: 


IF CHAR="." THEN 
BEGIN SCAN} 
IF CHARS9 THEN GO TO PASTPOINT ELSE GO TO ERROR; 
END3 
NUMBERHe1 3 
IF CHAR="6" QR CHARS"E" OR CHAR="0H" THEN GO TO ATs 


ERRORS 


09215355 _ 


09215360 
09215365 
09215370 
09215375 
09215380 
09215385 
09215400 
09215405 
09215410 
09215500 
09215600 
09215700 
09215800 
09215900 
09216000 
09216100 
09216200 
09216300 
09216400 
09216500 
09216800 
09216900 
092417000 
09217100 
09217200 
09247300 
09217400 
09217500 
09217600 
09217700 
09217800 
09217900 
09218000 
09218025 
09218050 
09218100 
09218400 
09218500 
09218600 
09218615 
09218620 
09218625 
09218630 
09218635 
09218640 
09218645 
09218650 
09218700 
09218800 
09218900 
09219000 
09219100 
09219200 
09219300 
09219400 
09219500 


tt sh Hh st os 9 ts a A tt a tt tt 


012340 
012333 
O124%4 
012740 
012820 
012830 
0130!0 
013080 
0133:%0 
O134as4 
O135%2 
013634 
014083 
014033 
014610 
O147t4 
014820 
014833 
O149%2 
015110 
015120 
015220 
0152!0 
015433 


015720 


016230 
01650 
016621 
016922 
O17. ha 
O17 194 
Ol7 484 
0173%3 
0174214 
017580 
O178%4 
O180%2 
O184t0 
0185t0 
018744 
018733 
018Aato 
O189tt 
0189%3 
019430 
019444 
O19gty 
O193%4 
0193984 
019323 
049333 
019423 
019630 
019733 
019733 
019812 
020210 
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IF PBARL#O THEN 
PCPARL» MKS» 9s BLOCK); 
PCOMKSs FIB(6]> FILX.€33215]» 25 FORTERR)$ 
STRING#!2 
IF CHARZ*"" THEN GO. TO ERROR; 
COUNTER 33 03 STRINGTOG *= 13 NUMBER t= * "3 
DO BEGIN SCANNER 3 
STRUNG? 8 
IF CHARZ"!" THEN 
BEGIN COUNTERS =COUNTER+13 
STREAMCCHARsNP=COUNTERs TPS C0NUMBERI D3 
BEGIN ST3sslLOC Ns SIs=St"13 
DIteOI+13 DILPsDI+Ns O82 SCHR; 
END STREAM3 
END; 
END UNTIL CCOUNTERS6) OR CHARa rts 
IF COUNTERS9O THEN GO TO ERROR} 
PCNUMBERs CADDRESS], S$TD)3 
IF CHARZ""" THEN 
BEGIN SCANNER} IF CHARS" THEN GO GETCOMMA 3 
IF LSTRN#®(€"1) THEN GO TO ERROR; 
LISTELEMENTS 
IF LSTRNFBC™1) THEN GO ERROR 3 


END; 
GETCOMMA?$ 


WHILE CHAR#"s" AND CHAR#**"* DO SCANS IF CHARS"*" THEN GO BYE 3 


GO TO EXITS 
LOGICALs! Boos 
IF CHAR=",." THEN 


BEGIN COMMENT SHOULD BE "eTRUE."s “eFALSEe"s OR ABEREVIATEONS? 


NUMBER $2 COUNTER #* & t= O$ 
pO BEGIN 
SCANS NUMBER t® CHAR & NUMBER(12218:30]3 
END UNTIL CCOUNTER t= COUNTER+¢1)26 OR 
CHARS", OR CHARS", "3 
IF NOT CEeCOUNTERS2 AND NUMBERE"Ts") THEN 
BEGIN Eeds PCTRUE"I$ LOGICALCOMPARE 3 
IF NOT E THEN 
BEGIN . 
IF COUNTER#2 OR NUMBERZ"Fs' THEN 


BEGIN E*3% PC"FALSE")3 LOGICALCOMPARE | 


IF NOT € THEN GO ERROR 3 
END 3 
Bed 
END 
ENN 3 
END ELSE IF CE*CHARs"T") OR CHARS"F" THEN 
BEGIN. SCAN: 3 


‘se “ee 


IF NOT CCHAR="," OR CHARS",") THEN GO ERROR 


END 


ELSE IF NOT (CE*CHAR#1) OR CHAR=0) THEN GO ERROR 


PCE» CADDRESS)» STD)3 GO TO GETCOMMA; 
EXIT? 
END FREEREAQs — 


COMMENT teeee ketee START OF CODE wake wh key 


NUMBER ss "3 COUNTER t= 0} GO TO STRUNG; 


09219600 
09219700 
09219800 
09219900 
09220000 
09220100 
09220200 
09220300 
09220400 
09220500 
09220600 
909220700 
09220800 
09220900 
09221000 
09221100 
09221200 
09221300 
09221400 
09221500 
09221600 
09221700 
09221750 
09221800 
09221900 
09222000 
09222100 
09222200 
09222300 
09222400 
09222500 
09222600 
09222700 
09222800 
09222900 
09223000 
09223100 
09223110 
09223115 
09223120 
09223125 
09223130 
09223135 
09223140 
09223145 
09223200 
09223300 
09223400 
09223405 
09223410 
09223420 
09223425 
09223500 
09223600 
09223700 
09223800 
09223900 


AAA HA Ht a tt tt AAA HA HA A AH A A Ht A tt HH 


0202%0 
020243 
020434 
020634 
020634 
020854 
021082 
021210 
021210 
021233 
Q214t2 
021543 
O216tt 
021731 
021742 


021782 


021923 
022120 
022133 
O222t2 
N225%4 
022623 
022810 
022932 
023370 
023330 
023370 
O237%4 
0238%4 
O238t} 
023933 
024041 
024210 
024210 
0244%3 
0246!2 
024970 
025412 
025440 
025412 
025810 
025633 
0259190 
025933 
025913 


026082 


026082 
0260!2 
0267914 
026920 
O271t4 
O27 1484 
027442 
027533 
027533 
O27bT4 
027634 
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FILXENOT 3]¢PARLS FILXCNOT 41¢E0FL3 
FIRB t= FILXENOT 233 
IF FI8(51,043:2142 THEN 
POLISHCMKSs O» 2» FILX» 1» SELECT)3 
CHECKPRESENCES ARRAYSTUFF $5 03 
IF FreCOJ#O THEN FIBRO] ts 43 
IF FIBCOJZ1. AND KINDs2 THEN 
POLISH(MKSs FIBC6]+ FILX,C33815]% 4» FORTERR) 
IF PCaCFIBL14})sTOP) THEN PCOELD 
ELSE BSIZE*™(SEQ*#(SEQ¢(*(4 INX PCXCH))).£36%61)70 AND SEQZ8 
AND SEQ#49)x8 
+BSIZE 3 
LSTRNG*READRECS!L 3 
DO BEGIN IF DONE*LSTRN=C*1) THEN READIT3 LISTELEMENT 3 
IF (DONE #* CLSTRN®C"1))) THEN READIT 
FREEREAD; 
END UNTIL FALSE? 
END FORTRAN FREE FIELD READS 


penn nea Teen ne Ene esse 
ieee ee 


ah etn) LARTER RI BENE SCBA ES BOLERO ERENT ee cen 
: — ae . "SSR carver mS 
ree RR aa a HHI 


09224000 
09224100 
09224200 
09224300 
09224400 
09224500 
09224600 
09224700 
09224710 
09224720 
09224730 
09224740 
09224800 
09224900 
09225000 
09225050 
09225100 
09225300 


$ 


T 
7 
T 
T 
T 
T 
T 
T 
t 
T 
T 
T 
T 
T 
T 
T 
T 
T 
I 


ca 
0287: 
028a%3 
029044 
O29at4 
029383 
029612 
029984 
030433 
03032 
030683 
030914 
031073 
O0312%0 
031690 
O319%0 
032030 
032073 


ZE= 0321 WORDS 


Setanta iment stn 


PROCEQURE COBOLDECIMALTOOCTALCONVERTCA) 3 &%% INTRINSIC # @151, 
A3 NAME A 3 
THIS PROCEDURE CONVERTS A STRING OF N BCD DIGITS» STARTING AT WORD 
ADDRESS A» CHARACTER OFFSET S» INTO A DOUBLE*LENGTH VALUE. THE LOW 
PART OF THIS IS STORED IN Se THE HIGH PART IN Ne IF NelitiJ=tsTHEN 
THE SIGN OF THE VALUE IS OBTAINED FROM THE ZONE BITS OF THE 1ST 
CHARACTER (BCD DIGIT)» OTHERWISE FROM THE LASTs OSSS7s OSABSOCNI $23 
BEGIN 
REAL NzA=2s SsNwly Q=9e C 3 
REAL HOLDisHOLD2sHOLD3 3 NAME Aq} 
LABEL BsDeEk,TA2G 3 
— @SBn203 ALteCHOLD1I5 
STREAMCAsSsJSIGNiSIF Q@ THEN O ELSE 1*NUMDISABS(NI@1> 
SAVST#QOeHOLDtsCHOLD13)3 


VALUE 
% 


Be Be Fe FO 


REGIN 
ST2?zA3. STsSBST+S3 
SissST+JISIGN3 
DIS=DI+JSIGN3 
DSt=NUMD NUM3 
JSIGNOSTS=SAVSI3 
DSreCHR; 


SAVSI:sS13 


DI@sHOLds )3 


END3 

Ateal3  S2203 

FCDYB 133 

IF (N*#ABS(N))$8 THEN 

BEGIN 

STREAM(CS8SsAsN)3 

IF NOT @ THEN GO 

END 

BEGIN PCO) 3} 

IF N>16 THEN 
BEGIN 
STREAMCSsZeOsAtNeN*16eCAe(C}) 3 


BEGIN SI#A3 DS«N OCT END 3 


OF NeP 3 


ST©SI¢#S3 OleLac C3 


ELSE 


09300000 T 
ADDRESS = 90632 


START OF REL SEGMENTS DISK 


09300100 
09300200 
09300300 
09300400 
09300500 
09300600 
09300700 
09300800 
09300850 
09300900 
09301000 
09301005 
09301010 
09301012 
09301015 
09301020 
09301025 
09301030 
09301050 
09301065 


09301070 


09301075 
09301080 
09301100 
09301200 
09304300 
09301400 
09301500 
09301600 
09301700 
09301800 
09301900 


AAH HAR HH HON NO DN DNDN NOOO OBA AAA AH 


0000%0 


000040 
0000370 
0006%6 
000080 
o000t0 
000010 
00000 
0000%O 
0000%0 
000020 
000010 
0003%4 
0006183 
Q007%2 
000712 
000Bt2 
000920 
000932 
001070 
001124 
O011%2 
004133 
0043%1 
001312 
001550 
0015%2 
001930 
a020%% 
0020!4 
002140 
002133 
O02et4 


Bs 


BE 
SIoAs SI¢SI+#S3 Ol*LOc As OSeN OCTS DIeLOc § 3 
DS#8 OCTS DIeCAs OSes OcT 3 
END 3 
PCOsTB*DLMeDLAD 3 
PCOsTB*DLM» O02 ABSC(C)sDLA) 3 
END 
FLSE BEGIN 
STREAM(SSAsNeN@BeCAe(C]) 35 
BEGIN 
STeAs; SIleSI+S3 OleLoc $3 DSe«N OCTS DIeCAs DSB OCT 3 
END 3 
IF PCOUP)>PCG) THEN GO BS PCTB8sxrABS(C) e+) 3 
END 3 
IF C#O AND Q THEN 
BEGIN 
PCCsDTA 1)3 GO E 3 


Tazi:s 100000000,.0 3 


G3 


Oo: 


Es 


$3 5496.0 3 
ENO 3 
IF @ THEN Se¢S+#Neq 3 
STREAMCSSA)3 BEGIN SIeAs S]eS14+S3 Ries a DI*LOC Ss DIeDI+73 
DS¢ZONS ENDS 
PCPS@4Q0sDIA 47) 3 
NePCTRB 1) 3 
END 3. 


S¢P 3 
END OF COBOLDECIMALTOOCTALCONVERT 3 


PROCEDURE COBOLOCTOLTODECIMALCONVERTCAsLsHseSeNeoRe Ts & INTRINSIC # @152, 
START OF REL SEGMENT DISK 


yALUE 


LaHsReNesSeT3 REAL LeoHsReNeSeT3 NAME A 3 

THIS PROCEDURE CONVERTS THE DOUBLE@*LENGTH WORD (Let) INTO A STRING 
OF N BCD DIGITS, THE STRING STARTS AT WORD ADDRESS A» CHARACTER 
OFFSET S, PRIOR TO THE CONVERSIONs CLeH) 1S SCALED@TO@THE@LEFT/RHT 
BY R DIGITS» TeF. CLeH) IS DIVIDEN/MULTED BY 10*R,. T IS A COMBINED 
TRUNCATION/J*"SIGN TOGGLE: Tal2stis1 8> PUT THE SIGN OF CL»H) IN 
{-ST CHR OF THE STRINGS T.€1%1)41 => PUT SIGN IN THE LAST CHR} 
ABSC(T) ela7tilel s> TRUNCATE CLeH) BEFORE CONVERSION CAND AFTER 
SCALING)3 ABSC(T).C46%1]51 => ROUND CLeH) BEFORE CONVERSION CAND 
AFTER SCALING) « NOTE THAT. OSS<7» OSNS23, 


BEGIN 

INTEGER IRsRs IHFH, ILsl 3 

REAL Beifs SERR=19» WHeil,s DMOD=2 1, Qe9 3 
ARRAY TENS230*) 3 

LABEL HLF eT8eT16 3 

IF R<O THEN 


BEGIN 

STREAM(SsN2A)3 BEGIN DI©DI+Ss NCDSeLIT"OM) END 3 
NeN+tR3 REO 3 

END. 3 

IF Teft#2)]=0 THEN H ¢ ABSCH)3 


IF Wel221] THEN PCO*H/TENERI) ELSE PCLsHs TENCR+27) + TENCRISOLO) 3 


09302000 
09302100 
09302200 
09302300 
09302400 
09302500 
09302600 
09302700 
09302800 
09302900 
09303000 
09303100 
09303200 
09303300 


- 09303400 


09303500 
09303600 


09303700 © 


09303800 


09303900 - 


09304000 
09304100 
09304200 
09304300 
09304400 
09304500 
09304600 
09304700 


T 
T 
T 
T 
T 


7 
T 
T 
4 
T 
T 
T 
T 
T 
7 
T 
T 
T 
T 
T 
T 
7 
T 
T 
T 
T 
T 
7 
I 


002433 
002433 
002632 
002754 
002732 
0028%2 
O030%4 
O030%;, 
0030:3 
00330 
00330 
0035120 
003534 
0037:3 
003723 
00390 
0039%2 


004012 


0049t0 
004330 
0043%0 
004532 
O0dgty 
004833 
GO49t? 
00501 
CO50%4 
005033 


SIZeE=. 0051 


09400000 T OdO000%0 


09400100 


09400200 


09400300 
09400400 
09400500 
09400600 
09400700 


09400800 - 


09400900 
09401000 
09401100 
09401200 
09401300 
09401400 
09401500 
09401600 
09401700 
09401800 
09401900 
09402000 
09402100 
09402200 


A 


AAA HHA HH os Ht 


ODRESS = 
000020 
ooo00ntd 
000020 
0000:0 
0000:0 
eteleren ge) 
000040 
000080 
000080 
0000:0 
0000%0 
000080 
a000gfo 
00008 
000080 
lelelston ze) 
0000%3 
QOO0181 
000442 
0006%2 
Q000612 
0009%1 


WORDS 


00634 
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rs 4 
FF peABSCOeP)»+DUPIEPCHLF) THEN HeReSERR«O 
ELSE BEGIN 
IF SERR+PC(DUP)>TEN(C23) THEN PCTENE274#NJ]eTENDNI] sDMODsBeXCH) 3 
IF PCOUP).C2%1] THEN 
BEGIN IF T°THEN PCHLF se)? He CIReP) DIV PCTS) END 
ELSE BEGIN 
IF NOT T THEN PCOSHLFsOL As HeP § 
Beet ee ec Orne CLenAl eT eeOUD entre ml a pebeDebrsTrenlins 
DLS) 3 
TREPCRePsHs Os THEP OC Rebs Oe Tar DLO» HLF om)» XCHe DEL» Os TAs DLMs 
DLSeHL Fane) 3 
END 3 
END 3 
IF NS$8 THEN 
BEGIN P(L#0 OR HO OR R2TENEN] OR NFO) 3 
STREAMCRe Ne Se A)? BEGIN DIe«DIT+#83 STeL Oc RF DOSEN DEC END 3 
END 
ELSE IF Ns16 THEN 
BEGIN PCL#¥O OR H2TENEN"8)) 3 
STREAMCHsReNeNmae SrA) 3 
BEGIN DIle*OT+Ss SleLOc Hs DSeN DECs DS*B DEC END 3 
END 
ELSE BEGIN PCL2TENCN*16]) 3 
STREAMC La He ReNeN@i6sSeA) 3 
BEGIN DleDI#S3 SI*LOC Ls DS*N DECs DS*8DECS DS+8DEC END 


END 3 
IF P OR SERR THEN TF PCieWHe 018215) ,DUP)40 THEN PCDIB Ose) 


IF @<O0 THEN 
BEGIN 
IF T>O THEN 
BEGIN 
STREAMCNGN@25SeA) 3 
BEGIN 
DI#DI+S3 DS*SET DS*RESETS DI©DI+N3 DS*RESETIOS*RESET 
| ‘END 3 
PCXIT) 3 
HLF Ses 0499999999999 3 
T1683 10000000000000000,0 ; 
Tats 100000000,0 } 
END 3 


STREAMCS*S#N=19A)3} BEGIN DI*DI4S3 DS*SET# DS*RESET END 3 
END $ 
END OF COBOLOCTALTODECINALCONVERT $ 


PROCEDURE COBOLVARSZs 


09402300 
09402400 


09402500 
09402600 
09402700 
09402800 
09402900 
09403000 
09403100 
09403200 
09403300 
09403400 
09403500 
09403600 
09403700 
09403800 
09403900 


09404000. 


09404100 
09404200 
09404300 


09404400 


09404500 
09404600 
09404700 
09404800 
09404900 
09405000 
09405100 
09405200 
09405300 
09405400 
09405500 
09405600 
09405700 
09405800 
09405900 


09406000 © 


09406100 
09406200 
09406300 


09406400 > 


09406500 


09406600 


09500000 


START OF REL SEGMENTS DISK 


BEGIN 

REAL 

Om2! EXAMINE 
O=REPLACING FIRST 
1=REP/TALLY ALL» 
2=LEADING/UNTIL FIRST 


TYPE ze) 


Be Ie Fe IC 


09500100 © 


09500200 
09500300 
09500400 
09500500 
09500600 


001482 
OO15t4 


T 
T 

yr OOU784 
T QO19%2 
T 002333 
T 002432 
T 002743 
T OO02Bt4 
y QO30%2 
y 003520 
T 003523 
rT O040%4 
T 004412 
T 004432 
T 004122 
7 OO04f%4 
T 004683 
T 004923 
T 004913 
T 005420 
T 005410 
T O056#1 
T  OO5SBHi0 
T 005870 
T 0060t0 
T O062%2 
T 006484 
T O064%2 
T O06a%4 
T 006910 
T O0691t2 
T OO70%1 
T 007033 
tT OO7Bt2 
T OO72%2 
7 OO74%t 
T OO74t3 
T OO78%0 
T O076:30 
tT 0077:0 
T OO7A8tO 
T 007810 
TT OO084%t 
T OOB81!4 
SIZE= 0082 


T O000%0 
ADDRESS = 
000080 
000030 
0000%0 
0000?0 
0000!0 
0000%0 


ee 


wORDS 


00637 
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% 3% VARIABLE SIZE SMEAR 
% 4-93 VARIABLE SIZE RELATE 
% &s<_y St29 Bere Fae WtazpOaz 
% 10% VARIABLE SIZE MOVE 
% 11% NEG ALPHA TEST 
% 12% POSITIVE ALPHA TEST 
ARRAY DESC = =2(*}3 % RELATE? JUNKA DESCRIPTOR 
% MOVESSMEAR: =0 
REAL CODE = =D» % EXAMINE? C4721)%1 IF REP 
% C46t1]=1 IF TALLYING 
% C45t1321 IF REPLACING OR 
% TALLYING UNTIL FIRST 
DLENGTH = 93» % MOVE & RELATE’ DEST LENGTH 
% SMEAR’ LENGTH TO SMEAR 
LNGTH = 93» % EXAMINE’ LENGTH 
SLENGTH = wh, % SOURCE LENGTH CSMEAR! =0) 
RCHR = 74s % EXAMINE! CHAR TO REPLACE 
DOF SET a 95> % MOVEsRELATEsSMEARIDEST OFF 
SCHR = =5,5 % EXAMINE? CHAR SOUGHT 
SMCHR a As % SMEAR! CHAR TO SMEAR 
% EXAMINE MKS 
SOFSET = 6» % MOVE&SRELATE? SOURCE OFFSET 
: OFFSET = =73 % EXAMINES OFFSET 
ARRAY 
DEST s s7[*], % MOVEsRELATEs SMEARIDEST 
SOURCE # "BC4)3 % MOVE»RELATEs EXAMINE $ SOURCE 
REAL 
RELATES 
DIFFER» 
NMOD645 
SAVOFFs 
NDIV64, 
Ne 
NWOS3 
ARRAY DC«d3 
DEFINE 


REPLACECHR = DIl¢DIwis SIleLOc Pas SleSte13 05¢1 CHR#s 
LISTP1iTOP6 = PLeENMOD64sPZENDIVG4eP3e(NDIVG4 DIV 64) 
PA¢SCHRePS*ERCHRe PHEOFFSETH 
LABEL VARTEXAMs CMDs SMEARS & 
Sk Oe Oe iced START OHERE 9 tte tk OI i td ii ki ek tke ke 
LF TYPES2: THEN GO TO VARIEXAM3% 
D«* [PDESTII% 
IF TYPEs3 THEN GO TO SMEARS% 
IF CDIFFER © DLENGTH#SLENGTH)<0 THEN % VARTABLE MOVE ONLY 
IF TYPE=10 THEN2 
BEGIN’ 
SLENGTH ©. DLENGTH} 
NMQD64 © SLENGTH, [42:613% 
END3 
IF DIFFERZO AND TYPE24 AND TYPESO THEN 2% IF THERE IS A DIFFER*™ 
aoe % THEN MOVE SHORTER TO JUNKA&FILL OUT WITH BLANKS 
IF DIFFEREO THEN. % INTERCHANGE TO MAKE DEST THE 
BEGIN % LONGER, SOURCE THE SHORTER 
ND « CDESTI2 DEST + [SQURCE]3 SOURCE « (D3 
SAVOFF «© SoFSET3 SOFSET « DOFSET; OOFSET+«Q3 
NWOS¢ODLENGTHS DLENGTHeSLENGTH3 SLENGTHeENWDS3 


09500700 
09500800 
09500900 
09501000 
09501100 
09501200 
09501300 
09501400 
09501500 
09501600 
09501700 
09501800 
09501900 
09502000 
09502100 
09502200 
09502300 
09502400 
09502500 


09502600 


09502700 


09502800 > 


09502900 


09503000 


09503100 
09503200 
09503300 
09503400 
09503500 
09503600 
09303700 
09503800 


09503900 


09504000 
09504100 
09504200 
09504300 
09504400 
09504500 
09504600 
09504700 
09504800 
09504900 
09505000 
09505100 
09505200 
09505300 
09505400 
09505500 
09505600 
09505700 
09505800 


09505900 


09506000 
09506100 
09506200 
09506300 


ae as ss ss sd ss a 


00000 
0000!0 
0000!0 
0000F0 
000080 
000030 
000030 
‘oltlelon ae) 
00000 
Q000%0 
000030 
000070 
000030 
0000!0 
ehelelen ae) 
0000!0 
000030 
0000!0 
N000tO 
000080 
00000 
ad00%o 
000080 
000030 
oondodto 
0000:0 
000030 
00000 
eb enelen ne) 
o000t0 
000010 
000030 
000030 
0000:0 
00000 
0000!0 
000080 
000070 
000010 
oad0r0 
0000%0 
00000 
000384 
00044 
000532 
000744 
0008%2 
000970 
000923 
001130 
001130 
001323 
OOL4s4 
00485140 
001512 
Od01ei2 
C0208! 
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DIFFER © ABS(DIFFERI3% 
END ELSE% 
BEGINS 
IF TYPE<8 THEN TYPEeTYPE@TYPE sL47317% 
#CTYPE A L4721]=093% 
SAVOFF. © DOFSETI% 
 DOFSET « 03% 
END3% 
RELATE « TYPES 
TYPE ¢ 103 
D «© COESCLOI13% 
END3% 
CMB: % TRANSFER OR COMPARE FIELDS | 
IF TYPEZ10 OR DIFFER20 OR RELATE>O THEN NMODG4¢SLENGTH, (4286173 
NDIV64 «© SLENGTH DIV 643% 
IF TYPE<8 THEN% 
BEGINS 
STREAMCPO¢O FPL eNMODG4sP2eNDIV64eP2AGNDIVO4Z0eP3¢(NDIV6E4 DIV 64) 
sP4eSOURCEsPSeSOFSETsP6eDOFSETsP7eTYPE2Os% 
PRETYPESLA72 4 19 P9eD 3% 
BEGIN 
SI ¢ P43 SI © ST#P53 DI «© DI+P63 
Cl « CIl+P73 GO TO GREG GO TO GOLSQ3*% 
GREG? 
P3(63(PO¢SISP9IEHISIF 638C=DC THEN ELSES 
BEGIN ST*POS3DIe¢P9SIF 63 SC>DC THENS% 
JUMP OUT 2 TO XYTI3% 
END) 3% 
2CPOeSIZSP9eDIZSIF 63SC20C THEN ELSE% 
BEGIN SIe¢POs0lePOsIF 63 SC>DC THENS% 
JUMP OUT 2 TO XY¥T4i3% 
END)3% 
IF Sc=0C THEN ELSEX 
BEGIN SleSleqsOleDloi31F SC>pc THENS% 
JUMP OUT 4 XYT13% 
END)# GO TO Liss 
XYT1# GO TO XYT23% 
GOLSO:GO TO LSEOs¢ 
Lit P2 CPO+SISP94DI3IF 638C=2DC THEN ELSE 
BEGIN SlePOsJDIePOFIF 63 SC>DC THEN? 
JUMP QUT 4 TO XYTO3% 
END 3% 
P2A (CPOeSI3P9eDISIF P2 SC#DC THEN ELSE 
BEGIN SI*POs3DI«P93IF P2 SC>DC THENS% 
JUMP OUT 1 TO XyYT23% 
END 3% . 
IF P1 SC2>DC THENSS% 
XYT2!? GO TO XYT33% 
LSEQ? 
P3CO3(PO+SISPIEDISIF 635CsDC THEN ELSE% 
BEGIN SI*POsDI*POSIF 63 SC<DC THEN3% 
YUMP OUT 2 TO XYT334% 
END)3% 
Z2CPO+SISP9*DISIF 635CeEDC THEN ELSES 
BEGIN SIe¢PO3DIeP9SIF 63 SC<DC THEN32 
JUMP QUT 2 TO XYT33% 
END)3% 


09506350 
09506400 
09506500 
09506600 
09506700 
09506800 
09506900 
09507000 
09507100 
09507200 
09507300 
09507400 
09507500 
09507600 


09507700 


09507800 


09507900 


09508000 
09508100 
09508200 


09508300 


09508400 


(09508500 


09508600 
09508700 
09506800 
09508900 
09509000 
09509100 
09509200 
09509300 
09509400 
09509500 
09509600 
09509700 
09509800 
09509900 
09510000 
09510100 
09510200 
09519300 


09510400 


09510500 
09510600 
09510700 
09510800 
09510900 
09511000 
09511100 
09511200 
09511300 
09511400 
09511500 
09511600 
09511700 
99511800 
09511900 


a aes se st a a 


0023720 
002470 
002410 
0024%2 
002630 
0029°0 
002933 
003022 
0030%2 
003421 
003220 
003340 
0033%0 
0033:0 
0037%2 
003883 
0039%2 
004030 
Q042%2 
004482 
0046!0 
0046%0 


O047 4 


004BR?4 
OC4B84 
005084 
0051 %4 
005270 
0052%4 
005333 
005433 
005522 
008523 
0056i2 
0057%2 
0058°0 
005832 
005833 
0059%0 
006033 
0061483 
O006at4 
0062:%2 
O0064%2 
006533 
O066%4 
006632 
006744 
006732 
006742 
006932 
007082 
007181 
007182 
007330 
0074t0 
007483 
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=DC THEN ELSE% 
N Sl*#Sl"¢sDleOliz;1F SC<pc THEN3% 
JUMP OUT 1 TO XyT33% 
END)s GO Ta L2s% 
XYT32 GO TO XYT3% 
L2t P2 CPOeSITSP9*¢DIZIF 63ScaDC THEN ELSEX 
BEGIN SlePOsDI+POSIF 63 SC<DC THENS% 
JUMP OUT 1 TO XYT3% 
END) 3% 
P2A CROeSISP9*DIZSIF P2 Sc#DC THEN ELSE% 
BEGIN SI*POsDI+POSIF P2 SC<DC THEN#% 
JUMP OUT 4 TO X¥TS2 
END)3% | 
IF P1 SCSDC THEN3% 
XYTS P@CIF TOGGLE THEN TALLY«4; JUMP OUT 1 TO STORI#% 
IF TOGGLE THEN ELSE TALLY«13% 
STOR?PO+TALLY$% 
END STREAMs2 


END ELSE% 
BEGINS 


STREAM(PO¢O$P1¢NMOD64sP2¢NDIV64sP2AENDIVOSFO + P3¢(NDIVOS DIV 64) 
sP4+SOURCEsP5¢SOFSET sP6*DOFSET sP7@CTYPEZ10 FC TYPED 10) o&% 
PRCTYPE sL47211]¢P9eD)3% 
BEGINS 3 
SI ¢ P43 SI © ST+#P53 DI © DI+P63 
CI « CI+P73 GO TO EQULS Go TO TRFR3 GO TO GOTANS% 
EQULES | 
P3C 63C1F 63 SceDC THEN ELSE JUMP OUT 2 TO XYT1)3% 
2cIF 63 SC=0C THEN ELSE JUMP OUT 2 TO XYT1)3% 
IF 1 SC=0C THEN ELSE JUMP. OUT 1 TO XYT1)3 GO To L3% 


GOTAN! GON TO TANL3% 


L$ P2CIF 63 SCeNC THEN ELSE gUMP OUT 1 To XYT1)3% 
P2ACIF P2 SC=DC THEN ELSE JUMP OUT 1 TO XYT1)3% 
IF P1 SCEDC THENS GO TO xYT13% 
TRERS% 
P3(63(DS€63 CHR)} 2(DS*63 CHRIS DS*CHR)#% MOVE 64x64 
P2CDS * 63 CHR)3 DS * P2 CHR} DS «© P41 CHRs GO TO DONE13% 
XYTL? GO TO xYT23% 
TANLES 
PECOESCORCTF SCePLPRA THEN TE £CETEY TEEN STeSL#L ELSES 
JUMP OUT 3 TO ¥YT2 FLEE JUMP OUT 3 TO XYT2))3% 
2C63CIF SCHALPHA THEN IF SCS"Z" THEN SIeSI+1 ELSES 
JUMP OUT 3 TO XYT2 ELSE JUMP OUT 3 TO XYT2))3% 
IF SC=ALPHA THEN IF SCS"Z" THEN SI#SI+1 ELSES 
JUMP OUT 14 TO XYT2 ELSE JUMP OUT 1 TO XYT2)3% 
gO TO L413 
XYT2! GO TO XYTS 
DONE1: GO TO DONE3 
Lit P2C63CIF SC=ALPHA THEN IF SCS"Z* THEN SI*SI+1 ELSE% 
JUMP OUT 2 TO XYT ELSE JUMP OUT 2 TO XYT))3% 
P2CIF SCEALPHA THEN IF SCS"Z" THEN SIe«SI+1 ELSE% 
JUMP OUT 1 TO XYT ELSE JUMP OUT 1 TO XYT)3% — 
PICIF SCSALPHA THEN IF SCS"Z" THEN SI*SI+1 ELSE% 
JUMP OUT 1 TO XYT ELSE. JUMP OUT 4 TO XYTI3% 
XYT? PBCIF TOGGLE THEN ELSE TALLYe13 JUMP QUT 1 TO STORD#% 
IF TOGGLE THEN TALLYe13% 
STOR! PO«TALLY3% 


09512000 
09512100 
09512200 
095412300 
09512400 
09512500 
09512600 
09512700 
99512800 
09512900 
09513000 
09513100 


09513200 


09513300 
909513400 
09513500 
09513600 
09513700 
09513800 
09513900 
09814000 
09514100 
09514200 
09514300 
09514400 
09514500 
09514600 
09544700 
09514800 
09514900 
09515000 
09515100 
09515200 
09515300 
09515400 
09515500 
09515600 
09515700 


09845800 © 
CEELESOS. 


09516000 


09516100 © 


09516200 
09516300 


09516400 © 


09516500 
09516600 
09516700 
09516800 
09516900 
09517000 
09517100 
09517200 
09517300 
09517400 
09517500 
09517600 


AA HAM MA tt Ht HA HT A AA A at HA AA A Ht HH 


007570 
0075:3 
007633 
OO77 84 
007733 
007890 
0079%3 
008033 
008151 
O084%2 
008352 
0084:3 
0085!%4 
0085%2 
0086514 
0088!0 
0088:3 
008930 
008931 
O08Osy 
008933 
009234 
009584 
009633 
009623 
009820 
009984 
009984 
010133 
010373 
O105t2 


010533. 


010783 
011070 
OL1140 
O111%0 
011332 
011583 
019410 
Ciiets 


OL18F2 
O24 it 


OL23%4 
012610 
0127%2 
012940 


O129%4 


O129%2 


0129483 


0132:0 
O134ti{ 
0136314 
013713 
0139%3 
OL4y%4 
O14atyt 
014333 


© 


DONE?% 
END STREAMS2% 
END3% 
IF TYPE#10 THEN PCRTN)3% 
IF DIFFER>O THEN 


BEGIN % FILL OUT DEST WITH BLANKS TO MAKE UP DIFF 


PCSLENGTH+DOFSETsDUPs8eIDVs*PC Do INXs «Dees 7eL ND» eDOFSETS©)3 


SMEARS ENDIVO64 © CNWDSe CC CDIFFER}](DLENGTH™SLENGTH )™&% 


CN©CS"DOFSET),0C45%33)) DIV 8) * CDIFFER28))) DIV 643% 
STREAMCPL¢DIFFER, C4523] *P2eDOFSETsP3¢8x(NIFFER2Z8 +N» PA4eNWDSe 
PAACNWOSZO2PS@¢NDIVGG2PSACNDIVO4Z0sP6eSMCHRaP7e CTYPE S3 
AND SMCHREA" )5PBeD)3% 
BEGIN 
DI « DI+P23 PBeDIe P7CST*LOC P73 SleSI*1)3% 
CI#CcI+P73 GO TN BLNKS GO TO SMRs% 
BLNKIP3CDS © LIT * 3 GO TO CONT3% 
SMR? P3CNS © 1 CHRS SI#SI*123% 
CONT#S! « P83 P5cnS © 63 WOS)3 PSACDS ¢ P5 WDS)3% 
P4HACDS « P4 woS)3% 
CIleCI+P73 GO TO FINB$ GO TO FINS32& 
FINB#PL1(DS ¢ LIT * ")3 GO TO xyTs% 
FINS?P4(0S © 1 CHR} SIleSy-1)3% 
XYT#% 
END STREAM 
END3% 
IF RELATE>Q THEN % BLANK FILL DONE 
BEGIN % GO BACK ANDO 0O COMPARE 
SOFSET + SAVOFF3% 
SOURCE © [DESTI3% 
SLENGTH © DLENGTH#% 
TYPE © RELATEs% 
DOFSET «© O3% 
D « EDESCI13% 
GO TO CMD3% 
END} 
PCXIT)2 
VARIEXAME!% 
NMOD64 © LNGTH,C423613% 
NDIV64 © LNGTH DIV 643% 
IF TYPE=0O THEN 
BEGIN % REPLACING FIRST 
STREAMCLISTPLTOP6sP7¢SOURCE 3% 
BEGIN 
DIeDI+P6s SIeLOC P53 SleSye43 
P3C63(O3CIF Scspc THEN JUMP OUT 3 TO REPS Sy*#St"41))3% 
2C63CIF SC=MC THEN JUMP QUT 3 TO REP3 SI*SI=1))3% 
IF SC#NC THEN JUMP OUT 1 TO REPS ST*SI=13 93% 
P2C63CIF SCaDC THEN JUMP QUT 2 TO REPS SIeSI*#1)93% 
P2CIF SC=DC THEN JUMP QUT 1 TO REPS SIeSI71)3% 
PiCIF SC=#OC THEN JUMP QUT 1 TO REPS SleSrel)3% 
ga TO xYT3 
REP! REPLACECHR3 
XYT! 
END STREAM3 
END ELSE IF TYPE#1 THEN 
BEGIN % REP AND/OR TALLYING ALL 
STREAMCPOCOSLISTPLITOP6sP7¢3"COME)"OSREP&TALLY*#1= TALLY ONLY» 


09517700 
09517800 
09517900 
09518000 
09518100 
09518200 
09518300 
09518500 
09518600 
09518700 
09518800 
09518850 
09518900 
09519000 
09519100 
09519200 
09519300 
09519400 
909519450 
09519500 
09519600 
09519700 
09519800 
909519900 
99520000 
09520100 
09520200 
09520300 
09520400 


09520500 © 


09520600 
09520650 
09520660 
09520700 
09520800 
09520900 
09521000 
09521100 
09521200 
09521300 
09521400 
09521500 
09521600 
09521700 
09521800 
09521900 


09522000 © 
09522100 


09522200 
09522300 
09522400 
09522500 
09522600 
09522700 
09522800 
09522900 
09523000 


ts st ss st i st st sg a A st ot tt ta 


O144:0 
014450 
Oldaty 
O164ty 
044533 
014682 
014740 
0150!3 


015193) 


0157494 
0160%2 
0162%3 
016540 
016580 
016780 
016840 
O0169%2 
017083 


047344 


OL74ah2 
O175%2 
017710 
017834 
O17eit 
O17 8t2 
017832 
017934 
0179%3 
018Q%2 
0161%2 
0182%4 
0183%0 
0183:°3 
0184%3 
0185314 
018584 
018532 
0186:0 
Q187514 
018819 
018934 
018923 
019283 
0192:3 
019383 
019710 
019983 
020484 
020430 
020620 
0208%0 
020884 
020934 
O209%4 
020982 
0210!3 
021131 
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2=REP ONLY" (PB+SOURCE)3% 


BEGIN 


DI¢DI+P63 STeLOC P53 SleS1913% 
P3C63(63CIF 1 ScsDC THEN% 


BEGIN CI¢CI+P73 GO To TALL13 GO TO TALL13 

TALLI® SrePOs SleSt4a3s PO#ST3 STeLOC P53% 
Clec1+P73 GO TO REP13 GO TO NxTi3% 

REP1% REPLACECHRS Ste*LOc P53% 

END3% 

NXTL3  ST*SI"13))d3% 


P3C 2°063CIF 1 ScsDC THENZ 


P3¢ 


BEGIN CleCr+P73 GO TO TALL23 GO TO TALL2; 

TALL2? Sy+#PO3 ST#ST+83 POCST3 ST*LOC P53% 
CleCI+P73 GO TO REP23 GO TO Nxt23% 

REP2! REPLACECHRS SteLoc P5;% 

END3% 


ONXT29 SpeSypei3 97 93% 


IF 1 SCsOC THEN’ 
BEGIN Clec1+P73 GO To TALL33 GO TO TALL33 
TALL 3% SI¢POs SI#ST+83 POSITS ST*LOC P53% 
Clecl+P73 GO 7O REP33 GO TO NxT35% 
REP3% REPLACECHRs SI*LOC P53% 


ENDS 


NXT3i SyeSI"13 3% 


P2CO3CIF 1 SC#DC THENS 


BEGIN CleCI+P73 GO To TALL43 GO TO TALL43 
TALL4! STePOS STeSl4a3s POESIS STeLOC PS3% 
CleCI+P73 GO TO REP43 GO TO NXT43% 
REPdst REPLACECHR; SreLoC P53% 
END3% 
NXT42  STe¢Sle13 973% 
P2CIF 1 SC8DC THEN% 
BEGIN CleCI+P73 GO To TALL5S3 GO TO TALLSS 
TALLS! S]#PO3 SleSI+83 POeSTS ST+LOC P53 
CI©CI+P73 GO TO REP5S3 GO TO NxTS3% 
REPS? REPLACECHR? SyeLoc P53¥% 
END 3% 
NXT5$ STeSIle13 95% 
PocIF 4 ScsDC THENY 
BEGIN CI*CI+P73 GO To TALL63 GO TO TALLO} 
TALLO? SI@¢POs SIl#SI+83 PO*SIs STeLOC P5353 
. ClecI+#P73 GO TO REP63 GO TO NXT63% 
REP63 REPLACECHRS SyeLoc P53% 
ENDS % 
NXT6! STeST#13 3% 


END STREAM; 


END ELSE 


BEGIN 


GO 


GO 


GO 


GO 


GO 


GO 


TO 


TO 


Ta 


TO 


TO 


REP13 


REP 23 


REP 33 


REPA; 


REPS: 


REP 63 


7 ZREP/TALLY UNTIL 1ST/LEADING 
STREAMCPOCO8L ISTPITOP6sP7¢3=CODE«L4622] sPB<CODE. [4531] 52 
P9*SOURCE)3% 


DI<eDI+P63 Sle*#LOc P53 SleSy*13% . 
P3CO3CO3(CleCI+P83 GO TO REPLI3 GO TO REPUFI3% 
REPLI: IF 4SC#DC THEN JUMP GUT 3 TQ XYTL#GO TO DOITGa3 


REPUF It IF 4SC=DC THEN JUMP QUT 3 TO xYTL3 


% 


DOITI: CleCI+P7s GO TO TALLi3 GO TO TALL1#GO To REP? 


TALL1$ ST*#POs SleSi+83 PO«ST} ST*LOC P53% 


09523100 
09523200 


09523300 — 


09523400 
09523500 
09523600 
09523700 
09523800 


09823900 


09524000 
09524100 
09524200 
09524300 
09524400 
09524500 
09524600 
09524700 
09524800 


09524900 - 


09525000 
09525100 
09525200 
09525300 
09525400 
09525500 
99525600 
09525700 
09525800 
09525900 
09526000 
09526100 
09526200 
09526300 
09526400 
09526500 
09526600 
09526700 
09526800 
09526900 
09527000 
09527100 
09527200 
09527300 
09527400 
09527500 
09527600 
09527700 
09527800 


09527900 


09528000 
09528100 
09528200 
09528300 
09528400 


09528500 - 


09528600 
09528700 


St a st st a a 4 


0221%4 
Q0222%2 
O222%2 
0223322 
022540 
0226414 
022724 
022844 
022982 
022932 
O230%2 
0231%2 
023213 
02333 
023433 
0236!0 
023630 
0236!2 
023753 
023920 
024070 
0244140 
024224 
024284 
024310 
0244:0 
024534 
024684 
024734 
O24dgta 
O248i2 
024910 
02500 


025194 


025294 
025314 
0254t2 
025422 
0255%0 


OR255%4 


025534 
025523 
0260%2 
026181 
0261314 
O262%4 
0264684 
026610 
026782 
026813 


© 


2s. 


Las 


L53% 


L63 


XYTIS 


ClecI+P73 GO TO REP13 GO TO NXT1i3% 
REP1t REPLACECHRS Sre*LOC PS53% 
NXTQ2) SpeSIe1 22323 GO TO Las XYT1% GO TO XYT23 


P3C 2C63CCIeCI+P83 GO TO REPL23 GO TO REPUF2s% 


P3C: 


REPL2? IF 18C40C THEN JUMP OUT 3 TO xYT2sGO TO DOIT2;3 
REPUF231F 1SC#OC THEN JUMP OUT 3 TO XYT2s% 
DOyT2: Clecr+P73 GO TO TALL2s GO TO TALL23GO0 TO REP23 
TALL2@® STePOs SIeS1483 PO|STZ Spel OC PS5% 

CIeCI+P73 GO TO REP23 GO TO NXT25% 
REP2? REPLACECHRS SyeLac PS3% 


NXT2$  STeSIs1 9293 GO TO L33 X¥T2? GO TO XYT33 


CleCi+pas GO TO REPL3? GO TO REPUF33% 
REPL3: IF 4S8¢4DC THEN JUMP OUT 1 TO XYT34G0 TO DOIT3; 
REPUF3tIF 1SC=DC THEN JUMP OUT 1 TO XYT33% 
DOITS! CrecIl+P73 GO TO TALL3%3 GO TO TALL34G0 TO REP3; 
TALL3! STePO3} SIe#SI+A% PO*SIT3 STeLOC PS53% 
CIlecl+P73 GO TO REP33 GO TO NXT33% 
REP3s REPLACECHRS SreLOc  PS53% 


NXT3% SreStel 03 GO TO La; XYT3% GO TO XYT4s 


P2CO3CCIeCI+PA8s GO TO REPL42 GO TO REPUF AIS 


REPL4: IF 4SC4DC THEN JUMP OUT 2 TO XYT43GO TO DOIT4 
REPUFASIF 14SC=DC THEN JUMP OUT 2 TO XYT4s% 

DOIT4! Clecl+P7s GO TO TALL43 GO TO TALL43GO0 To REP43 
TALL 4! SI#PO$ SleSI+9s PO*SI3 ST+LOC P532 

CI*CI+P73 GO TO REP43 GO TO NxT4a3% 

REP4: REPLACECHRS SreLOoc P53¥% 

NXT4$ SI*SI™4t 023 GO TO L53 XYT4$ GO TO XYTS3 
PacCleCI+P83 GO TO REPLS3 GO TO REPUFS?% 


REPLS? IF 48C40C THEN JUMP OUT 4 TO xYT54GO TO DOITS; 


REPUFSSIF 1SC#DC THEN JUMP OUT 1 TO XYT53% 
DOTTS: CleCl+P7% GO TO TALLS? GO TO TALLS3GO TO REPSs 
TALLS3 ST*POs SleSI463 PO*STS SreLOC PSs% 
CIeCI+P73 GO TO REPS GO TO NXT53% 
REP52 REPLACECHRs SrelLoc P53% 
NXT58 STeSIei 0% GO TO L63 XYTS% GO TO XYT3 
PICCleCI+P83 GO TO REPL6O# GO TO REPUFGIS 
REPL6? IF 1SC40C THEN JUMP QUT 1 TO XYT# GO TO DOIT4; 
REPUF6SIF 1SC#DC THEN JUMP OUT 1 TO XYTS% 
DOLT6s ClecI+P73 GO TO TALL6# GO TO TALLO3GO TO REP6; 
TALLO® ST*#PO} STeST4ese POCST STeLOC PSs% 
CIleCI+P73 GO TO REPGS GO TO NXT6s% 
REP6? REPLACECHRS SI*LOC P5322 
NXT62 STe*SIs4 3% 


END STREAMS& 


END32 


IF CODE.£46%11 THEN PCRTN)3% 
END COBOLVARSZ34 


PROCEDURE COBOLIONONDSKS 


BEGIN 


REAL CODE 


% PRONOUNCED COBOL*=IO=NON@DISK 


09528800 


09828900 
09529000 
09529100 
09529200 
09529300 
09529400 
09529500 


09529600 ° 


09529700 


- 09529800 — 


09529900 
09530000 
09530100 
09530200 
09530300 
09530400 
09530500 
09530600 
09530700 
09530800 
09530900 
09531000 
09531100 
09531200 
09531300 
09531400 
09531500 
09531600 
09531700 
09531800 
09531900 
09532000 
09532100 
09532200 
09532300 
09532400 


09532500 
09532600 


09532700 
09532800 


09532900 


09533000 
09533100 
09533200 
09533300 
09533400 
09533500 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
‘ij 
T 
T 
T 
T 
T 
tT 
T 
T 
T 
bf 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
7 
T 
T 
T 
T 
T 
T 
I 


026933 
027083 
027280 
O273%2 
027582 
O277%4 
027833 
028030 
028430 
0282%0 
02831 
O28483 
0286!4 
028732 
O28a!i2 
028973 
029043 
029423 
029330 
029480 
029533 
0297? 4 
O29Rt2 
029923 
030023 
0301%3 
030330 
Q304%4 
030533 
030710 
030820 
O309!%4 
O310%1 
O314%4 
O312%2 
031332 
0315!%0 
031634 
O317%4 
O31a8%2 
O319%2 
0320%2 
032443 
O322%14 
032231 
0322%2 
0322%2 
0324:0 


START OF REL SEGMENTS DISK ADORESS = 


S13 % OFREADsLFWRITEs62WRIBLK 


09600000 T 0000t0 
09600100 T 0000t0 
09600200 T 000030 


SIZE= 0325 wORDS 


00648 
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INTEGER 


LOCALS 


DEFINE 


E DLOC 

L NUMWDS 
KEY 
CHNNL 
LINES 
SKIPBFR 


LINAGE 


REAL IQMASK$ 
ARRAY FIB C13 


REAL FILECTRE 
_ PERFORMGENS 13> 


= 92} z POINTS TO BUFFER 10 DESCRIPTOR 

= 93, % # WOS TO BE WRITTEN 

= <4, % CARRIAGE RETURN 

= 94> % LP CHANNEL SKIP 

= =5, % # LINES TO BE SPACED 

= "63 % 1sSPACE BEFORE PRINT 

= 973 % LINE PRINTER? Citile1 IF LINAGE 
% CLAUSE PRESENT»(33#15]= LINAGE LIMIT 
% ON NEXT END*OF*PAGE 
% FIB ARRAY 

= 12> ® USEn TO CALL COBOLFCR 
% USED FOR PERFORMING USE ROUTINES 


COBOLIODSK= 153 


NAME FLOCS 
ARRAY FPE 
NAME MEM 
ARRAY PGUSE 
REAL 
TaRTs 
 TCWs 
TCDIF, 
UNLTYPE? 
ENDREELSs 
ARRAY DESTL*I3 


BCOUNT 
BINARY 
BF 

BREAK 
BREAKOUT 


BRR 
BUF FNUM 

BUFF SIZE 

BUFF SZ 

BUFTOP 
CHECK (CHECK 1) 
ONERRCONERR1) 


CLOSEANDOPEN 


COUNT 
DELAY 

DISK 

DONE 
ENDFILE 
ENDPROCESS 
EOF 

FNAM 
FOREVER 


® POINTER TO FIB 
= 3C*]3 % FILE PARAMETER BLOCK 
3° 23 % DUMMY DATA DESC 
= 24C%*13 & PROGRAM USE ROUTINES 
% TEMPORARY 
% TECH C8 NUMBER WORDS TO BE READ 
% TECH Cs CACTUAL RECORD = MIN REC) 
% STORE UNIT TYPE FOR MANY TESTS 
% USEp ONLY ON READ 
2 DESTINATION IN MOVEREC 
= [12t12]4> % FILE USE ROUTINE 
= (36912]#» % REEL USE ROUTINE 
= PCOsNOTs CBUFFSIZE*WORDSLEFT I *TIPsINXsSTO DH» 


% THIS INSERTS THE GROUP MARK 


FIBC9]. #2 0 # » & BREAKOUT RESTART POINT 
IFCRCOUNT MOD FIB[9])0 THEN 
PCOsOst2eCOMeNELsDEL #0% CALL BREAKOUT 
L24t12] #» %® REEL USE ROUTINE 
FIBC131,01:9) #. & # OF BUFFS REQUSTED 
FIBC18],C3:151%» % BUFFER SIZE  CREQUESTED) 
FIBLIBICBI8t10]#s % SIZE FOR CONCATINATES 
FIBC16]40% COPY OF TOP I0D% POINTS To BEG BUFF 
IF PCDUPIZXCCHECK1) THEN PCCHECK1 202 FLOC ets 
ONERR1 e947 sCOMsDELsDEL eDELsDEL 3 PCDELI#»s 
%* THE ABOVE ARE USED ON BLOCK4REC. CHKS 


= FIBL6]4#>» % BLOCK COUNT 

= FIB(13],024%:11]4+ % 1eBINARY*O#ALPHA 
= C1811) #. % FILE USE ROUTINE 
=. 


HU Tt HoT of ou 


SPCMKSs 19 OeFLOC,4sFILECTRL» *CLOSE NO RwOd 


MKSeFLOCslsFILECTRL)#> % OPEN INPUT 

FIBLi2] #» % USED FOR BLOCKING TECH*AsB 

TIP,C20%1) #, % THIS ALLOWS ONE CYCLE OELY 

CUNITYPE*C(CFIB6641,08941) 244» 

TIP,CA9%11 #» % 1= 10 COMPLETED 
FIBCS]e¢C4031] #» % ALREADY PASSED EOF 
FIBCS1el39%21#s % SEE OPTIONAL AND ENDFILE 

BCCHPLOC).C278132#s % FIRST EQF OR EDT 

% 
% 


Hunn #8 


= FIBC4] ¢fi3siises FILE NAME INDEX IN FPB 
ZCNOT 0)6(9239] #,> UNTIL END TIME 


09600300 
09600400 


09600500 


09600600 . 


09600700 
09600800 
09600900 
09601000 
09601100 
09601200 
09601300 


09601400 


09601500 
09601600 
09601700 
09601800 
09601900 
09602000 
09602100 
09602200 
09602300 
09602400 
09602500 
09602600 
09602700 
09602800 
09602900 
09603000 
09603100 
09603200 
09603300 
09603400 
09603500 
09603600 
09603700 
09603800 
09603900 
09604000 
09604100 
09604200 
09604300 
09604400 
09604500 
09604600 
09604700 
09604800 
09604900 
09605000 


09605100 


09605200 
09605300 
09605400 
09605500 
09605600 


09605700 © 


09605800 
09605900 


ttt a as se ss st Hs tH 


000080 
000040 
00000 
0000%0 
0000!0 
000080 
000010 
000030 
000080 
00000 
o000t0 
000040 
000080 
0000!0 
0000!0 
000010 
000080 
000080 
000030 
00000 
000010 
000010 
0000t0 


000070 


000010 
0000t0 
000080 
000030 
000080 
000010 
000080 
0000%0 
000080 
0000#0 
000080 
000040 
0000%0 
0000%0 
000030 
000080 


000040 


000070 
000070 
000010 
000010 
0000%0 
0000!0 
000010 
0000%0 
000080 
000080 
0000!0 
000010 
000020 
000020 
000030 
000080 


@eee#eesefetfeee8eeeeee8ee8eee#8e¢e a) 


s 


HOWOPEN 
INFILE 


INVALIDUSER 


INXLINAGE 


IGERRCIOERR1) 


LABELED 
LABEQ 
LBLPTR 
LINAGELIM 
LINEPRINT 
LINTOG. 


LOCOFCTR 


MABUSE 
MAXR 
MAXREC 
MINREC 
NONSTO 
NUMBUF 
NUMREC 
NXTLINAGE 
NXTREEL 


OPTIONAL 
PARITY 
PBIT 
PRESENT 
PROPER 


PUNCH 
RCOUNT 
RCPRT 
READER 
READLBL 


RECPERBLK 


Toe ee re ee eres re er | 


" 


HoT fH 


Hon Tt on oH 


‘4 
= 


~ 
~ 


FIBCS3eCALt3i#s % 10PEN INPUT*#0O= OPEN QUTPT 
% 1 > closeo 
FIBC13),€27:13#, %® FILE OPEN INPUT 
FIBLESI<0#> % INVALID USER NOT PARITY 
PCLOCOFCTReOUPsLODsLINESs ADDs XCH» ©) He 
PCOsFLOCsIOERRIs17sCOMsDELsDELsDEL) #, 
% ABOVE CALLS IOERROR ROUTINE 
NOT FIBLC4), C221] #4» 
FIBCS1].C£17%11 #5 % LABEL EQUATED FROM pISk 
FLOCC1] #e % LABEL POINTER 
FIBCIJ#» % LOGICAL LENGTH OF PRINTED PAGE 
FIBL20] #, 4 CFsi IS PRINTFILE 
LINAGE se (i281) #. * TRUE IF LINAGE PRESENT 
FIBE31#>» * PRT LOC OF LINAGE COUNTER 
FIRC4),€C1211#, % MAY BE USE RTNS PRESENT 
FIBC1817£8236!40]4,% Max REC SZ FOR coNCcATS 
FIBL182,033815]#» % MAX REC SZ 
FIBLI8S].CFF) #» % MINIMUM RECORD SIZE 
FIB £€5),£16% 1]#, % NON#=STANDARD LABELS 
FIBC131.010! 914s % NUMBER OF BUFFERS ASSIGNED 
FIRCI4] #, * RECORDS PER BLOCK 
LINAGE sf33215)#s & PRINTER! LINAGE LIMIT 
PCMKSs2eloFlOce4s % THIS NOES REEL SWITCHING 
FILECTRL D4,» % 
FIBEC 5].039%13%. % OPTIONAL FILE NOT PRESENT 
TIP. C28: 1#» % PARITY BIT ON DESC 
C2%.i#e % PRESENCE BIT 
C*OLOC),C2%13)#%» % CHECKS PRESENTSBIT 


PCCODEsPCOUP ess PC DUP E12,+sREVERSE ste 21e4) Hs 


% GENERATES PROPER IOERROR 
UNITYPE=6#* % UNIT IS CARD PUNCH 
FIBC7) #s % RECORD COUNT 
CFIBEC2ZO].CFFI)#» PRT OF DESC POINTING TO REC 


=C(UNITYPE MOD 1120)#s% O=READER 1i=PSUDOREADER 
=PCOLOC INX O+tte11 % THIS READS THE LABEL. 


= 


$ SET OMIT = TIMESHARING 
=1O#» % DATACOM IS TYPE 14 ON TSS 
FBEGIN PCBUFFSIZEsTIPst»¢=13)COM)3 


ead 


REMOQTEUNIT 
REMOTEREAD 


REMOTEWRIT 


POP OMIT OMIT 


REVERSE 


SETPRESENCEBIT 
SET OMIT = NOTCTIMESHARING) 


SLEEP 


POP QMIT 
SET OMIT = TIMESHARING 


TAPEE 
TECHA 


sCOMsDELaDEL#» % 
HOEO31,030%42] #» % RECOROS PER BLOCK 


PCTIP)$ MOVEREC3 
PCEDLOCCOJ o2+12SUBsRTND3 


END#s 


SBEGIN PCTIP)3 MOVERECS 


PCCOLOCCO1}sSTN);3 % RESTORE TIP 
PCNUMWDSXB8,LINES&KEYECTF]eO2¢"1122COMs 
PELs RTNDS 


END#,» 


cad 
= 


FIB(CS3+([4451] #s & 1=REVERSE 


BPCTIP OR MEM spLOCee)#e% SET PRESENCE BIT 


= 


36 #»s 


TIP.L7%#1) % 1= TAPES O=ALL ELSE 


SCFIBCS)e¢C46%2]21) #9% TECHNIQUE@A 


09606000 
09606100 
09606200 
09606300 
09606400 
09606500 
09606600 
09606700 
09606800 
09606900 
09607000 
09607100 
09607300 
09607400 
09607500 
09607600 
09607700 
09607800 
09607900 
09608000 
09608100 
09608200 
09608300 


09608400 - 


09608500 
09608600 
09608700 
09608800 
09608900 
09608910 
09609000 
09609100 
09609200 
09609300 
09609400 
09609500 
09609600 
09609690 
09610100 
09610200 


09610220 


09610240 
09610260 
09610300 
09610320 
09610340 
09619360 
09610380 


09610390 


09610400 
09610500 
09610600 
09610700 
09610701 
09610800 
09611000 
09611100 


AAA AMMA A 0 tt tt tt 4) tt tt st a tt st A 


000010 
0000%0 
0000!0 
00000 
000010 
0000%0 
0000t0 
000040 
000040 
0000t0 
0000!%0 
g000!0 
000030 
000080 
0000°0 
000030 
0000%0 
000010 
000080 
000080 
0000!0 
000010 
0000tO 
000030 
000080 
000080 
000080 
0000!0 
Q000t0 


o000f0 


000gt0 
000010 
0000!0 
0000:0 
0000t0 
0000t0 
000010 
000010 
0000%0 
000010 
000010 
0000t0 
0000t0 
0000t0 
000010 
Q000t0 
0000t0 
000040 
0000t0 
000010 
000010 
0000t0 
000080 
00001t0 
0000!0 
000030 
0000180 
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TECHC =(FIBC5SJ« [46:2183) #e% TECHNIG 
TERMCTERM1) = P(t» FLOGsTERMis 17s COM)# Se te I/O ERROR 
TIP = (#DLOC) fs % LOAD 1/0 DESC 
TOSZF = (8838:101#» 
UNBLKD = (FIB(51,04632150)4#» % 4 RECORD PER BLOCK 
WAITIO = P(DLOC*#IOMASK, % THIS SLEEPS ON 1/0 

SLEEP» COM*DELs DEL )#2% WAITING FOR A COMPLETE 
WRITEPARITY = FIBLSJ-C3%1I)#, % INDICATES FORCED REELSWITCH 
WORDSLEFT = FIBCI7I #3 % WORDS LEFT IN BUFFER 


LABEL LPRETURNs START» IMPROPER» ROVERSEOFSETCK3 
SUBROUTINE GOUSE$ % CALLS USE ROUTINES 
BEGIN PCMKSs{FIBJs»T»0O*+PERFORMGENDS ENDSS 
SUBROUTINE INPUTPARITY3% 
BEGINS 
IF (CT ¢ RT * PGUSEC4)].BRRI40 THEN GOUSES % INPUT ERROR USE RTN 
IF ¢T ¢ FIBC15].BF) # 0 THEN GOUSE 
IF NOT PRESENT THEN IF NOT CT OR RT) THEN 
IQERR(19 + 10 x REVERSE )5 
SETPRESENCEBIT3 
END INPUTPARITY#% 
SUBROUTINE QUTPUTERRORSS 
BEGIN 
IF NOT EOF THEN % TAPE WRITE PaRITY OR BLANK TAPE 
BEGIN % QDUTPUT ERROR USE ROUTINES 
IF (T ¢ PGUSEL5].BRR)#40 THEN GOUSES% 
IF (T © FIBL151.8F) # 0 THEN GOUSE3 
TERMC20)3% 
END3% 
SETPRESENCEBIT#% 
NXTREEL3 % REEL SWITCH 
END OUTPUTERROR?% 
SUBROUTINE INPUTEOFEORS 
REGIN % EOF OR EOR 
ENDFILE ¢ TRUES% 
SETPRESENCEBIT3% 
IF READER OR REVERSE THEN pene 
IF LABELED THEN 


BEGIN? 
READLBL3* 
STREAMC(SENT¢OsBCeOeRCeOeWPeOtLeS INX LBLPTR)3 
BEGIN. % THIS RETREIVES END OF REEL 


NIe*LOCc SENT; % SENTINEL*BLOCK &@ REC COUNT 
DIeDI+75 Srels STeSir1 7% 
DS#CHR; DSS ACTS DSe7 OCTI2 
Nle*DI+73 OS¢ CHR; 
ENODs% 
IF P=1 THEN WRITEPARITY ©« TRUES 
CHECKCRCOUNT) ONERR(16)3 
CHECKCBCOUNT) ONERRC17 23 
ENDREEL ¢ Pi % STORE SENTINEL 
IF MABUSE THEN 
IF NOT WRITEPARITY THEN 
BEGIN % END INPUT REEL USE RTNS 
IF CTePGUSELL],BRRIZO0 THEN GOQUSEs% 
IF (CTePGUSEL1].¢ARR)#0 THEN GOUSEsS 
IF NOT ENDREEL THENS 
BEGIN % END INPUT FILE USE RTNS 


09611200 
09611300 
09611400 
09611500 
09611600 
09611700 
09611800 
09611810 
09611900 
09612000 
09612100 
09612200 
09612300 
09612400 
09612600 
09612700 
09612800 
09612850 
09612900 
09613000 
09613100 
09613200 
09613300 
09613400 
09613500 
09613600 
09613700 
09613800 


09613900 — 


09614000 
09614100 
09614200 
09614300 
09614400 
09614500 
09614600 
09614700 
09614800 
09614900 
09615000 
09615100 
09415200 
09615300 
09615400 
09615410 
09615500 
09615510 
09615600 
09615700 
09615800 
09615900 
09615950 
09616000 
09616100 
09616200 
09616300 
09616400 


ns a a tt st th a st st st tt st a Ht 


000070 
000080 
0000380 
0000:0 
Q00010 
000080 
000030 
000050 
OO0080 
0000tO 
ood00T0 
0001440 
0002:%3 
000310 
000330 
000780 
0014%0 
0013%3 
001840 
0019%2 
001983 
002020 
002010 
O02LE 1 
002493 
002530 
002920 
003024 
O030%4 
003433 
O033%4 
0033%2 
O034t0 
003430 
003682 
00389O 
0044322 
004283 
004384 
OOa5? 4 
OO4Rty 
004832 
O04Rt3 
Q049%2 
o050%4 
005083 
005420 
OOS 4tes 


005980 


0063%2 
00640 
006510 


006683 


0067!4 
0071440 
007510 
007512 
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IF (Te*PGUSE(11].8 
IF CTePGUSELL].A 
ENDS% 
IF (TeFIB£C2ZI.BRR)40 THEN GOUSES % END 
IF (TeFIBOC2),ARR)40 THEN GOUSES & REEL 
IF NOT ENDREEL THEN 
BEGIN % END FILE USE ROUTINES? 
IF CT*FIBL2].BF)40 THEN GOUSEsSS 
IF CTeFIBL2Z1.AF 240 THEN GOUSE3% 
END3% 
END USEs% 
END LABELEDS% 
IF LABELED AND NOT ENDREEL THEN PC 1LeRTNI3% 
IF NONSTD THEN 
BEGINS 
ENDFILE © FALSE3% 
CLOSEANDOPENS% 
PCLsRTINIF% 
ENDSS 
NXTREEL3% 
PCDEL*DEL)3 % NELETE BRANCH RETURNS 
WRITEPARITY ¢ FALSE 
IF TECHC THEN PCaTCWelLONs »NUMWDSsST0)3 
GO TO START:% 
END INPUTEQFEORS 
SUBROUTINE MOVEREC3 % MOVES RECORD BETWEEN WORK AREA AND BUFFER 
BEGINS 
IF NOT DONE THEN WAITIO#% 
PC*RCPRT»TIP INX O28 
IF NOT PRESENT THEN 
IF CODE TREN 
IF EQF THEN BEGIN QUTPUTERRORS PCDELeTIP INX 0)3 END 
ELSE PCXCHePCDUP) 408210)» eNUMWDSs ISD) 
ELSE IF EOF THEN INPUTEOFEORS 
DEST « IF CODE THEN P ELSE PC(xcH)3% 
STREAMCFROM*PENUMWDSSEeP COUP) C3686]sXeDEST ISS 
BEGINS 
SI¢FROMSECDS€32 WOS3NS*32 WDS)3 DSe*NUMWOS WDS3% 
FND3% 
PCDEL 3% 
WORDSLEFT ¢ *PCDUP) = NUMWDS3 
DLOCCO] « CIF REVERSE THEN NOTCNUMWDS"1) ELSE NUMWDS) INX TIP3 
RCOUNT « *PCDUP) + 43 


7 THEN GOUSE; 
Fd 


F)#0 
F)#0 THEN GOUSE 


% MAY BE ERROR OR EOF 


IF CODE THEN % CHECK FOR 
IF NOT PRESENT THEN OUTPUTERROR % OUTPUT PARITY ERROR 
ELSE ELSE 


IF NOT PRESENT THEN INPUTPARITYS % INPUT PARITY 
IF BREAK THEN BREAKOUT 
END MOVERECORDTOANDFROMWORKAREA; 
SUBROUTINE PREL3 % DOES ACTUAL I,/0 


BEGIN’ 
PCTIPsDLOC»PRLeDEL D3 % DO 10 
BCOUNT «© *PCOUP) + 13 ¥ UP BLOCK CQUNT 
END PREL4% 
SURROUTINE SKIPPERS % DOES SPACING ON PRINTER 
REGIN 


WHILE LINES > 0. )0 


09616500 
09616600 
09616700 
09616800 
09616900 
09617000 
09617400 
09617200 
09617300 
09617400 
09617500 
09617600 
09617700 
09617800 
09617900 
09618000 
09618100 


° 09618200 
09618300 


09618600 
09618700 
09618710 
09618750 
09618800 
09616900 
09619000 
09619100 
096149200 
09619300 
09619400 
09619500 


09619600. 


09619700 
09619800 
09619900 
09620000 


09620100 


09620200 
09620300 
09620400 
09620500 
09620600 
09620700 
09620800 
09620900 
09621000 
09621100 
09621200 
09621300 
09621700 
09621800 
09621900 
09622100 
09622300 
09622400 
09622500 
09622600 


a ts at ss ss tt es a ss st 


00760 
O080FO 
0084t0 
008410 
00880 
0092%0 
0099%o 
009320 
0097!0 
010450 
0104%0 
040440 
010150 
0104%0 
010510 
0105%2 
0108%0 


O1Lote2 


0111480 
011440 
O1Late 
0113°0 
O115%2 
Oliai2 
011940 
OL19%4 
012040 
012010 
0123%4 
012533 


012710 


012783 
0132084 
OL34t4 
0137380 
013930 
O14yt4 
O141%4 
014344 
0143%2 
O143%3 
014533 
015084 
O152%4 
0152%2 
0155%2 
0156%2 
0160!0 
0165484 
0165%2 
016630 
016640 
0167%o2 
016982 
016983 
017080 
0170380 


Cr er ee er ee ee ee ee ee ee ee a a a a 2 Vr 2 Se ver, | 


BEGIN 
IF NOT DONE THEN WAITIO; 
IF NOT PRESENT THEN OQUTPUTERRORS 
DLOCCO] «© TIP & 401824724) & 16[27242:613 
IF LINES = 4 THEN 
DLOCCO] « TIP & 2027;46:2)3 
PREL3 
LINES ¢ LINES = 23 
END3 
FNM SKIPPINGALLTHOSELINES? 
SUBROUTINE GOLP3 
REGIN 
IF LINTOG THEN INXLINAGES 
IF NUMWDS > 47 THEN NUMWDS e& 173 
IF MAXREC > 17 THEN MAXREC ¢ 173 
RT © BUFFSIZE = WORDSLEFT3 % £0 MEANS DATA PRESENT 
IF NOT UNBLKD THEN 
BEGIN : 
IF TECHC THEN 
BEGIN 
IF NUMWOS > MAXREC THEN NUMWDS «© MAXREC3 
IF NUMWOS $ Q THEN TeERM¢(36)3 
END3 
IF NUMWDS > WORDSLEFT THEN SKIPBFR ¢ TRUE 
ELSE BEGIN MOVEREC3 GO LPRETURN} END3 
END; 
IF CHNNL # O THEN LINES ¢ 03 
IF SKIPBFR THEN 
BEGIN 
IF NOT DONE THEN WAITIOS 
IF NOT PRESENT THEN QOUTPUTERROR3 
DLOCLTO} « FLAGCBUFTOP &@ (RT = 0) £1854791) 
&RT TOSZF 
. &CLINES>0)£2724692] & CHNNLE 29844841793 
TF LINES = 1 THEN DLOCLOI]*TIP & 2£27:346:2)3 
PREL 3 
WORDSLEFT «© BUFFSIZE; 
IF CLINES « LINES * 2) > © THEN SKIPPER; 
IF UNITYPE=12 THEN IF NOT DONE THEN WAITIO; 
BUFTOP,CCF] «© TIPS 
MOVEREC}. 
ENO ELSE 
BEGIN. 
IF RT # 0 THEN 
BEGIN 
DLOCLO] © FLAGCBUFTOP & Of27%4226) 
@ RT TOSZF)3 


% MAKES THY PRYNTER GO 


PREL3 
WORDSLEFT « BUFFSIZE3 
IF UNITYPEs12 THEN IF NOT DONE THEN WAITIO;3 
BUFTOP.CCF] « TIP} 
END} 
MOVERE C3 
OLOCLO] « FLAGCBUFTOP & CLINES>O)(2724632] 
& CBUFFSIZE#WORDSLEFT) ToSZF 
& CHNNL (€29844%4))3 
IF LINES = 4 THEN DLOCCOIJ+TIP & 20272468213 


09622700 
09622800 
09622900 
09623000 
09623100 
09623200 
09623300 
09623400 
09623500 
09623600 
09624600 
09624700 
09624800 
09624810 
09624820 
09624900 
09625000 
09625100 
09625200 
09625300 
09625400 
09625500 
09625600 
09625700 
09625800 
09625900 
09626000 
09626100 
09626200 


09626300 


09626400 
09626500 
09626550 
09626600 
09626700 
09626800 
09626850 
09626900 
09627000 
09627100 
09627200 
09627300 
09627400 
09627500 
09627600 
09627700 
09627750 
09627800 
09627850 


09627900 


09628000 
09628100 
09628200 
09628300 
09628350 
09628400 
09628500 


a a 00 a ts Ht a a ta 


018384 
0184:0 
0185%4 
018523 
01860 
018640 
018630 
0189%4 
O191%4 
O195%4 
019732 
0199%0 
0199%2 
020170 
020442 
020520 
O207ta 
0207%2 
0209%4 
0211%2 
021122 
O213t2 
021333 
O214%4 
O217%2 
0220°0 
022144 
022241 
022542 
022982 
023130 
0233:0 
023640 
024082 
Q2423%3 
024410 
024440 
O244t2 
O245%4 
0245:%3 


024622 


024920 
025020 
025220 
02546%2 
025873 
025813 


026010 


026444 
026323 
0266134 


=) 


PREL3 
WORDSLEFT « BUFFSIZE3 
IF (LINES ¢ LINES = 2) > 0 THEN SKIPPERS 
IF UNITYPE=12@ THEN IF NOT DONE THEN WAITIO3 
BUFTOP,CCF] «© TIP3 
END} 
LPRETURNS 
IF LINTOG THEN IF C¥PCLOCOFCTR))2LINAGELIM THEN 
BEGIN 
P(OsLOCOFCTRsSTD)3 
LINAGELIM «* NXTLINAGES 
P(1»RTN)3 
END} 
P(COsRTN)3 
END GOINTOPRINTER} 
SUBROUTINE WRITS % WRITES A BLOCK 
BEGIN 
DLOCLO} © FLAGCBUFTOP & (BUFFSIZE*WORDSLEFT) TOSZF)3 
IF TAPEE THEN IF NOT BINARY THEN ARROW ELSE 
ELSE IF PUNCH THEN DLOCCLO} ¢ TIP & CHNNLOE 328479433 
PREL} 
WORDSLEFT © BUFFSIZE3 
BUFTOP.[CF] « TIP3 
END WRIT3% 
SUBROUTINE REED; 
BEGINS 
DLOECO] « FLAGCFIBL161)#% 
PREL 3&2 
BUFTOP,CCF] « TIP3% 
WORDSLEFT © 0} 
END REEDS 2 
ELALLLLSELEEYLALA LLL GSLELAALHALY START HERE AHSKLVRVEAFLKLULRAVYLLLLULLYY 
FIB «© *(FLOG «© CNOT 2) INX DLOCD3% 
IF FPBCFNAM4+3],£4226]*43 THEN % DUMMY 
IF CODE=O THEN GO EQFSETCK ELSE PCOsRTN)D3 
IF DISK THEN GO TO PECOBOLIONSKI32% 
IOMASK © @20000000003% 
STARTIIF NOTCENOPROCESS=0Q OR CODE) THEN GO TO EOFSETCK3 
IF CODE > 1 THEN % SHOULD BE WRITE BLOCK 
REGIN 
IF CODE ¥ 6 TREN TERMC25)3 % UNRECOGNIZED CODE 
IF HOWOPEN # 0 THEN GO IMPROPER} % 10 ERROR 
IF WORDSLEFT < BUFFSYZE THEN 
IF LINEPRINT THEN GOLP ELSE WRIT; 
PCOsRTN)3 
END WRITEBLOCK; 
IMPROPERSIF C1*CODE)4HOWOPEN THEN % CHECK USE vS HOW OPEN 
IF HOWOPEN?>1 THEN TERMC314+CODE) % CLOSED 
ELSE TERMCPROPER)3% % USAGE 
IF UNITYPE=10 OR UNITYPE213 THEN 
BEGIN 
IF CODE THEN REMOTEWRITS 
REMOTEREAD3 
ENDS 
IF CODE THEN % WRITE A RECORD 
IF LINEPRINT THEN GOLP ELSE 
BEGIN 


% READS A BLOCK 


09628600 
09628650 


09628700 © 


09628800 
09628900 
09629100 
09629200 
09629300 
09629400 
09629500 
09629600 
09629700 
09629800 
09629900 
09630000 
09630900 
09631000 
09631100 
09631200 
09631300 


09631400 


09631500 
09631600 
09631700 
09631800 
09631900 
09632100 
09632200 


09632300 


09632500 
09632700 
09632800 
09632900 
09632910 
09632920 
09633000 
09633100 
09633200 
09633300 
09633400 
09633500 
09633600 
09633700 
09633800 
09633900 
09634000 
09634200 
09634300 
09634400 
09634500 
09634600 
09634700 
09634800 
09634900 
09635000 
09635100 
09635200 


AAA AA HMMA AA HH 0 Ft tt A tt st st a A A st ts a 


026942 
0274130 


027340 


027610 
O280%2 
0289:3 
028233 
028233 
O288!2 
028630 
0287:0 
028843 
028984 
028984 
028983 
029080 
029020 
0290140 
029323 
030034 
O304%o 
030630 
030810 
O310%1 
O310%2 
031420 
031170 
O312%4 
031380 
O315%4 
031682 
03164:3 
031633 
0324%3 
0324%2 
032633 
032933 
Q0330%2 
03331%0 
033333 


O334%4 


033633 
O338t3 
O340:%2 
0346t0 
0346%2 
034642 
0348402 
03523 
035743 
035932 
0360t0 
036532 
03714%4 
O371%4 
037432 
037480 


eS i Sy ay i a ae % 


IF TECHC THEN 
BEGIN 
IF NUMWDS > MAXREC THEN NUMWDS « MAXREC3 
IF NUMWDS > WORDSLEFT THEN WRITS 
IF NUMWDS « MINREC THEN TERM(36)3 
ENDS 
MOVERECS3 
IF WORDSLEFT < MINREC THEN WRITS 
PCOs*RTND} 
END3 
% READ A RECORD 
ROVER: IF WORNSLEFT < O THEN 
BEGIN % A NEW BLOCK WAS READ 
IF NOT DONE THEN WATTIOS 
WORDSLEFT ¢ 
MEMCC TF REVERSE THEN 1 ELSE NOT 0) INX TIP]; 
IF REVERSE THEN DLOCLO) © NOTCMAXREC#2) INX TIP3 
ENDS 
IF TECHC THEN 
BEGIN 
NUMWDS © PC.NUMWDSsLODs «TCWeSTDeMINREC)3 
MOVERECS 
IF CTCWeTCW) > MAXREC THEN TCW « MAXREC3 
IF TCW. < NUMWDS THEN 
IF (TCWSO0) AND CWORDSLEFT#NUMWDS#=1) THEN 
BEGIN 
REED; 
RCOUNT © *PC(DUP) © 13 
GO ROVERS 
END ELSE TERMC26 * (TCWZ0))3 
IF (CTCDIF « TCW = NUMWDS) > 0 THEN 
BEGIN 
STREAMCTCDIFsE*P COUP) «f 3686)» 
FROMe TIP INX Os 
DEST © NUMWDS INX €*RCPRT))3 
BEGIN SI «© FROM$ 
E(DS*32 WOS$ OS«32 WDS)5 
oS « TCDIF wos 
END STREAM3 
DLOCLO} «+ TCDIF INX TIP? 
WORDSLEFT ¢ *PCDUP) = TCOIF3 
NUMWDS ¢ Tew 
END: 
PCRCPRTsOUPsLODsNUMWDSsDIA 382DIB Se TRB 10»XCH»STD)} 
END % TECH C FILE READING 
ELSE MOVEREC$ . 
IF WORDSLEFT ¢ 0 OR UNBLKD THEN REEDS 
PCO*#RTND3 
EQFSETCK: 
IF ENOFILE THEN TERMC15)3 
ENDFILE ¢« TRUE: 
PoysRTNd3 
END COBOLIONONDISK3 


09635300 
09635400 
09635500 
09635600 
09635700 
09635800 
09635900 
09636000 
09636100 
09636200 
09636300 
09636400 
09636500 
09636600 
09636800 


09636900 


09637000 
09637100 
09637200 
09637300 
09637400 


09637500 


09637600 
09637700 
09637800 
09637900 
09638000 
09638100 


09638200 


09638300 
09638400 
09638500 
09638600 
09638700 
09638800 
09638900 
09639000 
09639100 
09639200 
09639300 
09639400 
09639450 
09639500 
09639550 


09639600 © 


09639700 
09639800 
09639900 
09640000 
09640100 
09640200 
09640300 
pasate ad. 


037432 
037430 
0376!%2 
038080 
0383!0 
0386!2 
0386%2 
0388320 
039280 
039282 
0392%2 
O039ate 
0393%2 
0394%0 


039784 


039783 
040282 
040730 
0407190 
O40R%9 
040950 
041433 
041320 
O417%0 
O4t7t3 
042033 
O421%1 
0422:0 
042020 
042442 
042784 
042980 
042912 
0430%3 
043423 
043450 
O434%4 
0435%2 
043620 
O436t4 
0437!3 
043983 
044022 
0440%2 
0464333 
044323 


044510 


044950 
044922 
044980 
045034 
045433 
045544 


ZE= 0456 WORDS 


=) 


PROCEDURE COBOLIODSK3 


ALOCALS 


09700000 


START OF REL SEGMENT OISK 


BEGIN 

REAL RCW = +03 ZUSED TO CALL COBOLIONONDSK 

REAL CODE #43 & OBREADs LEWRITEs 2=SEE Ks OFWRTIBL Ks 
NAME OLOC = "23 % POINTS TO BUFFER I/Q DESC 

REAL NUMWDS =.933 %’ # WoS TO BE WRITTEN 

INTEGER BS 3 % USED IN COMPUTING DISK ADDR 


REAL COBOLIONONDSK= 443 
REAL DEST ; 

ARRAY FIB [*]3 

NAME FLOC3 

ARRAY FPB = 3f%]3 
ARRAY HC¥]3 

REAL INTINT = 53 
NAME MEM = 23 

NAME PERFORMER = 133 
ARRAY PGUSE=24C*]} 
INTEGER RT 3 

REAL TS 

INTEGER ASS 


DESTINATION IN RANDOM MOVE 
FI8 ARRAY 

POINTER TO FIB 

FILE PARAMETER BLOCK 

DISK FILE HEADER 

INTRINSIC INTRINSIC 

DUMMY DATA. DESC 

USED FOR PERFORMING USE ROUTINES 
PROGRAM USE ROUTINES 

USED IN COMPUTING DISK ADOR 
TEMPORARY 

USEp TO COMPUTE DISK ADDRESS 


we ae Bf 328 ae Be Bl BE BL Be Be DE 


$ SET OMIT = NOT SHAREDISK 


DEFINE 


FILE USE ROUTINE 


AF = [12:12] 4, % 
ARR = 36212) #» % REEL USE ROUTINE 
BCOUNT = FIBL4]#, % BLOCK COUNT 
BF = fiti1ies % FILE USE ROUTINE 
BOUNDED = FIBEG] el 2t1)#, % TRUE IF BOUNEO FROM ABOVE 
BREAK = FIBLS] # 0 # s %& BREAKOUT RESTART POINT 
BREAKOUT = ITFCRCOUNT MOD FIBL9])50 THEN 
PCOsQst2eCOMsDELe DELI #2% CALL BREAKOUT 
BRR = C2491L2]#> % REEL USE ROUTINE 
BUFFNUM = FIBCI3].01:9)] #, %& # OF BUFFS REQUSTED 
BUFFSIZE = FIBC1AI,C3815)4#, & BUFFER SIZE CREQUESTED) 
BUFFSZ = FIBLIBIL8IBs10)]#» & SIZE FOR CONCATINATES 
BUF TOP = FIB £16]#s % USED ON Teo AND RANDOM 
COUNT => FIBC12] #» % USED FOR BLOCKING TECR™ArB 
DINXPRT = PC#RCPRT & TIP ECTC]*+RCPRT»s¢)#»%UPDATE POINTER 
DONE = TIP,Ci9%t1] #,» * 4= YO COMPLETED 
or13K = (CUT sa) #,s * DISK IS UNIT TYPE OF 4 
ERBIT = FIBC13].019%1) #» % IQERR 19 NOT YET SPOUTED 
FLAGINWA = OCLILIL Ta, % SAYS WE ARE IN WORK AREA 
FNAM = FIBCAl¢f13t1134%. % FILE NAME INDEX IN FPB 
ENDFILE = FIBL5].C40°1)] #5 & ALREADY PASSEO EOF 
ENDPROCESS => FIBCS)eC39t2l#s % SEE OPTIONAL AND ENOFILE 
EOF FCC#OLOC) £27:147)2#, 2 FIRST EQF OR EQT 
GETSEG = PCFPBCCBSIt=FNAM) 43] eFPBLBSJsFPBLBS+4+11, 
ToHe Gril esCOMeDELeDELsNELsDEL sDELs DEL) 4» 

KEY = FIBCI5],€0i2:iol#, % REL PRT LOC OF ACTUAL KEY 
HAVEWA Z=CINWA OR FIBC20],{(CFI>1)4#0% TRUE IF WE ARE NOW 

%ZIN WORK AREA OR HAVE MADE IT PRESENT PREVIOUSLY 
HOWOPEN = FIBC5].C4AL°3) 4. % 1SOPEN INPUT*QO= OPEN QUTPT 

% 14> cLOSED 

INVALIDUSER = FIBC5)]<08> % INVALIO USER NOT PARITY 
INWA = FIBC20)20#> % SAYS WE ARE IN WORK AREA 
INXPRT = PCNUMWOS INX «#RCPRT@RCPRTe¢)4#2% UPDATE POINTER 


09700100 
09700200 
09700300 
09700400 
09700500 
09700600 
09700700 
09700800 
09700900 
09701000 
09701100 
09701200 
09701300 
09701400 
09701500 
09701600 
09701700 
09701800 
09701900 
09702000 
09702004 
09702100 
09702200 
09702300 
09702400 
09702500 
09702600 
09702700 
09702800 
09702900 
09703000 
09703100 
09703200 
09703300 
09703400 
09703500 
09703600 
09703700 
09703800 
09703900 
09704000 
09704100 
09704200 
09704300 
09704400 
09704500 
09704600 
09704700 
09704800 
09704900 
09705000 
09705100 
09705200 
09705300 
09705400 


a nas ss a ss ts os 


000040 


DORESS = 


000030 
000010 
000010 
0000%0 
000010 
0000t0 
0000t0 
0000t0 
000080 
00000 
0000!0 
000010 
000040 
00000 
000080 
000010 
000080 
000010 
000010 
000080 
000030 
000080 
0000:0 
000080 
000010 
0000!0 
000010 
0000:0 
000080 
0000%0 
0000%0 
000030 
000080 
000010 
000080 
000080 
0000%0 
0000t0 
000080 
000010 
000010 
0000?0 
000010 
00000 
0000t0 
000010 
000010 
000080 
000010 
000080 
000080 
o000to 
000010 
0000!0 
0000t0 


00664 
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TOERRCIOERR1) 


IOMASK 
LASTBONE 
LBLPTR 

LSUBL 

LSUBU 

MABUSE 
MAKEPRESENTWA 
MAXR 


_MAXREC 


MINREC 
NOAIT 

NUMBUF 
NUMBSPC 
NUMREC 
OPENIO 
PARITY 

PRIT 
POINTPRTTOBUF 
POINTPRTTOWA 
PRESENT 
PROPER 
RCOUNT 


RCPRT 


RECPERBLK 
REDECWA 


REEDING 
RESETPANDERBIT 
RESETREADBIT 
REVERSE 
ROWLGTH 
SAVEWADDR 
SERTAL 
SEGPERBLK 
SETPANDERBIT 


SETPRESENTSBIT 
SETREADBIT 


unten e onan aan anne nan 


8 


aoujon 


HPN HH HOU OH oH 


PCOsFLOCs+TIOERRI +17» COM*DEL DEL »DEL) #» 

% ABOVE CALLS IQERROR ROUTINE 
OR1E19% 4781) #» % WSED TO WAIT FOR LOFINISH 
FIRC13],€21:1) #, % NOT OF LAST OPERATION DONE 


FLOCCi] #, * LABEL POINTER 

FIB C1) Hs % LOWER BOUND FOR RANDOM 
FIB C3] #, % UPPER BOUND FOR DISK REC 
FIBCG]eCitij4, % MAY BE USE RTNS PRESENT 


PC*RCPRT & 1 (CTC) s0sCDC)#, 
FIBC18]08838%40)]#2% MAX REC SZ FOR CONCATS 
FIBL18] €C33215]#» % MAX REC SZ 

FIBLI8),°CFI]#, MINIMUM RECORD SIZE 
FIBCZ20] 0321) #» AIT FOR WA WAS DESTROYED 
FIBCIi33.C10$ 9) 4, NUMBER OF BUFFERS ASSIGNED 
H(O91.04325] #4, NUMBER OF ROWS SPECIFIED 
FIBCi1] #, RECORDS PER BLOCK 
FIBC13),C22%134, 15 OPEN INPUT@QUPUT COISK) 
FIBECI3],£20%1) #, IQ ERROR OCCURED IN BLOCK 
C2tyles PRESENCE BIT 

PCCHRCPRT OR MEM) & TIP CCTCI]s¢RCPRY se) fp 
PC*¥RCPRT & FIBE20] CCTCISRCPRT ee) He 
CC¥DLOC),C2%1])#>» % CHECKS PRESENTSBIT 


BR BE GE Be RE BQ 2E TC 


REVERSE*+CODE+CODE+21#2%GENERATES PROPER IOERR 


FIBL?] #9. % RECORD COUNT 
CFIBC2Z01.CFF1)#, ZPRT OF DESC POINTING TO REC 
HLO1.,C30%121 #s % RECORDS PER BLOCK 
PCMKSsRCPRTsMAXRECs leds ts INTINT) Hs 

% DECLARE SAVE ARRAY FOR WORK AREA 
CO*DLOC).£2424))#22%L AST ITO WAS READ 
FIBCIZ]2=*PCOUPROLL9819221]#s%RESET ERR BITS 
OL2asedsiiks % USED TO TURN OFF READ BIT 
FIB(S5].C4481] #s %& LeREVERSE INPUT 

H{iLl#» % ROW LGTH FROM HEADER 
FIBLC2Z0] ©*PCDUPI&*PCRCPRTICCTCIl#s% SAVE ADDRESS 
FIBCA]+C 2793150 #2% FILE ACCESS = SERIAL 
HOLO1,CA216) #,y % SEGMENTS PER BLOCK 
FIBCIZI2=*P(nUPIa3C19146t2) Hs 

% SET PARITY AND IQERR 19 BITS 


=PC(TIP OR MEM sOHLOCs¢)#e% SET PRESENCE BIT 


= 
= 


1C2GtA7 tL lH, ZUSED TO TURN READ BIT ON 


$ SET OMIT = NOTCTIMESHARING) 


SLEEP 


$ POP OMIT 
$ SET OMIT = TIMESHARING 


LABEL 
LABEL 


TECHA 
TERMCTERM1 
TIP 

TOSZF 
TOTREC 

UT 

WA 

WAITIO 


WORDSLEFT 
WRITBACK 


~ 
- 


HER T Hf How Noa 


= 
= 


“36 Fs 


CFIBC5).C46%2}51)#9% TECHNIQUE@A 
PCL»>FLOCsTERM1 2175 COM) #e%TERMINATE 1/0 ERROR 


C*DLOC) #, % LOAD 1/70 DESC 
C8238810] 4, * TO SIZE FIELD 
HE 7] tt» % TOTAL RECORDS ON FILE 


(FIBL41],0C8%4])#s % HARDWARE TYPE 
PCRCPRTsOIB 9,L00)4%e% LOAD WORK AREA PTR 
PCDLOC» IOMASK, % THIS SLEEPS ON I/O 


SLEEPsCOM*DELepEL #4 WAITING FOR A COMPLETE 


FIBCI7I]#s -% WORDS LEFT IN BUFFER 
FIBC13],C23%114#3 4 FLAG TO SAY WRITE BACK 


MOOVE »sFLOTE» SEEKRTN» START» READREVS 
SERTALIOs SIOEOD»RNDEOD»EUFSETCKS 


09705500 
09705600 
09705700 
09705800 
09705900 
09706000 
09706100 
09706200 
09706300 
09706400 
09706500 
09706600 
09706700 
09706800 
09706900 
09707000 
09707100 


09707200 - 


09707300 
09707400 
09707500 
09707600 
09707700 
09707800 
09707900 
09708000 
09708100 
09708200 
09708300 
09708400 
09708500 
09708600 
09708700 
09708800 
09708900 
09709000 
09709100 
09709200 
09709300 
09709400 
09709500 


09709600 - 


09709604 
09709700 
09709900 
09710000 
09710100 
09710200 
09740300 
097104600 
09710500 
09710600 
09710700 
09710800 


09710900 


09711000 
09711100 


AAA AH AS AA HA tt 9 tt a 44 Has 


00000 
000010 
000080 
00000 
Q000%0 
000010 
00000 
000010 
00000 
0000t0 
000010 
000010 
000080 
0000!0 
00000 
0000%0 
00000 
000010 
000080 
000080 
000010 
0000t0 
0000t0 
000010 
000070 
0000!0 
0000t0 
0000!0 
oo00t0 
000030 
000010 
000080 
000010 
000010 
000080 


000070 


00000 
o000'0 
0000%0 
000080 


000080 


0000%0 
0000t0 
000080 
0000%0 
000080 
000080 
000040 
000080 
000030 
0000%0 
000030 
0000!0 
000040 
000080 
000030 
000030 


e 
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ABEL ERRENDsMOOVERRsREREADs LCKHANDLER? 
UBROUTINE GOQUSE; & THIS CALLS USE ROUTINES 
BEGIN 
PCMKS»T»sOsPERFORMER)} 
END GOUSE; 
SUBROUTINE ERROR; 
BEGIN 
IF REEDING AND CODE AND CNUMRECS1) 
$ SET OMIT = NOT SHAREDISK 
THEN % SKIP ERROR CODE 
ELSE BEGIN 
~ TF OPENIO THEN IF  CT&=RTt=PGUSEC4],ARR) £ O THEN 
GOUSE ELSE ELSE ZWAS ERROR ON IO 
IF REEDING AND CNOT CODE) THEN READ ERROR 
IF (TS2RTt=PGUSEL41,BRR) #4 0 THEN 
GOUSE ELSE ELSE 
IF (Ts=PGUSEC5],BRR) #4 0 THEN GOUSE; WRITE ERROR 
IF CT*FIBLi5].BF) #4 0 THEN GOUSE; % ERROR ON FILE#N 
$ SET OMIT = NOT SHAREDISK 
IF REEDING AND (NOT CODE) THEN 
BEGIN CHECK USE PROC FOR 
Ik ERBIT THEN ZINPUT ERRORS 
IF ¢T OR RT) = O THEN TOERR(19)3 
ERBIT 82 FALSE$3 
END ELSE TERM(20)3 ZWRITE ERR TERM 


&2THIS PROCESSES ALL ERRORS 


ENDS 
ERRENDS 
END ERRORS 
SUBROUTINE MOVERECS ZMOVES DATA TO AND FROM WORKAREA 
BEGIN 
IF NOT DONE THEN 
$ SET OMIT = NOT SHAREDISK 


* OONT MOVE TILL IO DONE 


WATTIO; 
IF NOT PRESENT THEN 
BEGIN GOT AN ERROR 
SETPRESENTSBIT3 
SETPANDERBITS ZSET ERROR FLAGS 
$ SET OMIT = NOT SHAREDISK 
If NOT REEDING THEN 
BEGIN ERROR ON OUTPUT 
DEST t= WA} “MOVE FIRST RECORD 
PCTIP INX 193 TO wORK AREA 
GO MOOVE; 
END; 
$ SET OMIT = SHAREDISK 
ENDs 
$ POP OMIT 
$ SET OMIT = NOT SHAREDISK 
PCBUFTOP INX(BS*NUMWOSx¢RCOUNT MOD NUMREC)+ 1793 
WAS ZMQVE TO/FROM WA 
DEST © IF CODE THEN PCXCH) ELSE PE #FOR READ OR WRITE 
MOOVE? STREAMCFROM©P SNUMWDSsE*P (DUP) «CL 3785) sDEST+P(*PC,DEST)))3 
BEGIN 


STt=FROMZ ECDSt=32 WOS3 OSt=32 WOS)3 NS*SNUMWDS WDS; 
END STREAMS 

PCDEL DS 

IF PARITY THEN 


09711150 
09711200 


' 09711300 


09711400 
09711500 
09711600 
09711700 
09711800 
09711809 
09711620 
09711900 
09712000 
09712100 
09712200 
09742300 
09712400 
09712500 
09712600 
09712609 
09712700 
09712800 
09712900 
09713000 
09713100 
09713200 
09713300 
09713350 
09713400 
09713500 
09713600 


097143700 
09713709 


09713750 
09713800 
09713900 
09714000 
09714100 
09744104 
09714200 
09714300 
09714400 
09714500 
09714600 
09714700 
09714799 
09714800 
09714801 
09714809 
99714900 
09715000 
09715100 
09715200 
09715300 
09715400 
09715500 
09715600 
09715700 


AAA AA NAMA A MM Ht Ht Ht tt tt tt st st tt ot tt 


oekeleR ae) 
00000 
0001!%0 
00014:0 
000270 
0002at41 
000380 
0003%0 
000534 
0005%4 
000533 
000633 
0010:3 
0012%2 
0014!3 
001733 
0019%2 
002480 
002830 
002830 
002933 
0030%% 
003124 
003510 
O03810 
003933 
00393 
0039123 
004080 
O040to 
004030 
0044,%4 
0041434 
OO44s4 
O04Sta 


004680 - 


O047%2 
005020 
0050%0 
QO54¢%4 
005123 
005420 
005510 
O0055t2 
0058%0 
O055t2 
0055ie 
005512 
0055%2 
005980 
006033 
0062:3 
0065%0 
0065380 
006710 
006784 
006782 


a | 


BEGIN 
MOOVERR: ERROR 
$ SET OMIT = NOT SHAREDISK 

END; 


END MOVEREC3 
$ SET OMIT = NOT SHAREDISK 
SUBROUTINE OISKANDRESS$ 
BEGIN 


ZTHIS COMPUTES THE DISK ADDRESS READ & WRIT 


RT ¢ SEGPERBLK x DAS; % REL SEGMENT NO 
IF PCRT DIV ROWLGTHsOUP) GEQ@ NUMBSPC THEN 
ee BEGIN 
~$ SET OMIT = NOT SHAREDISK 
PC4sRTN)3 
END? 
IF CBS*HECTe P + 10)]) = © THEN 
BEGIN 
GETSEG; 
IF HOWOPENZO THEN IF NOT OPENIO THEN TOERR( 22); 
BS « HET]; 
END3 
STREAMC A ¢ BS « BS + RT MOD ROWLGTH, 
BeTeBUFTOPs(CFJeCrF CODE THEN O ELSE WRITBACK))3 
BEGIN SIeLOC A} NS*B DEC3 ENDS 
“$ SET OMIT = NOT SHAREDISK 
END DISKADDRESS3 
SUBROUTINE ROTATEBUF 3 
BEGIN 
IF NUMBUF > 4 THEN 
PCNUMBUF sDLOCe13etiscOMeDEL»DEL»DEL)3 
WORDSLEFT t= BUFFSIZE} 
RESETPANDERBIT3 
FIBCI63,0CF] ss TIP; 
END ROTATEBUF 3 
SUBROUTINE PRELS | 
BEGIN 
PC. TIPsDL Oc)? 
IF WRITBACK THEN 


’THIS ROTATES BUFFERS 


& THIS DOES ACTUAL 170 


% O00 SPECIAL WRITE*IO 


BEGIN 
WRITBACK © FALSE} % TURN OFF READ BIT 
DLOCLOJ¢ TIP&RESETREADBIT#% TO MAKE WRITE 

END3 

PCPRLDELI3 | % DO 1-0 

IE BREAK THEN BREAKOUT; 

END PRELS 
SUBROUTINE REED; &THIS READS BLOCKS 
BEGIN 


WORDSLEFT t= BUFFSIZE; 

NLOCCO] = FLAGCBUFTOP & SETREADBIT)3 %TQ RESET 1OD 
CODE « PCCODEs0)3 

NISKADDRESS; 

CODE ¢ P3 


_ § SET OMIT = NOT SHAREDISK 


MEMEBUFTOP INX NOT 2] © DAS; % SAVE BLOCK NUMBER 
—PREL? 
FIBLi6],(CCFJ s= TIPS 
END REED> 
SUBROUTINE WRITS 


4SAVE BUFF ADDRESS 
THIS WRITES BLOCKS 


09715710 
09715730 
09715739 
09715760 
09745800 
09715809 
09715900 
09716000 
09716100 
09716200 
09716210 
09716219 
09716240 
09716250 
09716300 
09716400 
09716500 
09716600 
09716700 
09716800 
09716900 
09717000 
09717100 
09717109 
09717200 
09717300 
09717400 
09717500 
09717600 


09717700 - 


09717800 
09717900 
09718000 
09718100 
09718200 
09748300 
09718400 
09718500 
09718600 
09718700 
09718800 
09718900 
09749000 
09719100 
09719200 
09719300 
09719400 
09719500 
09719600 
09719700 
09719800 
09719804 
09719900 


09720000 © 


09720100 
09720200 
09720300 


a ts ns as st st tt 


0068:2 
006930 
007080 
007080 
OOTOLO 
O07OF 4 
OO708%4 
007410 
007430 
0073380 
007522 
0076t0 
007630 
O074t2 
007632 
O07TR:3 
007984 
008630 
009423 


009213 


009283 
009580 
0099%2 
OL0034 
0100? 
0100%2 
010440 
010140 
0102:2 
010543 
010723 
O110%1 
O112%2 
011233 
011320 
011340 
011333 
O114%3 
O115%4 
011733 
011923 
011933 
0120%2 
012543 
0126%0 
012630 
0426320 
0128%0 
OLl30%4 
O13%4 
013270 
Ol32%2 
013242 
O135!%0 
0136%0 
Q138%4 
O138%2 


@®eeeee#eeeee%e?ee¢6¢ @ 06 6 ¢ © @ @ @ @ 


BEGIN 
WORDSLEFT *= BUFFSIZE3 


WRITBACK © FALSE3 


NAS #& BCOQUNTS ZBLOCK ADDRESS 
DLOCCO] t= FLAGCBUFTOP & RESETREADBIT)& *RESET 10D 
DISKADDRESS; 

$ SET OMIT = NOT SHAREDISK 
PREL3 


FIBL16],CCF] ss TIPS KSAVE BUFF ADDRESS 
IF NOTCSERIAL) THEN BCOUNT #= MEMECBUFTOP INX NOT 213 


END WRITS 
SUBROUTINE SEEK %THIS FINDS AND/OR READS BLOCKS 
BEGIN i 
IF (DAS « RCOUNT DIV NUMREC) = BCOUNT THEN 
BEGIN 


$ SET OMIT = NOT SHAREDISK 
“GQ SEEKRTN3 
END} 
IF SERTAL THEN 
BEGIN 
IF NOT HOWOPEN THEN 
_ BEGIN SNOT INPUT 
IF RCOUNT < TOTREC THEN TOTREC i= RCOUNT3 
IF NUMREC > 1 THEN 
BEGIN — ABLOCKED OUTPUT 
NUMBUF # = 43 SFILL ONLY QNE 
IF CWORDSLEFT<BUFFSIZE) THEN 
BEGIN 
IF NOT OPENIO- THEN 
BEGIN % SERTAL QUTPUT = NO ADDR IN BUFF 
DAStSP(DASsRCOUNT 3 
CODE:=PCCODEs1)3 
DISKADDRESS3 
CODE=P3 DAStsP; 
END3 
WRITBACK3 =TRUES 
ENO; 
END; 
END; 
NUMBUF # 4 THEN 
CDASSCOUNT.) AND COAS>BCOUNT) THEN BLOCK IS PRESENT 
IF MEMCDLOCCNUMBUF"1) INX NOT 23 = COUNT THEN 
DAS t= COUNT + 43 
COUNT = CRCOUNT OLIV NUMREC) + NUMBUF = 13 
no BEGIN 
IF NOT DONE THEN WAITIO3’ 
IF NOT PRESENT THEN 
IF NOT REEDING  . 
THEN MOVEREC ELSE SETPRESENTSBIT? 
IF DAS xX NUMREC § LSUBU 
THEN REED ELSE ROTATEBUF? 
END UNTIL (DAS t= DAS + 412 > COUNT? 
IF NOT HOWOPEN THEN WAITIO3 
RCOUNT t= DAS ¢ DAS = NUMBUF3 
NUMBUF = BUFFNUMS 
ENO ELSE %MUST BE RANDOM 
IF HOWOPEN OR CNUMREC > 1) 


IF 
IF 


09720400 
09720500 
09720600 
09720700 
09720800 
09720900 
09720904 
09721000 
09721100 
09721120 
09721200 


09721300 


09721400 
09721500 
09721510 
09721519 
09721570 
09721580 
09721600 


09721700 © 


09721800 
09721900 
09722000 
09722100 
09722200 
09722300 
09722400 
09722405 
09722410 
09722415 
09722420 
09722425 
09722430 
09722435 
09722440 
09722445 
09722450 
09722500 
09722600 
09722700 
09722800 
09722900 
09723000 
09723100 
09723200 
09723300 
09723400 
09723500 
09723600 
09723700 
09723800 
09723900 
09724000 
09724100 
09724200 
09724300 
09724400 


a ss tt NNO 0 se as as st tt 


013910 
013910 
O141%0 
01432 
OL14ata 
014633 
0148'o 
0148:%0 
014980 
O15i34 
015634 
01546%9 
015720 
O1578%0 
0159%2 
016070 
016020 
016032 
0160%2 
0162%0 
0162%2 
016333 
016441 
016732 
016812 
0146910 
017482 
O173%1 
0173483 
017540 
017882 
017613 
017723 
017980 
018030 
018080 
0182%2 
0182%2 
0182:%2 
0182%2 
018480 
0186%3 
0194%3 
019383 
019783 
0197123 
020280 
O203%4 
020433 
020950 
O21ot!s 
021410 
021682 
0220!3 
0223%3 
022740 
0227°0 


@®eeeeeesreeee0e080 86 80 068080800 0@ 4 


“$ SET OMIT = NOT SHAREDISK 
THEN BEGIN % INPUT OR BLOCKED OR LocK 
REREAD? 
IF NUMBUF = 1 THEN % JUST READ DONT TRY TO FIND 
BEGIN IF NOT OONE THEN 
$ SET OMIT = NOT SHAREDISK 
WAITIO; 
REED3 
BCOUNT«DAS3 
END 
ELSE BEGIN 
FOR T t= 4 STEP 4 UNTIL NUMBUF #4 
oo SFIND BLOCK IN CORE 
TF MEMEDLOeCET] INX NOT 23 = DAS THEN 
$ SET OMIT = SHAREDISK 
GO FLOTE; 
$ POP OMIT 


$ SET OMIT = NOT SHAREOISK 


i 


IF NOT DONE THEN 
$ SET OMIT = NOT SHAREDISK 


WAITIO3 
REEDS -4MAKE PRESENT IN CORE 
FLOTE: IF CODE. <.2 
$ SET OMIT = NOT SHAREDISK / 
THEN BEGIN 
IF WRITBACK THEN *READ OR 
BEGIN ZWRITE 
wRIT3 


DAS $= RCOUNT DIV. NUMREC 
END ELSE ROTATEBUFS 
WHILE MEMCTIP INX NOT 23 #4 DAS 
pO ROTATEBUF3 
BCOUNT t= BAS3 
| END3 
ENO? 
END; 
SEEKRITN: : 
ENOFILE t= FALSE3 
WORDSLEFT $= BUFFSIZE = CCRCOUNT MOD NUMREC) x NUMWDS 33 
LASTDONE ¢ FALSE? % PREVENT SERIALIO OVERWRITE 
IF CODE = 2 THEN PCXIT)# 
END SEEK; . 
hee ae S°T AR T YEE HE RE YEE D3I8 kK ERS Laan 
STARTS 
FIB t= w(FLOC t= (NOT 2) INX DLOC? 
IF NOT DISK THEN 
; BEGIN 
FLOC :© Pe,RCWeLOp)3 
FIp ¢ ABSC(CODE); 
DEST s= Pc,OlLOceLany; 
BS t= NUMWOS3 
CODE t= 13 
RCW t= DLOC t= NUMWDS t= 03 
PCCFLOCI]*DUP2OsXCHe CFX*#STF ete INX» STS)3 
GO TO PCCOBOLIONONDSK)3 : 
END} 
H t= *CFIBLLi4])3 


09724409 
09724500 
09724550 
09724600 
09724700 
09724709 
09724750 
09724760 
09724770 
09724780 
09724800 
09724900 
09725000 
09725100 
09725109 
09725110 
09725111 
09725119 
09725300 
09725309 
09725390 
09725400 
09725500 
09725549 
09725600 
09725700 
09725800 
09725900 
09726000 
09726100 


09726200 © 


09726300 
09726400 
09726500 
09726600 
09726700 
09726800 
09726900 
09727000 
09727100 
09727200 
09727 300 
09727400 
09727500 
09727600 
09727700 
09727800 


09727900 


09728000 
09728100 
09728200 
09728300 
09728400 
09728500 
09728600 
09728700 
09728800 


AA AA A A tt tt tt tt tt st tt tt HH tt a ee 


022984 
022981 
O230%4¢ 
0230?1 
023443 
02332 
023382 
0236%2 
023810 
023924 
0239%4 
023933 
024382 
024413 
024733 
024733 
024913 
024973 
024833 
0250!0 
0250!0 
025340 
0254%0 
C25aty 
025454 
025584 
O256tf, 
0256:3 
025810 
025983 
026140 
026380 
O265t9 
026633 
026643 
026633 
026633 
026633 
0269734 
0273914 
0275%3 
027784 
027732 
0277%2 
028010 
O282%4 
0283323 
O284t4 
0285t1 
0286314 
028734 
028830 


0288%3 


029042 
029384 
029333 
029383 


eeceveveee8eeeeeeeeeeeeeeee @ 


$ SET OMIT = NOT SHAREDISK 
IF CONE.f1:4]) THEN 
BEGIN CODE*ABS(CODE)# 
$ SET OMIT = NOT SHAREDISK 
END} ‘ 
IF CODE > 2 THEN IF CODE # 6 THEN TERM(25) ELSE ZWRITE BLOCK 
BEGIN IF HOWOPEN > 1 THEN TERMC37)3 
IF NOT OPENIO THEN IF HOWOPEN THEN TERMC34+REVERSE)3 
$ SET OMIT = NOT SHAREDISK 
GO FOFSETCK3 ZWRITES BLOCKS IMMEDIATE@NO ROTATION 
END3 
IF HOWOPEN > 1 THEN TERMC31 + CONE) 
IF CODE = 2. THEN 
BEGIN RCOUNT+CIF KEY=0 THEN O ELSE PCKEY*OIB OrlLon)) = 13 
IF CRCOUNT<LSUBL) OR CRCOUNT>LSUBU) THEN 


GO EOFSETCK % INVALID KEY 
ELSE IF INVALIDUSER THEN TERMCO.)% OS WITH INVALID USER 
ELSE. SEEK3 ZONLY SEEK VALID RECORDS 


END; 
IF NOT OPENIO THEN 
IF (1 ™ CODE) # HOWOPEN THEN TERMCPROPER)3 
IF SERIAL THEN % PROCESS SERIAL FILE 
BEGIN 
IF OPENIO- THEN GO SERTALIO; 
IF. CRCOUNT<LSUBL?) GR CRCOUNT>LSUBU) THEN GO EQFSETCK:3 
IF cOOE = 0 OR CODE = 2 THEN® RFAD OR SEEK (SERIAL) 
IF INVALIDUSER THEN TERMCO)3 % DS WITH INVALID USER 
MOVERECS 
IF REVERSE THEN GO READREV3 | 
IF cODE THEN IF RCOUNT > TOTREC THEN TOTREC t= RCOUNT? 
IF CWORDSLEFT t2 *«PCDUP) = NUMWDS) S$ 0 THEN 
BEGIN BLOCK IS EXHAUSTED 
IF CONE THEN WRIT ELSE 
IF (DAS #= BCOUNT + NUMBUF) =x NUMREC §$ LSUBU THEN 
BEGIN ZREAD AHEAD TO KEEP - 
REEDS %BUFFERS READY 
COUNT t= DAS; 
END ELSE ROTATEBUF3 
BCOUNT t= * PCDUP) + 13 
ENDS 
RCOUNT %# *PCDUP) + 13 . ot 
IF FALSE THEN % THIS CODE EXECUTED ONLY FOR TAPE 
READREV: BEGIN % OPEN*REVERSE EQUATED TO DISK 
IF CWORDSLEFT « *PCDUP) = NUMWDS) s O THEN 
BEGIN % BLOCK IS EXHAUSTED 


IF (DAS ¢ BCOUNT = NUMBUF) x NUMREC 2 LSUBL THEN | 


BEGIN REEDS COUNT « DAS; 
END ELSE ROTATEBUF? 
BCOUNT « *PC(DUP) «= 43 
ENDS 
RCOUNT © *PCQUP) * 1} 
END REVINPUTS 
IF KEY # 0 THEN PCRCOUNT*KEY*DIB Or I1S0)3 
PCOsRTN)3 
2% END OF SERIAL "8" 1T0 NEXT & & 
SERTALIO$ 
RCOUNT «© *PCDUP) = (T © (CODE AND LASTOONE))3 


09728804 
09728815 
09728820 
09728824 


09728890 


09728900 
09728930 
09728960 
09728979 
09729000 
09729050 
09729100 
09729200 
09729300 
09729400 
09729500 
09729510 
09729520 
09729600 
09729700 
09729800 
09729900 
09730000 
09730100 
09730200 
09730210 
09730220 
09730300 
09730400 
09730500 
09730600 
09730700 
09730800 


09730900 © 


09731000 
09731100 


09731200 


09731300 
09731400 
097314500 
09731600 
09731700 
09731800 
09731900 
09732000 
09732100 
09732200 
09732300 
09732400 
09732500 
09732600 
09732700 
09732800 
09732900 
09733000 
09733100 
09733200 


a tO A tt HO 0 st to st st te st 


029550 
029510 
02951%3 
029784 
029784 
O297%4 
0304180 
030433 
O310%2 
O310%2 
031120 
031440 
031483 
O315t2 
0324%3 
032452 
032482 
032810 
O330%0 
O330%0 
033444 
0337383 
O339%4 
033933 
0341 %2 
0345%0 
O346%3 
O0350!%0 
0351%0 
035233 
035623 
O359%4 
035923 
0362:0 
036644 
036673 
036820 
O369%4 
037420 
037330 
037330 
0375'0 
Q375%4 
037533 
O378%4 
0378:3 
03822 
038534 
038720 
0389%0 
038940 
0391320 
Q0394:0 
039580 
039532 
039582 
0395%t2 


ecveeveeeve54evneeneeeeeeeeeee 8 @ 


IF CRCOUNTSLSUBL) OR CRCCUNT>LSUBU) THEN GO EQFSETCK3 
IF CODE = 0 OR CODE = 2 THEN ZREAD OR SEEK CSERIAL 1/0) 
IF INVALIOUSER THEN TERMCO)3% DS WITH INVALID USER 
IF T THEN WORDSLEFT « *PCDUP) + NUMWDS ELSE 
IF WORDSLEFT $s 0 THEN 


BEGIN BLOCK IS EXHAUSTED 
“IF CDAS t= BCOUNT + NUMBUF) x NUMREC ¢$ TOTREC THEN 
BEGIN ZANOTHER BLOCK 
REED3 % IN SIGHT 
COUNT = DAS} 
END ELSE 
IF WRITBACK THEN % WRITE CURRENT BLOCK 
WRIT % LESS WE FORGIT 
ELSE % OR USE NEXT BUFFER 
ROTATEBUFS % BECAUSE ITS THERE 
BCOUNT ts *P(DUP) + 43 
ENDS 


IF RCOUNT > TOTREC THEN 
IF CODE THEN TOTREC * RCOUNT ELSE 
BEGIN CODE+323; GO SIQEODs END; 
MOVEREC3 
SIOQEGN: IF CWORDSLEFT t= *PCDUP) = NUMWDS) < O THEN 
IF CODE THEN ZWROTE LAST RECORD 
BEGIN % OF YEE BLOCK 
IF CDAS?=B8COUNT+NUMBUF )XNUMREC $ TOTREC THEN 
BEGIN READ AHEAD TOO 
WRITBACK ¢= TRUE3 *KEEP BUFFERS FULL 
REEDS 
COUNT t= DAS} 
ENO ELSE  % WRITE BLOCK NOW 
WRITS % seed WRITE IN TIME wee 
BCOUNT t= *P(DUP) + 43 
END ELSE 
ELSE IF CONE THEN WRITBACK t= TRUES ZNOT FULL BLK 
LASTDONE t= NOT CODE; 
IF KEY #0 THEN PCRCOUNT» 1s +eKEY2DIB OF 1SD)3 
RCOUNT $= *P(QUP) + 13 
IF CODE=32 THEN GO EOFSETCK ELSE PCOsRTN)3 
END SERIAL3 % END OF ALL SERIAL PROCESSING 
%%% RANDOM AND RANDOM 10 START HERE %2%% 
RCOUNT t= CIF KEY = 0 THEN O FLSE PCKEYsDIB OreLOD)) = 43 
IF. CRCOUNT<LSUBL) OR CRCOUNT>LSUBU) THEN GQ EQFSETCK3 


IF CODE = 0 OR CODE = 2 THEN READ OR SEEK CROM OR RDM I/O) 


IF INVALIOUSER THEN TERM(O)3% DS WITH INVALID USER 
IF RCOUNT > TOTREC THEN 
IF CODE THEN TOTREC © RCQUNT ELSE 
BEGIN CODE « 323. GO RNDEODS ENDS 
$ SET OMIT = NOT SHAREDISK 
IF (DAS © RCQUNT DIV NUMREC) # BCOUNT THEN 
IF CNUMRECZCODE) 
THEN SEEK % READ OR BLOCKED WRITE 
ELSE MEMCBUFTOP INX NOT 2] %3B8COUNT#=0AS3 
MOVERECS : 


RNDEOD! WORDSLEFT %= *PCDUP) = NUMWDS3 


IF CODE THEN: 
IF NUMREC = 4 
$ SET OMIT = NOT SHAREDISK 


ZUNBLOCKED OUTPUT 


09733300 
09733310 


09733320 
09733400 
09733500 
09733600 
09733700 
09733800 
09733900 
09734000 
09734100 
09734200 
09734300 
09734400 
09734500 
09734600 
09734700 
09734800 
09734900 
09735000 
09735100 
09735200 
09735300 
09735400 
09735500 
09735600 
09735700 
09735800 
09735900 
09736000 
09736100 
09736200 
09736300 
09736400 
09736500 
09736600 
09736700 
09736800 
09736900 
09737000 
09737100 
09737200 
09737210 
09737220 
09737300 
09737400 
09737500 
09737549 
09737600 
09737700 
09737710 
09737720 
09737800 
09737900 
09738000 
09738100 
09738109 


AHHH HOOD AHO A tt tt st st st a A ta A ta ts a a st tO OY 


039934 
0402:3 
O404%2 
O407%3 
O410%2 
041230 
OA4Lata 
041684 
041623 
041820 


041984 | 


O419%4 
042033 
042270 
042230 
042430 
042630 
0426%0 
0427 %4 
043050 
0434%3 
0433380 
043582 
0436%1 
043623 
O44Qio 
044440 
O44 380 
044520 
O446t1 
O44634 
O44K8:0 
045020 
0450%0 
O4Sat4 
0457%0 
OA6YI9 
0463%2 
046544 


046544 


046524 
047450 
O474%32 
O476'4 
O47 Ot2 
0480!:3 
048382 
O4855 4 
O485%4 
048733 
048823 
049082 
049550 
049680 
OA9BRIO 
O4Saty 
049930 


THEN BEGIN 
WRITS 


$ SET OMIT = NOT SHAREDISK 

END ELSE 
WRITBACK © TRUES 
IF CODE432 THEN PCOsRTNDS 


EOFSETCKS 


IF CWORDSLEFT < BUFFSIZE) AND 
CNOTCHOWOPEN) OR COPENIGO AND WRITBACK)) 


THEN 


IF CO 


IF SERTAL AND CODE # 2 THEN 


IF CODE. = 32 THEN 
BEGIN H ¢ WA; 


IF COME # 2 THEN 


$.SET OMIT. = 


BEGIN 


NUMBUF 32 


WRIT? 
WAITIOs 


NUMBUF $5 


13 ZWRITE LAST BUFFER 
ZAND CHECK FOR 
ZERRORS 

BUFFNUM 


IF NOT PRESENT THEN 


BEGIN 


SETPRESENTSBIT3 


$ SET OMIT = NOT SHAREDISK 


ERROR} 


END END; 


DE = 6 THEN PCOsRTN)3 


% ONLY 1 EQF ALLOWED 


IF ENOFILE THEN TERMC15) ELSE ENDFILE © TRUES 


% CLEAR WORK AREA 
% IF READ BEYOND EOF 


FOR RT « O STEP 41 UNTIL CNUMWOS*1) DO HIRT] ¢ Q3 


ENDs 


% LET PROGRAM KNOW ITS EOF 


BEGIN 
NOT SHAREDISK 


PC1sRTN)3 
END ELSE 


LASTDOQNE ¢ FALSE 


%%% END OF EOF CHECKING 
END OF cOBOL DISK INTRINSICSS 


PROCEDURE INTE 


BEGIN 
REAL ADDR 
I 
NOTDONE 
DOME 


REAL PERFORMGEN#4 33 


ARRAY TSKA 


. ut @ 


RRUPTER3 


a+ 
seo, 
S43 
moj 


% EXECUTION FORCED BY SOFTWARE INTERRUPT CODE AT 


% PREVENT SERTALIO OVERWRITE 


09738120 
09738140 
09738149 
09738200 
09738300 
09738400 
09738500 
09738600 
09738700 
09738800 
09738900 
09739000 
09739100 
09739200 
09739300 


09739400 © 


09739500 
09739549 
09739600 
09739700 
09739750 
09739800 
09739900 
09740000 
09740100 
09740200 
09740300 
09740400 


09740410. 


O9740419 
09740430 
09740440 
09740500 
09740600 
09740700 


09800000 


START OF REL SEGMENTS DISK 


INITIATEs INTERRUPTER PROCESSES ENABLED 
INTERRUPTS IN SFINTO, AN IP1 HAS JUST BEEN 
EXECUTEDs POINTING REG=F AND REG*S TO THE 
STACK COPY OF THE OLD INCW, 


Se FQ Ve de 


=220*1» - % TASK ARRAY 
% CONTENTS OF TSKATB)! 


ae a 22 aE BE BE BL 


Citijsi IFF INTERRUPTER HAS JUST RUN AND 
SFINTQ@ IS NON*EMPTY 

C2s:ijei IFF SFINTO IS NON@EMPTY 

C3:4)e4 TIFF INTERRUPTER IS RUNNING 

Casi}: SFINTQ INTERLOCK BIT 

CFF) ADDRESS OF OLD IRCW 


CCF] = RELATIVE PRT ADDRESS OF FIRST IN LINKED 


09800100 
09800200 
09800300 
09800400 
09800500 
09800700 
09800750 
09800755 
09800760 
09800765 
09800770 
09800775 
09800780 
09800785 
09800790 


Oaggte 
O500tt 
05074!0 
050140 
050130 
050410 
050523 
0505:3 
0507!2 
0514°0 
O54280 
O514%2 
051610 
O51at2 
052133 
052380 
—-O52a3%2 
0525130 
052550 
052610 
052670 
052723 
0530%1 
0536%?2 
053724 
054010 
054620 
054620 
0546%3 
O547%4 
O547 hs 
054723 
054723 
055013 
055043 
ZE= O5514 


HAHAHAHA A st tt tt tt tt a Ht 4 


T 000080 
ADDRESS = 
9000!0 
0000!0 
000010 
0000!0 
000010 
000030 
000030 
0000%0 
900040 
000010 
000080 
000030 
000010 
000080 
o000to 


nd nt dt tt Ht 


WORDS 


90683 


@®eeeeeeee#eeeeeee#eseseeseeeee ee 8 


+ 
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% LIST OF MECLARED INTERRUPTS 
*270*]> % SOFTWARE INTERRUPT QUEUE 
=1OC%)3 


SFINTQ 
PRTBASE 
LABEL AGAIN; 
NEF INE IMASK = @200000000000000#3 
Be tk koe tk SOT A RT HE R Fo koe ke RRO a ew ee 
TSKALB] © ABSC*P(DUP)) & 4 C3%472133 
IF NOT TSKAC81.0C421) THEN PCETSKAL8I] + EMASKs2eCOMsDELs DEL D3 
TSKACB1,0C431] ¢€ 03 


P(020s020)3 
AGAIN! WHILE I<SFINTQ.£8210) 00 
BEGIN IF SFINTQCLIIZO THEN % VALIO ENTRY 
IF MCSFINTOCI3413<0 % LINK wORD 
THEN NOTDONE ¢ 1 & SKIP DISABLED INTERRUPT 
ELSE % PERFORM ENABLED INTERRUPT 
REGIN ADDR «© SFINTQLI 13 
TSKACLA] © *PCDOUP) OR IMASK3 
PCMKSsADDR@*PRTBASE,CCF1202PERFORMGEN)S 
IF NOT TSKAC83,C421] THEN 
PCLTSKALBIT]*e IMASKs 2eCOMeDEL es DEL D3 
TSKACL81,C4A#1] «© 03 
SFINTQLI] « Of 
DONE ¢ 43 
ENDS 
I ¢ I+13 
END} 


IF DONE THEN BEGIN T « DONE © NOTDONE © OF GO AGAIN; END} 
TSKACB}-C1I4)] © L2xNOTDONE + 13 
PC47scOM)3 

END INTERRUPTERS 


COMMENT DO NOT PUT ANY DECLARATIONS PAST THIS POINT OR THE CONTROL 
STATE PROCEDURE WHATINTRNSIC WILL PROBABLY HANG THE SYSTEM} 
PROCENURE WHATINTRINSIC3 


f oP 


09800795 
09800800 
09800900 
09800920 
09800940 
09800950 
09800955 
09800970 
09800980 
09801000 
09801100 
09801150 
09801200 


09801300 ° 


09801400 
09801410 
09801420 


09801450 © 


09801460 


09801470 © 


09801480 
09801500 
09801600 
09801700 


09801800 


09801900 
09801950 
09802000 
09802100 
09802200 


99998000 
99998010 
99998020 


START OF REL SEGMENTS O1SK 


BEGIN 
LABEL Ls 
PCXIT)S PCeLsDELIS | 


"INTRINS» 
"ICS 8", 
"XVI,O0,@%» 
% PATCH LEVEL ON NEXT CARD PLEASE 
"QOPAEER", 
$ SET OMIT = NOTCTIMESHARING) 
w INCLUD» 
"ES @@@@'>» 
“TIMESHA'» 
"RING@@O", 
$ POP OMIT 
Me 3 


END WHATINTRINSIC3 


99998030 


99998040 


99998050 
99998100 
99998200 
99998300 
99998400 
99998500 
99999000 
99999100 
99999340 
99999850 
99999860 
99999870 
99999880 
99999890 
99999900 


tT O000%0 
T 000070 
T 00030 
T 000010 
rT Q000%0 
T 900080 
tT 000030 
T 000283 
yY 0006314 
rT 000833 
T QOo0d9t3 
y 001443 
T OO12?3 
T O015%4 
T OO16?4 
T QO01633 
T 002030 
7 002270 
T OO024t4 
T 002532 
T 002733 
y QOO3B0t1 
T O034%2 
T  OO0O32%4 
T OO3att 
T 0033%2 
y 003530 
T OO38:0 
7.004442 
tT O04S%0 
SIZE= 0043 wORDS 


T 000010 

y 000030 

rT O000%0 | 
ADDRESS = 60685 
T OQ000I0 

T.. 900010 

T  O000%0 

ry 000033 

rT 000170 

T O00230 

T 0003%0 

7 000480 

T 000430 

T 0005!0 

rT o00g5t0 

T 0006!0 

T 000730 

T QO00atO 

rT 000910 

T 000930 

T 001010 
SIZE= 0011 wORDS 


- 


END. 99999990 T O00010 
SIZE= 0000 WORDS 
NUMBER OF ERRORS DETECTED = 000, COMPILATION TIME = 1543 SECONDS, ; 
PRT SIZE=250 BASE ADDRESS=0000 CORE REQ=0000 DISK REQ=20580 


LABFL OOOO0O0O0OL INE 00177138? EXECUTE ESPOL/DISK . ; ESPOL /NISK 
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